|
スピンボタンで10行単位で移動させています。
B列の1行の表示は出来たのですが…
3列の表示が出来ません(B〜D列の3列)
方法をアドバイスお願いします。
Private Sub UserForm_Initialize()
Dim itemCount As Long
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
' .RowSource = "B1:D" & Cells(Rows.Count, 3).End(xlUp).Row
'End With
'Me.ListBox1.List = Rows(21)
SpinButton1_Change
End Sub
Private Sub SpinButton1_Change()
Dim num As Long
Dim itemCount As Long
With Me.SpinButton1
num = 10
If .Value = .Max Then
If itemCount Mod 10 <> 0 Then
num = itemCount Mod 10
End If
End If
Me.ListBox1.List = Worksheets("sheet1").Range("B" & .Value * 10 + 1).Resize(num, 2).Value
End With
End Sub
|
|