需要VBA建议

时间:2018-01-17 11:32:34

标签: excel vba activex

我需要根据用户选择选项按钮隐藏命令按钮。 我的Excel工作表上有两个选项按钮,一个用于“是”,一个用于“否”。如果选择“是”,则应该可以看到将工作表提交给电子邮件的命令按钮,如果选择“否”,则命令按钮应该是不可见的。 这就是我所拥有的,但它不起作用:

Sub OptionButton78_Click()
If Sheets("New Req").OptionButton78.Value = True Then
Sheets("New Req").CommandButton65.Enabled = True
Else
Sheets("New Req").CommandButton65.Enabled = False
End If
End Sub

新的代码行

Sub OptionButton78_Change()
    If OptionButton78 = True Then
        OptionButton79 = False
    Else
        OptionButton78 = True
    End If
End Sub

Sub Worksheet_Change()
     If ThisWorkbook.Sheets("New Req").Range("V1").Value = 2 Then
          ThisWorkbook.Sheets("New Req").Shapes("Rounded Rectangle 2").Visible = False
          Else
          ThisWorkbook.Sheets("New Req").Shapes("Rounded Rectangle 2").Visible = True
     End If
End Sub

1 个答案:

答案 0 :(得分:0)

如果您希望按钮完全消失,请使用其可见属性:

Sub OptionButton78_Click()
  If Sheets("New Req").OptionButton78.Value = True Then
    Sheets("New Req").CommandButton65.Visible = True
  Else
    Sheets("New Req").CommandButton65.Visible = False
  End If
End Sub