请教EXCEL关于超链接问题

yifen_ida

是这样的，我做了一个订单汇总表，并把它分为repeat表格和new表格。都做了一个自动筛选的功能。在第一个汇总表里有3T 订单编号。   我想得到的功能是，我在采购订单信息表里，点3T 订单编号那一栏的任何一个数据，都要链接到repeat或new表格中有这个订单号的表里，并通过这个订单号筛选记录。谢谢各位高手了！急！！！

doitbest

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
If Target(1).Column <> 2 And Target(1).Row < 3 Then Exit Sub
If Not Sheets("Repeat").Columns(1).Find(Target(1).Value) Is Nothing Then
    Sheets("Repeat").Rows(3).AutoFilter Field:=1, Criteria1:=Target(1).Value
   End If
End Sub

doitbest

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
If Target(1).Column <> 2 And Target(1).Row < 3 Then Exit Sub
    Sheets("Repeat").Rows(3).AutoFilter Field:=1, Criteria1:=Target(1).Value
     Sheets("New").Rows(3).AutoFilter Field:=1, Criteria1:=Target(1).Value
End Sub
修改了一下,通用性明显增强

zenglili

学习了vba编程。

doitbest

20天没见楼主了