VBAのコンボボックスのカラムについて

質問

以下のようにしてコンボボックスのカラムにも文字列が入るようにしております。

With ComboBox1
.AddItem "hogehoge"
ComboBox1.List(0, 1) = "aiueo"
End With

これによってコンボボックスをクリックして出てくるリストにはhogehogeとaiueoの両方が
出てきますが、これを選択するとhogehogeだけがコンボボックスに残され、
(0,1)にあった文字列は消えてしまいます。

リストから選択した後もコンボボックス内にカラムの文字を残すにはどのようにすればよろしいでしょうか？（できれば区切りありで）

よろしくお願いします。

回答No.2

nag0720 · ベストアンサー

失礼しました。
選択したあとのテキストのことだったのですね。

これはそういう仕様です。選択されるテキストは１カラム目の文字列だけです。
２カラム目もテキスト欄に表示したいのなら、自分でそのようなコードを書かなければいけません。

Private Sub ComboBox1_Click()
ComboBox1.Text = ComboBox1.List(ComboBox1.ListIndex, 0) & " , " & ComboBox1.List(ComboBox1.ListIndex, 1)
End Sub

お礼

お返事遅くなりまして申し訳ありません
バッチリできました、ありがとうございます。

回答No.1

nag0720

普通は消えません。
消えているのなら、どこかでコンボボックスを初期化したり、中身を変えたり、またはカラム数を変更しているのでしょう。
その場所を探し出し、どういうときのそれが実行されるのか調べてください。

補足

そういったものはございません。
新規に単純なコンボボックスを作りましたが、それでも選択後のコンボボックスには
２カラム目以降は表示されません、
元からそういうものなのでしょうかね？