返回列表 上一主題 發帖

[發問] 如何將標題每頁頁首顯示並顯示頁碼(非在預覽模式及版面上做設定)

air40020

帖子
7 
主題
1 
精華
0 
積分
27 
點名
0  
作業系統
XP 
軟體版本
OFFICE 2003 
閱讀權限
10 
性別
女 
註冊時間
2010-11-12 
最後登錄
2011-3-23 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2010-11-27 22:59 | 只看該作者

[發問] 如何將標題每頁頁首顯示並顯示頁碼(非在預覽模式及版面上做設定)

3.rar (4.5 KB) 網路上在討論使用的方法為下

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

插入＼名稱＼定義

◆ 第一個定義名稱：

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

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

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

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


可是最後一個動作於工作表中建立程式則需要自己每頁頁首作設定
有沒有可以自動在頁首顯示標題列並顯示頁碼!!
收藏 分享

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
142  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2026-7-16 

2025年全勤獎章2024年全勤獎章2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
2#
發表於 2010-11-28 00:46 | 只看該作者
回復 1# air40020


我覺得頁數頁碼由頁首設定
然後設定標題列就好
有必要用函數去寫到儲存格嗎?
學海無涯_不恥下問

TOP

air40020

帖子
7 
主題
1 
精華
0 
積分
27 
點名
0  
作業系統
XP 
軟體版本
OFFICE 2003 
閱讀權限
10 
性別
女 
註冊時間
2010-11-12 
最後登錄
2011-3-23 
3#
發表於 2010-11-28 22:54 | 只看該作者
這些功能確實在版面設定裡就可以設定的
但皆是在預覽列印或實際列印後才看的到
因在實際使用excel上需在標準模式下就可以看到標題及頁碼才有此詢問
至於會寫函數在儲存格上 是之前在網上爬文所看到的分享
但離所需仍有些差距
望各位大大有法子可分享

TOP

oobird
　頭銜: 街友一族

超級版主Rank: 8Rank: 8

帖子
1572 
主題
16 
精華
2 
積分
1521 
點名
0  
作業系統
xp 
軟體版本
office 2003 
閱讀權限
150 
性別
男 
註冊時間
2010-5-1 
最後登錄
2016-1-13 

論壇貢獻勳章
4#
發表於 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
複製代碼

TOP

air40020

帖子
7 
主題
1 
精華
0 
積分
27 
點名
0  
作業系統
XP 
軟體版本
OFFICE 2003 
閱讀權限
10 
性別
女 
註冊時間
2010-11-12 
最後登錄
2011-3-23 
5#
發表於 2010-12-6 20:44 | 只看該作者
感謝大大的分享^^我試試看!!

TOP

air40020

帖子
7 
主題
1 
精華
0 
積分
27 
點名
0  
作業系統
XP 
軟體版本
OFFICE 2003 
閱讀權限
10 
性別
女 
註冊時間
2010-11-12 
最後登錄
2011-3-23 
6#
發表於 2010-12-6 20:59 | 只看該作者
oobird 大大，我資料弄不出來==，可否用我的附件做處理、分享!  ^^

TOP

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
142  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2026-7-16 

2025年全勤獎章2024年全勤獎章2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
7#
發表於 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)),"第 " & 頁數編號 & " 頁"&"共 "&總頁數& "頁","")
向下複製

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

TOP

        靜思自在 : 時時好心就是時時好日。
返回列表 上一主題