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
