返回列表 上一主題 發帖

如何求得一頁能容下的行高總和

Sub RowsHeightOfPage()
    rw = ActiveSheet.HPageBreaks.Item(1).Location.Row - 1
    Debug.Print Rows("1:" & rw).Height
End Sub
[color=blue]KY[/color]

TOP

        靜思自在 : 有時當思無時苦,好天要積雨來糧。
返回列表 上一主題