|
Michiko さん、こんにちわ。
>スピンボタンで10行単位で移動させています。
>3列の表示が出来ません(B〜D列の3列)
itemCountの宣言の位置を外に出して、Resizeの列拡張の値を変更しました。
あと、不要とおもわれる行は削除しましたがいかがでしょうか。
Dim itemCount As Long
Private Sub UserForm_Initialize()
itemCount = Worksheets("sheet1").Range("B500").End(xlUp).Row
Me.SpinButton1.Max = WorksheetFunction.RoundUp(itemCount / 10, 0) - 1
'
With ListBox1
.ColumnCount = 3
.ColumnWidths = "25;25;25"
.ColumnHeads = True
End With
'
SpinButton1_Change
End Sub
Private Sub SpinButton1_Change()
Dim num As Long
With Me.SpinButton1
num = (itemCount - 1) Mod 10 + 1
Me.ListBox1.List = Worksheets("sheet1").Range("B" & .Value * 10 + 1).Resize(num, 3).Value
End With
End Sub
こんな感じです。
|
|