更改单元格时自动执行/触发CommandButton_Click()

时间:2017-01-22 11:15:12

标签: excel vba excel-vba

我有一个Excel VBA代码(在Sheet1中)当列(I)中的任何单元格被更改然后触发MessageBox并且说:"列(I)中的值被更改。" 我有一个CommandButton_Click()(在Sheet2中)。

我想要做的是每当在Column(I)中更改单元格时(在Sheet1中)使CommandButton_Click()(在Sheet2中)自动触发并且"单击" (我的意思是我想让按钮自动执行,所以我不必手动点击按钮)。 任何时候用户改变特定列的单元格,或者"调用CommandButton_Click()"或者做到" True"。

有没有办法让它成真?谢谢您的帮助! 最好的问候:汤姆

1 个答案:

答案 0 :(得分:0)

您可以在Sheet1代码窗格中编写这样的代码:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Range("I:I"), Target) Is Nothing Then
        MsgBox "A value in Column (I) was changed"
        Worksheets("Sheet2").CommandButton1.Value = True
    End If
End Sub