こういう表があってこれをリストボックスにヘッダー付きで表示したいと思うじゃない
ユーザーフォームにリストボックス追加してサクサクっと書くじゃない
設定されないのよねぇ・・・って思っていたけどまぁ最終的にやりたいことはできてたから放置してたんですよ。
RowSourceプロパティに指定したセル範囲の1行上のセル範囲が、見出しとして使用されます。
引用元:リストボックスの値リストに列見出しを表示する設定ColumnHeadsで見出しが設定できない理由(Excel VBA)
なんだってー!?!?
やってみましょう
Sub korede() Dim re As Range Set re = Range(Range("A2"), Range("A1").CurrentRegion.SpecialCells(xlCellTypeLastCell)) UF1.ListBox1.RowSource = re.Address UF1.ListBox1.ColumnHeads = True UF1.Show End Sub
でけた!!
これは一度配列をワークシート作って書き出すしかないのかなぁって感じ
okwave.jp