Board logo

標題: [發問] 如何將標題每頁頁首顯示並顯示頁碼(非在預覽模式及版面上做設定) [打印本頁]
作者: air40020    時間: 2010-11-27 22:59     標題: 如何將標題每頁頁首顯示並顯示頁碼(非在預覽模式及版面上做設定)

[attach]3814[/attach]網路上在討論使用的方法為下

EXCEL GETDOCUMENT 公式
■ 定義兩個名稱：

插入＼名稱＼定義

◆ 第一個定義名稱：

「名稱」輸入「頁數編號」，「參照到」輸入下列公式
=IF(ISNUMBER(MATCH(ROW(),GET.DOCUMENT(64),1)),MATCH(ROW(),GET.DOCUMENT(64),1)+1,1)

◆ 第二個定義名稱：
「名稱」輸入「總頁數」，「參照到」輸入下列公式
=GET.DOCUMENT(50)

■ 工作表中建立公式
1.檔案＼列印範圍＼設定列印範圍

2.選定儲存格，建立以下公式 :
="第 " & 頁數編號 & " 頁"&"共 "&總頁數& "頁"


可是最後一個動作於工作表中建立程式則需要自己每頁頁首作設定
有沒有可以自動在頁首顯示標題列並顯示頁碼!!
作者: Hsieh    時間: 2010-11-28 00:46

回復 1# air40020


我覺得頁數頁碼由頁首設定
然後設定標題列就好
有必要用函數去寫到儲存格嗎?
作者: air40020    時間: 2010-11-28 22:54

這些功能確實在版面設定裡就可以設定的
但皆是在預覽列印或實際列印後才看的到
因在實際使用excel上需在標準模式下就可以看到標題及頁碼才有此詢問
至於會寫函數在儲存格上 是之前在網上爬文所看到的分享
但離所需仍有些差距
望各位大大有法子可分享
作者: oobird    時間: 2010-11-29 20:32

插入一個新工作表(Sheet2)
以下代碼放在Sheet1模組執行。
  1. Sub yy()
  2. With Sheet2
  3. [a1:d50].Copy .[a1]
  4. For i = 1 To 4
  5. .Columns(i).ColumnWidth = Columns(i).ColumnWidth
  6. Next
  7. For i = 51 To [a65536].End(3).Row Step 46
  8. [a2:d4].Copy .Cells(65536, 1).End(3).Offset(1, 0)
  9. Cells(i, 1).Resize(46, 4).Copy .Cells(65536, 1).End(3).Offset(1, 0)
  10. Next
  11. End With
  12. End Sub
複製代碼
作者: air40020    時間: 2010-12-6 20:44

感謝大大的分享^^我試試看!!
作者: air40020    時間: 2010-12-6 20:59

oobird 大大，我資料弄不出來==，可否用我的附件做處理、分享!  ^^
作者: Hsieh    時間: 2011-2-24 20:35

本帖最後由 Hsieh 於 2011-2-24 20:40 編輯

回復 6# air40020
GET.DOCUMENT(64)
將會產生一個分頁線所在列位的陣列
新增一個定義名稱x
=GET.DOCUMENT(64)
依你檔案的例子，這樣x就會是一個51，101這2個數值形成的陣列

E2=IF((ROW()=2)+ISNUMBER(MATCH(ROW(),x,0)),"第 " & 頁數編號 & " 頁"&"共 "&總頁數& "頁","")
向下複製

不過這種方式並不會因為分頁線增減變動而立即顯示
必須重新輸入公式，才會重算



歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)