Excel表格控制有一些简单方法，可以实现上下左右翻页功能。

通常我们在操作中用鼠标来完成上下翻页，其实Excel中，可以通过代码来实现。

滚动窗口内容使用的是window对象的SmallScroll方法

使用方法

表达式。SmallScroll(Down、 Up、 ToRight、了 toleft)

ActiveWindow.SmallScroll down:=2'向下滚动2行
ActiveWindow.SmallScroll up:=2'向上滚动2行
ActiveWindow.SmallScroll toleft:=2'向左滚动2列
ActiveWindow.SmallScroll toright:=2'向右滚动2列

示例效果

具体结果可以看左侧行号进行区别。

没有动态图，似乎不能很好地显示出滚动效果来。

具体这个功能有什么用，可以在实际应用中多加思考。

比如在成千上万行的数据表内用到，比如想一次滚动100行，这样就可以在文本框内输入100，然后单击按钮进行滚动操作。

实际应用中再进行实际修改。

代码也相对简单，完全做成了函数，可以方便调用。

下图是两个函数。

获取滚动行数函数

Function getSmallNumb() As Integer
    Dim tx As Variant
    Dim Tobj As Object
    Set Tobj = ActiveSheet.OLEObjects("TextBox1").Object
    tx = VBA.Trim(Tobj.Value)
    If Not VBA.IsNumeric(tx) Then
        getSmallNumb = 0
    Else
        getSmallNumb = tx
    End If
End Function

由于做了一个自定义滚动行数，所以在获取滚动行数时要进行处理。

实际应用中，这个功能还是有很大的自由度的。

按钮代码

Private Sub CommandButton1_Click()
　　ActiveWindow.SmallScroll down:=getSmallNumb＇向下滚动
　　setLabelCaption (Me.CommandButton1.Caption)
End Sub
Private Sub CommandButton2_Click()
　　ActiveWindow.SmallScroll up:=getSmallNumb’向上滚动
　　setLabelCaption (Me.CommandButton2.Caption)
End Sub