[已解决]求修改代码（查找定位）

171774040

请看附件~~~~~~谢谢

最佳答案

月排行榜 / 总排行榜

chart888

2017-7-18 09:00

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.     Dim A As Range
   
3.     Dim C As Date
   
4.     Application.EnableEvents = False
   
5.     With Target
   
6.         If .Address = "$N$2" Then
   
7.             Set A = [B:B].Find(what:=.Value, LookAt:=xlWhole)
   
8.             If Not A Is Nothing Then
   
9.                 Range("B" & A.Row).Select
   
10.             Else
    
11.                 MsgBox "没有找到数据！"
    
12.                 [N2].ClearContents
    
13.                 [N2].Select
    
14.             End If
    
15.         
    
16.         End If
    
17.     End With
    
18.     Application.EnableEvents = True
    
19. End Sub
    

复制代码

跳转到最佳答案楼层

chart888

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.     Dim A As Range
   
3.     Dim C As Date
   
4.     Application.EnableEvents = False
   
5.     With Target
   
6.         If .Address = "$N$2" Then
   
7.             Set A = [B:B].Find(what:=.Value, LookAt:=xlWhole)
   
8.             If Not A Is Nothing Then
   
9.                 Range("B" & A.Row).Select
   
10.             Else
    
11.                 MsgBox "没有找到数据！"
    
12.                 [N2].ClearContents
    
13.                 [N2].Select
    
14.             End If
    
15.         
    
16.         End If
    
17.     End With
    
18.     Application.EnableEvents = True
    
19. End Sub
    

复制代码

171774040

chart888 发表于 2017-7-18 09:00

可否把代码由原来的跳转到B列某一单元格，改为跳转到B列所在的行？

chart888

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.     Dim A As Range
   
3.     Dim C As Date
   
4.     Application.EnableEvents = False
   
5.     With Target
   
6.         If .Address = "$N$2" Then
   
7.             Set A = [B:B].Find(what:=.Value, LookAt:=xlWhole)
   
8.             If Not A Is Nothing Then
   
9.                Rows(A.Row).Select
   
10.             Else
    
11.                 MsgBox "没有找到数据！"
    
12.                 [N2].ClearContents
    
13.                 [N2].Select
    
14.             End If
    
15.         
    
16.         End If
    
17.     End With
    
18.     Application.EnableEvents = True
    
19. End Sub

复制代码

171774040

[size=37.7999992370606px]谢谢……