Worksheet_Calculate隐藏命令button

我发现下面的代码为Worksheet_Change 。 但是我的H29是公式=SUM 。 如何将其更改为Worksheet_Calculate以便下面的macros将运行？

基本上我想要的是如果H29计算为等于20，显示button，否则隐藏它。

 Private Sub Worksheet_Change(ByVal Target As Range) Application.ScreenUpdating = False If Target = Range("H29") Then If Target.Value = "20" Then Me.CommandButton1.Visible = True Else Me.CommandButton1.Visible = False End If Application.ScreenUpdating = True End If 

Answer 1

取决于buttontypes，指示button的代码将会不同。 尝试这个。

 Private Sub Worksheet_Calculate() 'ActiveX button If Range("H29").Value = 20 Then Sheets("Sheet1").CommandButton2.Visible = False Else Sheets("Sheet1").CommandButton2.Visible = True End If 'Forms Button If Range("H29").Value = 20 Then Sheets("Sheet1").Shapes("CommandButton1").Visible = msoFalse Else Sheets("Sheet1").Shapes("CommandButton1").Visible = msoTrue End If End Sub 

Answer 2

对不起，问太快了。 解决

 Private Sub Worksheet_Calculate() 'ActiveX button Application.ScreenUpdating = False If Range("H29").Value = 20 Then Me.CommandButton1.Visible = True Else Me.CommandButton1.Visible = False End If Application.ScreenUpdating = True End Sub