Question

我有一个验证框，其中存储了许多销售渠道，即＆＃34; SME100＆＃34;，＆＃34;间接＆＃34;等...

现在我已经设置了一个自动过滤系统，但是我想要创建一个事件来表明，＆＃34;当cell＆＃34; B2＆＃34;更改然后激活＆＃39; Auto_Filter＆＃39;＆＃34;。

这是我现在拥有的。它没有返回错误消息，但是当我在前端测试它时，它也不会运行宏。

Private Sub CellChangeFilter()

Dim Tariff_Selection As String
    Set Tariff_Selection = Cell("B1")

If Tariff_Selection = "" Then Auto_Filter

End Sub

正如您所看到的，我为特定单元格创建了一个我希望事件监控的变量。

Answer 1

如前所述，Worksheet_Change就是你想要的。试试这个： -

Private Sub Worksheet_Change(ByVal Target As Range)

   If (Target.Address = Range("B2").Address) Then

     Debug.Print "Cell B2 was edited in some way"

     Auto_Filter

   End If

End Sub

由细胞变化触发的事件

1 个答案: