Question

如何用EXCEL VBA 实现点Sheet1某个栏位的超级链接，然后在第二张sheet里直接显示我筛选好的结果？

如何用EXCEL VBA 实现点Sheet1某个栏位的超级链接，然后在第二张sheet里直接显示我筛选好的结果？ 例如：
sheet1里有： A B
1 Name 个数
1 2

————————————————
sheet2里有：栏位 A B
1 1
2 2
3 1
4 3
5 4

-——————————————————————

Sheet2经过筛选，当我点击sheet1里的带有链接的2时，就会跳转到sheet2，然后只显示为"1"的两条记录，其他的都不予显示。

问题：我怎样才能嵌套一个宏在里边？当如果有“2”、“3”需要点击的时候，可以直接显示相对应的记录。在线等答案。没有积分，但是我可以送您iTunes App store里的App
我的意思是将宏嵌套到超链接里促发？用其他的方法也行，但最好用vba，不胜感激！

Answer 1

下面是你的第一个问题“将宏嵌套到超链接里促发”的答案
在sheet1下点“查看代码”下，在sheet1内添悉虚加睁好燃下面的代码：
' ******************************************************
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
If ActiveCell.Count = 1 And ActiveCell.Column = 2 And Cells(ActiveCell.Row, 1).Value <> 0 And ActiveCell.Value <> 0 Then
A = ActiveSheet.Cells(ActiveCell.Row, 1)
Sheets(2).Select
Sheets(2).Range("B1").Select
Selection.AutoFilter
Selection.AutoFilter Field:=2, Criteria1:=A
End If
End Sub
' ******************************************************
下面是你的第二个袜哪问题“如何抓取鼠标点的栏位的坐标？？并且赋值给变量“的答案

鼠标点取单元格的行标 = ActiveCell.Row
鼠标点取单元格的列标 = ActiveCell.Column
将选取的单元格内容的赋值给变量X的方法 X = ActiveCell.Value

Answer 2

使用工作表的Calculate事件.

Answer 3

'按组合键Alt+F11进闷袭圆入VBA界面，左侧双击sheet1工作表名称，在右侧禅亮窗口粘贴蚂塌下方代码：
Private Sub Worksheet_SelectionChange(ByVal Target As Range):
If Target.Count = 1 And Target.Column = 2 And Cells(Target.Row, 1) <> 0 And Cells(Target.Row, Target.Column) <> 0 Then
A = Cells(Target.Row, 1)
Sheets(2).Select '第二个工作表的第一行最好是项目名称
Sheets(2).Range("B1").Select
Selection.AutoFilter
Selection.AutoFilter Field:=2, Criteria1:=A
End If: End Sub

追问

请问各句的意思是什么啊？谢谢！

追答

Private Sub Worksheet_SelectionChange(ByVal Target As Range) '工程名称
If Target.Count = 1 And Target.Column = 2 And Cells(Target.Row, 1) 0 And Cells(Target.Row, Target.Column) 0 Then
'当选择一个单元格、选择的是第二列、本行A列不为0、本单元格不为0时，执行下列程序
A = Cells(Target.Row, 1) '将本行A列的值赋给变量A，之后筛选时要用
Sheets(2).Select '选定第二个工作表
Sheets(2).Range("B1").Select '选定第二个工作表的B1单元格
Selection.AutoFilter '设置自动筛选
Selection.AutoFilter Field:=2, Criteria1:=A '筛选值等于变量A的内容
End If: End Sub '结束工程