在VBA中复合框赋值问题 200
1个回答
展开全部
'两个公共变量Public a '存放 M8|10 ……的对应关系Public radius1 As Variant 'LZ需要的变量Private Sub ComboBox1_Change() '组合框改变时的动作Dim iStr As StringiStr = a(ComboBox1.ListIndex)TextBox1.Value = Right(iStr, Len(iStr) - InStr(iStr, "|"))radius1 = TextBox1.ValueMsgBox radius1End SubPrivate Sub UserForm_Initialize() '窗体载入时的动作a = Split("M8|10,M16|20,M24|30", ",")If ComboBox1.ListCount <> UBound(a) + 1 Then For i = LBound(a) To UBound(a) ComboBox1.AddItem Left(a(i), InStr(a(i), "|") - 1) Next ComboBox1.ListIndex = -1End IfEnd Sub
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
|
广告 您可能关注的内容 |
