Question

在VBA中复合框赋值问题

吧复合框中的值赋值给以个变量
EG：复合框中的值是M8 我设定一个变量 DIM radius1 as variant
假如 M8 的值是10 就是将radius1赋值=10
求高手 解答 在线等 回答好的追加
AddItem "M8"
AddItem "M24"
AddItem "M16"
是标准螺栓 的规格
实现的这个功能就给分
一个复合框 一个文本框 单击复合框 “M8” 文本框中显示数据"10"(假如) 就OK了。
我刚刚学VB 实现这个功能就行 其余的我都解决了
最好留下QQ 做个朋友 日后交流 在线等

Answer 1

'两个公共变量
Public a '存放 M8|10 ……的对应关系
Public radius1 As Variant 'LZ需要的变量

Private Sub ComboBox1_Change() '组合框改变时的动作
Dim iStr As String
iStr = a(ComboBox1.ListIndex)
TextBox1.Value = Right(iStr, Len(iStr) - InStr(iStr, "|"))
radius1 = TextBox1.Value
MsgBox radius1
End Sub

Private 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 = -1
End If
End Sub

Answer 2

前提条件：在Excel中，M8表示第M列的第8行数据，M16、M24依此类推。

如果满足上述条件，完整代码不写了，关键代码如下：
Private Sub ComboBox1_Click()
Dim s As String
s = ComboBox1.Text
s = s & ":" & s
TextBox1.Text = Range(s).Value
End Sub

Answer 3

Option Explicit

Private Sub Combo1_Click()
Dim arr() As String
arr = Split(Combo1.List(Combo1.ListIndex), ",")
'Combo1.Text = arr(0)
Text1 = arr(1)
End Sub

Private Sub Form_Load()
Combo1.Clear
Combo1.AddItem "M8,10"
Combo1.AddItem "M16,20"
Combo1.AddItem "M24,30"
End Sub

Answer 4

radius1=ComboBox1.Value
刚才你HI我了？我QQ：605660513