|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
如何编写代码,使得指定单元格的内容发生变化时(此内容是通过公式得来的,非人工输入),自动执行某一动作。如下是我自己编写的,但无效:-------------------------------------------------------------------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
Dim a
If Target.Address="$A$3" Then
a = Cells(3, 2).Value
ActiveSheet.ListObjects("±í26").Range.AutoFilter Field:=1, Criteria1:=a
End If
End Sub
--------------------------------------------------------------------------------------------
以上,谢谢!
|
|