[已解决]光标定位在需要的数据单元格上

hhaa999

光标定位在需要的数据单元格

最佳答案

月排行榜 / 总排行榜

mxg825

2012-7-16 10:07

1. Option Explicit
   
2. 
   
3. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
4. On Error Resume Next
   
5. Dim NewRow As Long, NewCol As Long
   
6. If Target.Column = 4 And Target.Row > 2 Then
   
7.     NewRow = Application.Match(Target.Offset(, -1), Sheet1.Range("A3:A17").Value)
   
8.     NewCol = Application.Match(Target, Sheet1.Range("B2:F2").Value)
   
9.     Sheet1.Activate
   
10.     Sheet1.Range("A2").Offset(NewRow, NewCol).Select
    
11. End If
    
12. End Sub
    

复制代码

跳转到最佳答案楼层

mxg825

1. Option Explicit
   
2. 
   
3. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
4. On Error Resume Next
   
5. Dim NewRow As Long, NewCol As Long
   
6. If Target.Column = 4 And Target.Row > 2 Then
   
7.     NewRow = Application.Match(Target.Offset(, -1), Sheet1.Range("A3:A17").Value)
   
8.     NewCol = Application.Match(Target, Sheet1.Range("B2:F2").Value)
   
9.     Sheet1.Activate
   
10.     Sheet1.Range("A2").Offset(NewRow, NewCol).Select
    
11. End If
    
12. End Sub
    

复制代码