EXCEL VBA组合框中添加新的选项，
例如AAAA,BBBB,cccc让他们在下拉列表里，选中任意一项，使表A1中内容等于AAAA...
例如AAAA ,BBBB, cccc 让他们在下拉列表里，选中任意一项，使表A1中内容等于AAAA
展开
展开全部
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
DimRngAsRange
SetRng = Cells(1, 1)
WithRng.Validation
.Delete
.Add Type:=xlValidateList, Formula1:="字段1,字段2,字段3,..."
EndWith
SetRng =Nothing
EndSub
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
