標題: [發問] 請問如何以程式判斷自動分頁時每頁的最後一列 [打印本頁]

---

作者: joviwang    時間: 2016-12-4 20:49     標題: 請問如何以程式判斷自動分頁時每頁的最後一列

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

---

作者: rouber590324    時間: 2016-12-5 11:28

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

---

作者: ikboy    時間: 2016-12-5 15:12

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

---

作者: joviwang    時間: 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
以上的代碼，我試了之後，會傳回自動分頁線所在儲存格的值。
卻不知道那個儲存格的列數。

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)