excel怎么增加滚动条

Question

excel数据

Answer 1

vba。简单思路：
1、要么显示前8行；
2、要么显示中间8行；
3、要么显示后8行。参考代码：
Private Sub SpinButton1_Change()
    ''操作1~10行。
    Sheet1.Rows("1:10").EntireRow.Hidden = False
    Select Case SpinButton1.Value
    Case 0 ''后8行
        Sheet1.Rows("1:2").EntireRow.Hidden = True
    Case 1 ''中间8行
        Sheet1.Rows("1:1").EntireRow.Hidden = True
        Sheet1.Rows("10:10").EntireRow.Hidden = True
    Case 2 ''前8行
        Sheet1.Rows("9:10").EntireRow.Hidden = True
    End Select
End Sub