如何显示和隐藏VBA控件中的按钮？

2025-01-18 16:47:46

推荐回答（4个）

回答1：

显示和隐藏VBA控件中的按钮直接设置如下的命令即可：

Sub s()

CommandButton1.Visible = False'隐藏按钮CommandButton1

CommandButton1.Visible = True'显示按钮CommandButton1

End Sub

Sub 过程是包含在 Sub 语句和 End Sub 语句中的一系列 Visual Basic 语句。每次调用过程时都执行过程中的语句，从 Sub 语句后的第一个可执行语句开始，到遇到的第一个 End Sub、Exit Sub 或 Return 语句结束。

扩展资料：

显示和隐藏VBA控件中的按钮Sub语句的注意事项：

声明过程的每个参数与声明变量的方法一样，都是指定参数名和数据类型。也可以指定传递机制，以及参数是否可选。

参数列表中每个参数的语法如下所示：

[Optional] [ByVal|ByRef] [ParamArray] argumentname As datatype

如果参数是可选的，则还必须在其声明中提供默认值，如下所示：

Optional [ByVal|ByRef] argumentname As datatype = defaultvalue

参考资料来源：百度百科-SUB

参考资料来源：百度百科-Visual Basic宏语言

回答2：

问题1：
cbmWYPD.Visible = True '显示按钮
cbmWYPD.Visible=False '隐藏按钮
不过建议你用一个按钮不同Caption属性来控制,没必要用两个按钮控件来做
比如用cbmWYPD按钮
cbmWYPD按钮的Caption属性可以在写书籍状态的label时写入
Private Sub cbmWYPD_Click()
if cbmWYPD.Caption="我要排队" then
你要执行的操作
end if
if cbmWYPD.Caption="我要借阅" then
你要执行的操作
end if
end sub

问题2：
说明:工作表的range("A:A").value 是一个多维数组要赋值给你一个空的cbSJMC.List要转换成一个1维的数组,所以用WorksheetFunction.Transpose转置一下把他变成一维)
cbSJMC.List=WorksheetFunction.Transpose(Sheets("辅助页").Range("A:A").Value)

回答3：

Sub s()
    CommandButton1.Visible = False'隐藏按钮CommandButton1
    CommandButton1.Visible = True'显示按钮CommandButton1
End Sub

回答4：

这些东西你自己写判断语句去做就行了.
方法是: 这个判断语句一般是放在各个文本框的Change事件中
比如: 根据书籍状态决定"我要排除"是否可用.(注意enabled只是表示是否可点击,如果你要直接隐藏的话,应该用visible属性)

if lbSJZT.value="在库" then
cbmWYPD.Enabled = False
else
cbmWYPD.Enabled = true
endif