新用戶(hù)掃碼下載
掃碼下載APP
及時(shí)接收最新考試資訊及
備考信息
Excel工作表的頁(yè)碼設(shè)置在任意單元格中
方法一，用VBA
Function page()
page = (ActiveSheet.HPageBreaks.Count + 1) * (ActiveSheet.VPageBreaks.Count + 1)
Application.Volatile
End Function
用VBA本人只知道總頁(yè)碼的方法，當(dāng)前頁(yè)碼就難倒我了，還請(qǐng)VBA高手指教
方法二，用宏表函數(shù)與公式
1. 首先：點(diǎn)CTRL+F3打開(kāi)定義名稱(chēng)，再在上面輸入“縱當(dāng)頁(yè)”，在下面引用位置處輸入：
=IF(ISNA(MATCH(ROW(),GET.DOCUMENT(64))),1,MATCH(ROW(),GET.DOCUMENT(64))+1)
2.然后再繼續(xù)添加第二個(gè)名稱(chēng)：“橫當(dāng)頁(yè)”，在下面引用位置處輸入：
=IF(ISNA(MATCH(column(),GET.DOCUMENT(65))),1,MATCH(column(),GET.DOCUMENT(65))+1)
3.再輸入“總頁(yè)”；引用位置處輸入：
=GET.DOCUMENT(50)+RAND()*0
4.最后再定義“頁(yè)眉”，引用位置：
="第"&IF(橫當(dāng)頁(yè)=1,縱當(dāng)頁(yè),橫當(dāng)頁(yè)+縱當(dāng)頁(yè))&"頁(yè)/共"&總頁(yè)&"頁(yè)"
5.在函數(shù)欄使用應(yīng)用即可得到需要的頁(yè)碼。
責(zé)任編輯：zoe
實(shí)務(wù)學(xué)習(xí)指南
距6月報(bào)稅結(jié)束還有天
新用戶(hù)掃碼下載
京公網(wǎng)安備 11010802044457號(hào)