在 複合框的click 的程式碼裡面 結尾加幾條 if combobox1.value="" then exit sub if combobox1.value=1 then textbox1.value="張三"if combobox1.value=2 then textbox1.value="李四"

你需要在窗體裡插入ComboBox（複選框）控制元件，然後再窗體程式碼的“Initialize（窗體初始化）”事件裡新增下拉選擇專案即可。

Private Sub UserForm_Initialize()

ComboBox1.AddItem "男"

ComboBox1.AddItem "女"

End Sub

Sub addCheckbox() ActiveSheet.CheckBoxes.Add(495.75, 182.25, 57, 21).Select ActiveSheet.CheckBoxes.Add(493.5, 223.5, 63.75, 27).Select End Sub這個程式碼是新增兩個複選框的程式碼，其中的位置座標自己改