VBA ComboBoxについて

こちらのコードでコンボボックスにリスト一覧は表示させられるのですが
選択したら1列目のみになってしまいます
こちらとしては3列目のみ表示させたいですどのようにしたらよいでしょうか？

Private Sub UserForm_Initialize()
Dim lRow As Long
With Worksheets("Sheet2")
lRow = .Range("I" & Rows.Count).End(xlUp).Row
End With
With ComboBox6
.ColumnCount = 3
.ColumnWidths = "40;32;20"
.RowSource = "Sheet2!I2:K" & lRow
End With
End Sub

No.2 回答者： Qchan1962 回答日時： 2022/10/21 13:09

＞転記した時は・・・

ご質問には無いと思いますが・・・？

ついでなのでお答えします
ComboBox6.Text　で表示された文字列は取得できます
表示されていないItemを取得する方法もありますので　そこは自身で調べてください

No.1 回答者： Qchan1962 回答日時： 2022/10/21 12:43

こんにちは

都度変更が必要な場合はVBAで
そうでない場合はオブジェクトのプロパティ（TextColumn）をあらかじめ設定します
添付図を参照の事

この回答へのお礼

回答ありがとうございます
TextColumn変更して表示はできましたが転記した時は表示通りになりませんが

お礼日時：2022/10/21 12:56