通過VBA程序來(lái)實(shí)現(xiàn)Excel表格翻頁(yè)的方法

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

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

01 Sub向上翻頁(yè)()

02 ActiveWindow.LargeScroll Down：=1

03 End Sub

04 Sub向下翻頁(yè)()

05 ActiveWindow.LargeScroll Down：=-1

06 End Sub

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

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

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

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

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

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