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