VBA选择所选区域尾端的单元格

1. Range("F6").EndLeft
   
2. Range("F6").EndRight
   
3. Range("F6").EndUp
   
4. Range("F6").EndDown

复制代码

1. Public Sub RangeSelection(sender As Object,e As SpreadsheetGear.Windows.Controls.RangeSelectionChangedEventArgs)
   
2.             If e.RangeSelection.Intersect(Range("SelectArea")) IsNot Nothing Then
   
3.                 Range("Area").Interior.ColorIndex = 1
   
4.                 e.RangeSelection.EndLeft.Interior.ColorIndex = Range(e.RangeSelection.Row, 1).Value
   
5.                 e.RangeSelection.EndRight.Interior.ColorIndex = Range(e.RangeSelection.Row, 11).Value
   
6.                 e.RangeSelection.EndUp.Interior.ColorIndex = Range(1, e.RangeSelection.Column).Value
   
7.                 e.RangeSelection.EndDown.Interior.ColorIndex = Range(11, e.RangeSelection.Column).Value
   
8. 
   
9.             End If
   
10.        End Sub'单元格选择后执行的事件

复制代码

VBA选择所选区域尾端的单元格

1. Range("F6").EndLeft
   
2. Range("F6").EndRight
   
3. Range("F6").EndUp
   
4. Range("F6").EndDown

复制代码

1. Public Sub RangeSelection(sender As Object,e As SpreadsheetGear.Windows.Controls.RangeSelectionChangedEventArgs)
   
2.             If e.RangeSelection.Intersect(Range("SelectArea")) IsNot Nothing Then
   
3.                 Range("Area").Interior.ColorIndex = 1
   
4.                 e.RangeSelection.EndLeft.Interior.ColorIndex = Range(e.RangeSelection.Row, 1).Value
   
5.                 e.RangeSelection.EndRight.Interior.ColorIndex = Range(e.RangeSelection.Row, 11).Value
   
6.                 e.RangeSelection.EndUp.Interior.ColorIndex = Range(1, e.RangeSelection.Column).Value
   
7.                 e.RangeSelection.EndDown.Interior.ColorIndex = Range(11, e.RangeSelection.Column).Value
   
8. 
   
9.             End If
   
10.        End Sub'单元格选择后执行的事件

复制代码