Private Sub ComboBox1_Click()
[A1] = ComboBox1.Text '赋值到单元格
End Sub
Private Sub UserForm_Initialize()
ComboBox1.AddItem "AAAA" '添加
ComboBox1.AddItem "BBBB"
ComboBox1.AddItem "CCCC"
End Sub
SubMyList()
DimRngAsRange
SetRng = Cells(1, 1)
WithRng.Validation
.Delete
.Add Type:=xlValidateList, Formula1:="字段1,字段2,字段3,..."
EndWith
SetRng =Nothing
EndSub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024