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由于做了一个自定义滚动行数，所以在获取滚动行数时要进行处理。
实际应用中，这个功能还是有很大的自由度的。