帖子: 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

超級版主 Rank: 8 Rank: 8

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

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

2^#

發表於 2010-11-28 00:46 | 只看該作者

回復 1# air40020

我覺得頁數頁碼由頁首設定
然後設定標題列就好
有必要用函數去寫到儲存格嗎?

學海無涯_不恥下問

TOP

air40020

小學生 Rank: 1

帖子: 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: 8 Rank: 8

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

論壇貢獻勳章

4^#

發表於 2010-11-29 20:32 | 只看該作者

插入一個新工作表(Sheet2)
以下代碼放在Sheet1模組執行。

Sub yy()
With Sheet2
[a1:d50].Copy .[a1]
For i = 1 To 4
.Columns(i).ColumnWidth = Columns(i).ColumnWidth
Next
For i = 51 To [a65536].End(3).Row Step 46
[a2:d4].Copy .Cells(65536, 1).End(3).Offset(1, 0)
Cells(i, 1).Resize(46, 4).Copy .Cells(65536, 1).End(3).Offset(1, 0)
Next
End With
End Sub

複製代碼

TOP

air40020

小學生 Rank: 1

帖子: 7
主題: 1
精華: 0
積分: 27
點名: 0
作業系統: XP
軟體版本: OFFICE 2003
閱讀權限: 10
性別: 女
註冊時間: 2010-11-12
最後登錄: 2011-3-23

5^#

發表於 2010-12-6 20:44 | 只看該作者

感謝大大的分享^^我試試看!!

TOP

air40020

小學生 Rank: 1

帖子: 7
主題: 1
精華: 0
積分: 27
點名: 0
作業系統: XP
軟體版本: OFFICE 2003
閱讀權限: 10
性別: 女
註冊時間: 2010-11-12
最後登錄: 2011-3-23

6^#

發表於 2010-12-6 20:59 | 只看該作者

oobird 大大，我資料弄不出來==，可否用我的附件做處理、分享! ^^

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

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

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

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

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

[收藏此主題] [關注此主題的新回復]

[通過 QQ、MSN 分享給朋友]