Office中国论坛/Access中国论坛

标题: 求助－－excel链接问题 [打印本页]

作者: isseii 时间: 2009-10-30 15:55
标题: 求助－－excel链接问题
我在sheet1中点型号列中任一型号，要求能跑转到sheet2中对应的行号的行，请问怎么做。谢谢，
在线等待中……
[attach]40184[/attach]

作者: pureshadow 时间: 2009-11-4 18:03
以下代码写在SHEET1的VBE中
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
Dim MyFind As Variant
With Sheets("sheet2")
If Target <> "" And Target.Column = 4 Then
      Set MyFind = .Range("a:a").Find(Target, lookat:=xlWhole)
         If MyFind Is Nothing Then
            MsgBox "无此型号"
         Else
            Sheets("sheet2").Select
            MyFind.EntireRow.Select
         End If
      Set MyFind = Nothing
End If
End With
End Sub

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)