Mar
22
Excel-如何在儲存格裡設定總頁數?
EXCEL GETDOCUMENT 公式
■ 定義兩個名稱:
插入\名稱\定義
◆ 第一個定義名稱:
「名稱」輸入「頁數編號」,「參照到」輸入下列公式
=IF(ISNUMBER(MATCH(ROW(),GET.DOCUMENT(64),1)),MATCH(ROW(),GET.DOCUMENT(64),1)+1,1)
◆ 第二個定義名稱:
「名稱」輸入「總頁數」,「參照到」輸入下列公式
=GET.DOCUMENT(50)
■ 工作表中建立公式
1.檔案\列印範圍\設定列印範圍
2.選定儲存格,建立以下公式 :
="第 " & 頁數編號 & " 頁"&"共 "&總頁數& "頁"
GET.DOCUMENT裡應有 89 個參數
其中
1 文件名稱
2 儲存路徑
3 文件型態
8 視窗保護
9 第一使用列號
10 最後使用列號
11 第一使用欄號
12 最後使用欄號
14 計算類型
16 反覆運算最高次數
17 最大誤差
18 更新遠程參照
19 活頁簿以顯示值為準
20 1904年日期系統
21 標準字體
22 字體大小
34 建議唯讀
35 修改權設定密碼
36 使用者名稱
41 物件
43 儲存外部連結資料
48 標準欄寬
50 共印幾頁
52 邊界
53 頁面方向
54 自訂頁首
55 自訂頁尾
56 水平置中
57 列印欄名列號
58 列印格線
59 儲存格單色列印
61 循欄或列列印
62 版面設定縮放比例
65 視窗可見欄數
68 檔案名稱
76 同1
88 同68
引用
EXCEL GETDOCUMENT 公式
■ 定義兩個名稱:
插入\名稱\定義
◆ 第一個定義名稱:
「名稱」輸入「頁數編號」,「參照到」輸入下列公式
=IF(ISNUMBER(MATCH(ROW(),GET.DOCUMENT(64),1)),MATCH(ROW(),GET.DOCUMENT(64),1)+1,1)
◆ 第二個定義名稱:
「名稱」輸入「總頁數」,「參照到」輸入下列公式
=GET.DOCUMENT(50)
■ 工作表中建立公式
1.檔案\列印範圍\設定列印範圍
2.選定儲存格,建立以下公式 :
="第 " & 頁數編號 & " 頁"&"共 "&總頁數& "頁"
GET.DOCUMENT裡應有 89 個參數
其中
1 文件名稱
2 儲存路徑
3 文件型態
8 視窗保護
9 第一使用列號
10 最後使用列號
11 第一使用欄號
12 最後使用欄號
14 計算類型
16 反覆運算最高次數
17 最大誤差
18 更新遠程參照
19 活頁簿以顯示值為準
20 1904年日期系統
21 標準字體
22 字體大小
34 建議唯讀
35 修改權設定密碼
36 使用者名稱
41 物件
43 儲存外部連結資料
48 標準欄寬
50 共印幾頁
52 邊界
53 頁面方向
54 自訂頁首
55 自訂頁尾
56 水平置中
57 列印欄名列號
58 列印格線
59 儲存格單色列印
61 循欄或列列印
62 版面設定縮放比例
65 視窗可見欄數
68 檔案名稱
76 同1
88 同68
May
20
由於受人之託,處理名單可是上頭都沒有郵遞區號(村里長名單,在內政部網站可以下載)
想到了中華郵政有3+2的郵遞區號轉檔程式可以使用
但是沒想到我在用的時候困難重重,還沒辦法轉成才糟糕
所以只好自己寫了一小段VBA程式來處理
Sheet1 為名單
Sheet2 為 郵遞區號 table表,格式為 (鄉鎮市區,區碼)
![點擊在新視窗中瀏覽此圖片 點擊在新視窗中瀏覽此圖片](attachment.php?fid=39)
在名單資料中有一個重要的地方是在有一個鄉鎮市的欄位,所以為了比較方便使用了該欄位做為比對的欄位
用了 迴圈,判斷式,字串比對 三個基本的指令
不是我不想用3+2碼,而是3碼,反正還是寄的到...
下次中華郵政的3+2碼的產生軟體可以聰明一些,那3+2碼才會有人用
想到了中華郵政有3+2的郵遞區號轉檔程式可以使用
但是沒想到我在用的時候困難重重,還沒辦法轉成才糟糕
所以只好自己寫了一小段VBA程式來處理
Sheet1 為名單
Sheet2 為 郵遞區號 table表,格式為 (鄉鎮市區,區碼)
在名單資料中有一個重要的地方是在有一個鄉鎮市的欄位,所以為了比較方便使用了該欄位做為比對的欄位
用了 迴圈,判斷式,字串比對 三個基本的指令
i = 1
j = 1
For i = 2 To 7833
For j = 1 To 392
If InStr(Sheet1.Cells(i, 2), Sheet2.Cells(j, 1)) = 1 Then
Sheet1.Cells(i, 8) = Sheet2.Cells(j, 2)
Exit For
End If
Next
Next
j = 1
For i = 2 To 7833
For j = 1 To 392
If InStr(Sheet1.Cells(i, 2), Sheet2.Cells(j, 1)) = 1 Then
Sheet1.Cells(i, 8) = Sheet2.Cells(j, 2)
Exit For
End If
Next
Next
不是我不想用3+2碼,而是3碼,反正還是寄的到...
下次中華郵政的3+2碼的產生軟體可以聰明一些,那3+2碼才會有人用