Question

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

问题1：
如何显示和隐藏按钮，这代码怎么写？

如“图1"所示，
当书籍状态一栏出现“在库”时，按钮“我要排队”隐藏,“我要借阅”显示，
当书籍状态一栏出现“j借阅中”时，按钮“我要排队”显示,“我要借阅”隐藏，
当书籍状态一栏不为空时（既书籍已经处于借阅状态，且有人在排队了），按钮“我要排队”和“我要借阅” 都隐藏。
（当然啦，确定按钮是一直显示）
附：书籍状态栏控件名称为：lbSJZT
排队情况栏控件名称为：lbPDQK
我要排队按钮名称为：cbmWYPD
我要借阅按钮名称为：cbmWYJY

问题2：
如何指定下拉菜单？

如图： 如何将comboBox（复合框）控件的下拉菜单中的选项指定为某工作表中的某特定位置。

例如“图2”中这个comboBox（复合框控件）（名称是 cbSJMC），要将它的下拉菜单指定到"辅助页"表的“A列”。
该如何写代码啊？

Answer 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宏语言

Answer 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)

Answer 3

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

Answer 4

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

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