ComboBoxのリスト一覧から選択すると3セル分のうち１セル分しか表示されない。

エクセルVBAで初歩的な質問で申し訳ないのですが、ご教授お願いします。
CommandButtonイベントで下記を実行し
Sheet2から3セル行の各文字を引っ張って
きます。ComboBox1のリスト一覧には3セル行表示されますが、
リスト選択するとComboBox1には3セルのうち１セルしか
表示されません。
何が足らないのでしょうか？

Private Sub CommandButton5_Click()
TextBox1.Value = CommandButton5.Caption
With ComboBox1
.ColumnCount = 3
.ColumnWidths = "50;50;50"
.RowSource = "Sheet2!A4:D" & "A30"
End With

End Sub

宜しくお願いします。

行動規範の内容に同意します

回答2件

私も、radames1000さんの様にリストボックス活用の方が扱い易いと思います。
サンプル載せて置きます
VBA

Private Sub CommandButton1_Click()
'項目をListBox1へ表示する
Dim n As Long

With Worksheets("サンプルマクロ")
    n = .Cells(Rows.Count, 1).End(xlUp).Row
End With
With UserForm2.ListBox1
    .ColumnCount = 3
    .ColumnWidths = "30;50;30"
    .RowSource = "サンプルマクロ!A2:C" & n
    .ColumnHeads = True
End With

End Sub

Private Sub ListBox1_Click()
'クリックした項目をセルに表示する
Dim n As Long, i As Long
Dim ListNo As Long
ListNo = ListBox1.ListIndex

    With Worksheets("サンプルマクロ")
        n = .Cells(Rows.Count, 8).End(xlUp).Row
    For i = 0 To 2
        .Cells(n + 1, i + 8).Value = UserForm2.ListBox1.List(ListNo, i)
    Next i
    End With

End Sub

投稿2020/12/24 07:57

syousuke.33

総合スコア312

ABBA

2020/12/25 10:53

ご教授ありがとうございます。態々、画像まで載せて頂き恐縮でございます。サンプルソースを参考にリストボックスで書いて見たいと思います。コンボックスは以外と応用が利かないのですね。

行動規範の内容に同意します

ベストアンサー

コンボボックスには表示される列を指定するプロパティしかありません。
このため通常は3セルを表示させることはできません。

TextColumn プロパティ

無理矢理表示させようと思えばできますが、
コンボボックスの値を使う際に考慮が必要になります。

VBA
1Private Sub ComboBox1_Change()
2
3Dim i As Long
4With ComboBox1
5    i = .ListIndex
6    If i = -1 Then Exit Sub
7    .Text = .List(i, 0) & " " & .List(i, 1) & " " & .List(i, 2)
8End With
9
10End Sub