我創建了一個用戶表單，其中有一個組合框和一個文本框。我的目標是單擊組合框中的元素后，它會顯示鍵、ID 或分配的任何內容。
這是我走了多遠：
Private Sub UserForm_Initialize()
With ComboBox1
.AddItem "Item1", A
.AddItem "Item2", B
.AddItem "Item3", C
End With
End Sub
Private Sub ComboBox1_Change()
Me.TextBox1.Value = Me.ComboBox1.ListIndex
End Sub
此代碼有效，但我得到的不是字母，而是從 0 向上的數值。我知道這是由于 listindex 屬性。但是必須有一種方法可以正確獲取字母，這樣如果我在 ComboBox 中選擇 Item1，則 TextBox 中的字母 A 應該彈出，如果選擇 Item2，則 B 應該彈出，依此類推。
uj5u.com熱心網友回復：
在下面定義你的ListValues喜歡
Option Explicit
Private Sub UserForm_Initialize()
Dim ListValues(2, 1) As Variant
ListValues(0, 0) = "Item1"
ListValues(0, 1) = "A"
ListValues(1, 0) = "Item2"
ListValues(1, 1) = "B"
ListValues(2, 0) = "Item3"
ListValues(2, 1) = "C"
With ComboBox1
.List = ListValues
End With
End Sub
Private Sub ComboBox1_Change()
Me.TextBox1.Value = Me.ComboBox1.List(Me.ComboBox1.ListIndex, 1)
End Sub
轉載請註明出處，本文鏈接：https://www.uj5u.com/caozuo/451400.html
上一篇：從單元格中提取數字的特定結構