excel中VBA窗体复合框怎么设置菜单
1、显示call——设置text属性为call就OK啦
2、为call时，单击OK按钮，弹出inputbox对话框，OKbutton设置click事件代码，if listbox(下拉列表框)text=“call” then userform1.show(加载窗体，这个要具体设置)
3、其他的太复杂了
VBA窗体复合框，添加下拉项后。当下拉项只有一种时如何默认选中第一个？
在后面增加一句即可：
If ComboBox1.ListCount = 1 Then ComboBox1.ListIndex = 0
vba窗体复合框。
Private Sub ComboBox1_AfterUpdate()
'在通过用户界面更改了控件中的数据后，此事件发生
End Sub
Private Sub ComboBox1_BeforeDragOver(ByVal Cancel As MSForms.ReturnBoolean, ByVal Data As MSForms.DataObject, ByVal X As Single, ByVal Y As Single, ByVal DragState As MSForms.fmDragState, ByVal Effect As MSForms.ReturnEffect, ByVal Shift As Integer)
'当拖放操作正在进行时该事件发生
End Sub
Private Sub ComboBox1_BeforeDropOrPaste(ByVal Cancel As MSForms.ReturnBoolean, ByVal Action As MSForms.fmAction, ByVal Data As MSForms.DataObject, ByVal X As Single, ByVal Y As Single, ByVal Effect As MSForms.ReturnEffect, ByVal Shift As Integer)
'当用户即将在一个对象上放置或粘贴数据时，该事件发生
End Sub
Private Sub ComboBox1_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
'控件中的数据被改变之前该事件发生
End Sub
Private Sub ComboBox1_Change()
'当Value属性改变时该事件发生
End Sub
Private Sub ComboBox1_Click()
'单击
End Sub
Private Sub ComboBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
'双击
End Sub
Private Sub ComboBox1_DropButtonClick()
’当下拉列表出现或消失时，该事件发生
End Sub
Private Sub ComboBox1_Enter()
'激活
End Sub
Private Sub ComboBox1_Error(ByVal Number As Integer, ByVal Description As MSForms.ReturnString, ByVal SCode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, ByVal CancelDisplay As MSForms.ReturnBoolean)
'当控件检测到一个错误，并且不能将该错误信息返回调用程序时该事件发生
End Sub
Private Sub ComboBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
'按下键盘按键
End Sub
Private Sub ComboBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
'键盘输入
End Sub
Private Sub ComboBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
'释放键盘按键
End Sub
Private Sub ComboBox1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
'按下鼠标
End Sub
Private Sub ComboBox1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
'鼠标移动
End Sub
Private Sub ComboBox1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
'释放鼠标
End Sub
如何 将vba中的复合框 做成一个下拉菜单
style 设置为2