Question

excel vba combobox控件？

excel插入复选框，怎样设置复选框的默认值和下拉值，如初始默认显示“选择班组”，当选择下拉值的时候，复选框才显示为下拉值，帮忙看下以下代码问题，谢谢
Private Sub ComboBox1_click()
ComboBox1.Clear
ComboBox1.List = Array("P3211", "P3212", "P3213")
End Sub

Private Sub UserForm_Initialize()
ComboBox1.Text = "请选择班组"
End Sub

Answer 1

不是很清楚你这样做的原因。

1. 一般我自己会把组合框的下拉列表赋值写在UserForm_Initial。
2. 至于所谓初始值问题，完全可以再窗体复选框上方或左侧，加入一个标签Label1，标签属性里把内容写成"请选择班组"。
3. 用CLICK事件触发组合框下拉列表初始化的方法有待商榷。

---

Answer 2

Private Sub UserForm_Initialize()

ComboBox1.List = Array("P3211", "P3212", "P3213")

ComboBox1.ListIndex = 0 '0 1 2对应上面的1 2 3 

End Sub