|
おはようございます。
>ただ
>.ColumnHeads = True
>が効かないのです。
>理由は何故でしょう?
これは、ListboxのメンバをRowSourceプロパティを使って指定した時に有効になります。
例、
listbox1.rowsource="a2:a10"
と指定すると、ColumnHeads = Trueならば、セルA1がヘッダーとして表示されます。
ですから、りんさんが提示されたコードを
>Private Sub SpinButton1_Change()
> Dim num As Long
> With Me.SpinButton1
> num = (itemCount - 1) Mod 10 + 1
Me.ListBox1.rowsource = Worksheets("sheet1").Range("B" & .Value * 10 + 1).Resize(num, 3).address(,,,true)
> End With
>End Sub
だけではヘッダーが上記コードを実行するたびに変わってしまいますよね?
一度、
Worksheets("sheet1").Range("B" & .Value * 10 + 1).Resize(num, 3).address(,,,true)
この↑セル範囲のデータを別のシートにコピーして(ヘッダーを固定表示させるため)に
そのコピー後のセル範囲をrowsourceプロパティとして、指定する
という方法を検討してみてください。
|
|