返回列表 上一主題 發帖

[發問] 請問如何以程式判斷自動分頁時每頁的最後一列

joviwang

帖子
35 
主題
3 
精華
0 
積分
74 
點名
0  
作業系統
xp 
軟體版本
Office 2003 
閱讀權限
20 
性別
男 
來自
台北 
註冊時間
2010-9-14 
最後登錄
2016-12-29 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2016-12-4 20:49 | 只看該作者

[發問] 請問如何以程式判斷自動分頁時每頁的最後一列

請問如何以程式判斷自動分頁時每頁的最後一列，想用程式在每一頁最後那一列畫上底線，謝謝。
收藏 分享
joviwang

rouber590324

帖子
561 
主題
160 
精華
0 
積分
725 
點名
0  
作業系統
WINDOWS 
軟體版本
xp 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2014-9-10 
最後登錄
2026-2-12 

論壇榮譽勳章論壇贊助勳章熱烈參與勳章
2#
發表於 2016-12-5 11:28 | 只看該作者
1版面設定-頁首/頁尾-自訂頁尾-左中右+虛線255字元內
1.1如此每一頁尾就會有虛線底線
羅

TOP

ikboy

帖子
262 
主題
8 
精華
0 
積分
280 
點名
0  
作業系統
xp 
軟體版本
Office 2007 
閱讀權限
20 
性別
男 
來自
HK 
註冊時間
2015-8-11 
最後登錄
2025-3-24 

2016猴年全勤獎章
3#
發表於 2016-12-5 15:12 | 只看該作者
Sub zz()
For i = 1 To ActiveSheet.HPageBreaks.Count
    Debug.Print ActiveSheet.HPageBreaks(i).Location
Next
End Sub

TOP

joviwang

帖子
35 
主題
3 
精華
0 
積分
74 
點名
0  
作業系統
xp 
軟體版本
Office 2003 
閱讀權限
20 
性別
男 
來自
台北 
註冊時間
2010-9-14 
最後登錄
2016-12-29 
4#
發表於 2016-12-28 12:50 | 只看該作者
本帖最後由 joviwang 於 2016-12-28 12:54 編輯

感謝回覆
Sub zz()
For i = 1 To ActiveSheet.HPageBreaks.Count
    Debug.Print ActiveSheet.HPageBreaks(i).Location
Next
End Sub
以上的代碼，我試了之後，會傳回自動分頁線所在儲存格的值。
卻不知道那個儲存格的列數。
joviwang

TOP

        靜思自在 : 生氣，就是拿別人的過錯來懲罰自己。
返回列表 上一主題