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 IfEnd Function 由于做了一个自定义滚动行数，所以在获取滚动行数时要进行处理。
实际应用中，这个功能还是有很大的自由度的。
按钮代码Private Sub CommandButton1_Click() ActiveWindow.SmallScroll down:=getSmallNumb＇向下滚动 setLabelCaption (Me.CommandButton1.Caption)End SubPrivate Sub CommandButton2_Click() ActiveWindow.SmallScroll up:=getSmallNumb’向上滚动 setLabelCaption (Me.CommandButton2.Caption)End Sub 
