如何通過VBA程序來實現(xiàn)Excel表格翻頁？

1、啟動Excel 2013并打開工作表，按“Alt+F11”鍵打開Visual Basic編輯器。創(chuàng)建1個模塊，然后在該模塊的代碼窗口中創(chuàng)建兩個過程并分別編寫過程代碼，如圖1所示。這兩個過程的具體程序代碼如下。

圖1　創(chuàng)建模塊并添加過程代碼

01 Sub向上翻頁()

02 ActiveWindow.LargeScroll Down：=1

03 End Sub

04 Sub向下翻頁()

05 ActiveWindow.LargeScroll Down：=-1

06 End Sub

2、切換到Excel 2013程序窗口，打開“Excel選項”對話框。在左側(cè)列表中選擇“快速訪問工具欄”選項，在右側(cè)的“從下列位置選擇命令”下拉列表框中選擇“宏”選項，在其下的列表框中分別選擇剛才創(chuàng)建的宏代碼后單擊“添加”按鈕將它們添加到右側(cè)列表中，如圖2所示。

圖2　添加剛創(chuàng)建的宏

3、選擇“向上翻頁”選項后單擊“修改”按鈕打開“修改按鈕”對話框，在“符號”列表框中為該宏指定一個圖標(biāo)，如圖3所示。完成設(shè)置后單擊“確定”按鈕關(guān)閉“修改按鈕”對話框。然后使用相同的方法為名為“向下翻頁”的宏指定圖標(biāo)，完成設(shè)置后單擊“確定”按鈕關(guān)閉“Excel選項”對話框。

圖3　為宏指定圖標(biāo)

4、此時，Excel 2013的快速訪問工具欄中添加了“向下翻頁”和“向上翻頁”按鈕，單擊按鈕即可以實現(xiàn)工作表的向下翻頁或向上翻頁，如圖4所示。

圖4　單擊添加的按鈕實現(xiàn)翻頁操作