返回列表 上一主題 發帖

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

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

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

本帖最後由 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

Sub zz()
For i = 1 To ActiveSheet.HPageBreaks.Count
    Debug.Print ActiveSheet.HPageBreaks(i).Location
Next
End Sub

TOP

1版面設定-頁首/頁尾-自訂頁尾-左中右+虛線255字元內
1.1如此每一頁尾就會有虛線底線

TOP

        靜思自在 : 真正的愛心,是照顧好自己的這顆心。
返回列表 上一主題