Question

由于公司媒体政策，我无法粘贴代码。我花了几周的时间在网上冲浪，寻找下面遇到的障碍。因为这是我的第一个vba编码，我终于被卡住了

我所拥有的是一个包含4个选项的下拉框：

一个选项使button13（或在此情况下按钮名称“值班”）可见或启用，其他3个全部无效。

我试过了
```
if range (“b4”) = “on duty” then
        Button13.enabled = true  and tried (name.enabled = true)
    Else
        Button13.enabled = false (name.enabled = false)
```
（sheet1）上有一个不同的下拉框，其中包含4个选项，其中2个我需要将它们放在上面的一行上，然后运行到另一个（sheet2），因为它运行了24小时，我一直在使用Now date format但需要now date time上的update（表1）

到目前为止，我所能找到的是公式的自动更新，因为这是基于下拉框而不是用户表单。

Answer 1

如果B4 =“值班”，则隐藏表格按钮

Sub HideButton2()
    If Range("B4") = "on duty" Then
        ActiveSheet.Shapes("Button 2").Visible = False
    Else
        ActiveSheet.Buttons("Button 2").Visible = True
    End If
End Sub

下拉框启用按钮

1 个答案: