[已解决]每次筛选的值发生变化后，自动运行宏的代码求助

秋意正浓

问题：
只要筛选值一发生变化，就触发宏，让F1单元格的值等于筛选值，这个代码如何写？
以下代码不是自动运行，每次都要我点击按纽2以后才能运行，现在的问题就是如何让这个宏自动运行？
Sub Macro1()
For Each x In Columns("A:A").SpecialCells(xlCellTypeVisible)
s = s + 1
If s = 2 Then cells(1,"f")=cells(x.row,1).value: Exit Sub
Next
End Sub

最佳答案

月排行榜 / 总排行榜

风化石

2012-9-14 16:09

Book1.rar (5.9 KB, 下载次数: 269)

2012-9-14 16:08 上传

点击文件名下载附件

跳转到最佳答案楼层

E路人

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2.     For Each x In Columns("A:A").SpecialCells(xlCellTypeVisible)
   
3.         s = s + 1
   
4.         If s = 2 Then Cells(1, "f") = Cells(x.Row, 1).Value: Exit Sub
   
5.     Next
   
6. End Sub
   

复制代码

工作表选择事件
x应该是单元格，请更改为 Target

秋意正浓

麻烦二楼写一个完整的代码，要将X改为TARGET，我有点不了解这方面的做法，谢谢了

E路人

秋意正浓 发表于 2012-9-14 14:04
麻烦二楼写一个完整的代码，要将X改为TARGET，我有点不了解这方面的做法，谢谢了

把X改成target 就行 。

风化石

Book1.rar (5.9 KB, 下载次数: 269)

2012-9-14 16:08 上传

点击文件名下载附件

风化石

如果只是为了取得筛选值，用函数最简单
=SUBTOTAL(109,A:A)（数据库函数：只计算显示的数据）