請問儲存格中可以設定頁數之自動變更嗎?

[Amy Lee]

請問儲存格中可以設定頁數之自動變更嗎? (如設定頁首中之頁數的方式...)

[crdotlin]

如果是總頁數是可以的
定義一個名稱
【插入】【名稱】【定義】
名稱數入totalPages
參照輸入=Get.Document(50)

在任一儲存格上輸入公式=totalPages看看

至於本儲存格位於第幾頁? 尚須高手提示

[crdotlin]

對不起
自動變更似乎有問題
請再驗證
--
http://crdotlin.vgocities.net/plog/


"crdotlin" 來函：

Post by crdotlin
如果是總頁數是可以的
定義一個名稱
【插入】【名稱】【定義】
名稱數入totalPages
參照輸入=Get.Document(50)
在任一儲存格上輸入公式=totalPages看看
至於本儲存格位於第幾頁? 尚須高手提示
--
http://crdotlin.vgocities.net/plog/
"Amy Lee" 來函：

Post by Amy Lee
請問儲存格中可以設定頁數之自動變更嗎? (如設定頁首中之頁數的方式...)

[crdotlin]

您好

關於儲存格所在頁數chijanzen已有回覆
對於總頁數可以改使用selectionchange事件來改善
請將下面代碼放在工作表模組, A1將顯示總頁數
只要Selection改變都會檢查並更新
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Me.Range("a1") = Application.ExecuteExcel4Macro("get.document(50)")
End Sub

[Amy Lee]

您好,
謝謝您的回覆...^^


"crdotlin" 來函：

Post by crdotlin
您好
關於儲存格所在頁數chijanzen已有回覆
對於總頁數可以改使用selectionchange事件來改善
請將下面代碼放在工作表模組, A1將顯示總頁數
只要Selection改變都會檢查並更新
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Me.Range("a1") = Application.ExecuteExcel4Macro("get.document(50)")
End Sub
--
http://crdotlin.vgocities.net/plog/
"Amy Lee" 來函：

Post by Amy Lee
請問儲存格中可以設定頁數之自動變更嗎? (如設定頁首中之頁數的方式...)