位置:首頁(yè) > 軟件操作教程 > 辦公軟件 > Excel > 問題詳情

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

提問人:周麗平發(fā)布時(shí)間:2021-08-31

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

image.png

圖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所示。

image.png

圖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ì)話框。

image.png

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

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

image.png

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

繼續(xù)查找其他問題的答案?

回復(fù)(0)
返回頂部