1

ExcelVBAユーザーフォームで2列のルックアップコンボボックスを作成する方法を教えてください。私はこのようなものを作成しようとしています：

ここに画像の説明を入力してください

次のような方法を使用して、コンボボックスにアイテムを追加できることを知っています。

Private Sub UserForm_Initialize()
  With Me.ComboBox1
    .AddItem "215"
    .AddItem "316"
    .AddItem "485"
   End With
End Sub

しかし、私は215,316,485などのハンマーのようなvalyesに関連付けられた値を生成する必要があります...お時間をいただきありがとうございます、

4

1 に答える 1

3

2次元配列を入力しList、ComboBoxのプロパティをその配列に設定します。

Dim listEntries(3, 2) As Variant

listEntries(0, 0) = "215"
listEntries(0, 1) = "Hammer"
listEntries(1, 0) = "316"
listEntries(1, 1) = "Wrench"
listEntries(2, 0) = "485"
listEntries(2, 1) = "Pliers"

Me.ComboBox1.List = listEntries

ColumnWidthsそれに応じてとTextColumnプロパティを調整する必要がある場合もあります

于 2012-11-14T04:32:53.747 に答える