当单元格筛选内容发生变化时，光标停留在指定位置，谢谢！

zyhui1961

当单元格筛选内容发生变化时，光标停留在指定位置，谢谢！

3190496160

Private Sub Worksheet_Change(ByVal T As Range)
If T.Address = "$F$2" Then
    If T.Count > 1 Then End
    zd = T.Value
    If zd = "" Then End
    If zd = "您" Then
        [h2].Activate
    Else
        [g4].Activate
    End If
End If
End Sub

3190496160

3190496160

工作簿1.rar (15.47 KB, 下载次数: 5)

2024-2-15 10:18 上传

点击文件名下载附件

zyhui1961

3190496160 发表于 2024-2-15 10:18

老师您好，谢谢回复！
我这附件只是简单的例子，实际中不只是两个。
如果我再想加几个怎么办？

准提部林

on error resume next
if target<>"" then [d:d].find(target, lookat:=xlwhole).select
on error goto 0

為何d列文字, 要選取其它列???

3190496160

呵呵呵，那你最好是上传你真实的附件，把你真实的意图表述清楚，
或者，目前的代码非常简单的嘛，你也可以根据自己的需求一样画葫芦的吧

3190496160

Private Sub Worksheet_Change(ByVal T As Range)
If T.Address = "$F$2" Then
    If T.Count > 1 Then End
    zd = T.Value
    If zd = "" Then End
    Dim rn As Range
    Set rn = Columns(4).Find(zd, , , , , , 1)
    If rn Is Nothing Then End
    dz = rn.Offset(, 1)
    Range(dz).Activate
End If
End Sub

3190496160

工作簿1.rar (16.39 KB, 下载次数: 2)

2024-2-15 11:25 上传

点击文件名下载附件

zyhui1961

3190496160 发表于 2024-2-15 11:17
呵呵呵，那你最好是上传你真实的附件，把你真实的意图表述清楚，
或者，目前的代码非常简单的嘛，你也可以 ...

这个是我实际要用的工作表，感谢老师再次出手相助！