excel vba 中ActiveX 控件关联，按钮有表单控件（也叫窗体控件）的按钮

Private Sub CommandButton1_Click()
call 宏一
End Sub
我是“查看代码”中写入call 宏一（表格中有宏一这个代码）
点执行Private Sub CommandButton1_Click()时，宏一没有执行，是什么原因

试试 call 模块1.宏一

组合框是不是combobox? 是不是要类联动？

建userform1 ,两个表，名称分别为 姓名 选项。

拖三个combobox控件分别为combobox1，combobox2，combobox3

复制下列代码。

private sub combobox1_change() combobox2.clear h = combobox1.value for a = 1 to 100 g = vba.left(sheets("选项").cells(a, 2), 2) if g = h then d = sheets("选项").cells(a, 2) combobox2.additem d end if next a end sub

private sub userform_initialize() dim a as integer i = 1 c = worksheetfunction.counta(sheets("选项").range("a:a")) for a = 1 to 99 i = i + 1 b = sheets("选项").cells(i, 1) f = sheets("姓名").cells(i, 1) if b <> "" then combobox1.additem b combobox3.additem f end if next a end sub

------------------------------------------------------------------------------