A1：C1のデータをコンボボックスに表示したい

質問

度々失礼します。

図のように
横に表示されている値を
コンボボックスに縦に表示する事は不可能でしょうか？

コンボボックスには
あ
い
う

と縦に表示したいです。

Private Sub UserForm_Initialize()
Me.ComboBox1.RowSource = "a1:c1"
End Sub
をやっても
図のように「あ」しか表示されません。

行列入れ替え機能みたいなのがあればなって思っています。
よろしくお願いします。

回答No.2

imogasi · ベストアンサー

B1:D1
氏名 住所 番号
の時
Private Sub UserForm_Initialize()
For i = 2 To 4
MsgBox Worksheets("Sheet1").Cells(1, i)
UserForm1.ComboBox1.AddItem Worksheets("Sheet1").Cells(1, i)
Next i
End Sub

お礼

ありがとうございました。

回答No.1

keithin

たとえば
me.combobox1.list = application.transpose(worksheets("シート名").range("A1:C1"))
などのように。

お礼

ありがとうございました。