EXCEL VBA组合框中添加新的选项,

发布网友发布时间：2022-04-30 04:54

共2个回答

热心网友时间：2023-10-14 09:47

Private Sub ComboBox1_Click()
    [A1] = ComboBox1.Text '赋值到单元格
End Sub
Private Sub UserForm_Initialize()
    ComboBox1.AddItem "AAAA"   '添加
    ComboBox1.AddItem "BBBB"
    ComboBox1.AddItem "CCCC"
End Sub

热心网友时间：2023-10-14 09:47

SubMyList()
DimRngAsRange
SetRng = Cells(1, 1)
WithRng.Validation
.Delete
.Add Type:=xlValidateList, Formula1:="字段1,字段2,字段3,..."
EndWith
SetRng =Nothing
EndSub

热心网友时间：2023-10-14 09:47

Private Sub ComboBox1_Click()
    [A1] = ComboBox1.Text '赋值到单元格
End Sub
Private Sub UserForm_Initialize()
    ComboBox1.AddItem "AAAA"   '添加
    ComboBox1.AddItem "BBBB"
    ComboBox1.AddItem "CCCC"
End Sub

热心网友时间：2023-10-14 09:47

SubMyList()
DimRngAsRange
SetRng = Cells(1, 1)
WithRng.Validation
.Delete
.Add Type:=xlValidateList, Formula1:="字段1,字段2,字段3,..."
EndWith
SetRng =Nothing
EndSub

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com