¦p¦ó¨D±o¤@­¶¯à®e¤Uªº¦æ°ªÁ`©M

ikboy

Rem ¦­´X¤é«e·Q±N­¶¤º¤@¬q°Ï°ì°µ­¶¸},·Qªk¬O±N¤@­¶¯à®e¤Uªº¦æ°ªÁ`©M
Rem ´î¥h­¶ÀY©M­¶¸}ªº¦æ°ªÁ`©M,±o¥X¤º®e¦æ°ªªº©M,±q¦Ó­«²Õ¦C¦L,¦ý·í®É¥¼¦³¤è®×,
Rem ¦p¦ó¨D±o¤@­¶¯à®e¤Uªº¦æ°ªÁ`©M,²{·Q¥Î¥H¤U¥N½X­pºâ,§Æ±æ¯à©ß¿j¤Þ¥É,½Ð°Ý¦³§ó¦n¤èªk¶Ü?

Sub RowsHeightOfPage()
With ActiveSheet
If .HPageBreaks.Count Then
    r = .HPageBreaks.Item(1).Location.Row
    For i = 1 To r - 1
        rhs = rhs + Rows(i).Height
    Next
Debug.Print rhs '¨D±o¤@­¶¯à®e¤Uªº¦æ°ªÁ`©M
End If
End With
End Sub

ikboy

¦^´_ 2# don4831


    ¦hÁÂdon4831«ü¾É

don4831

Sub RowsHeightOfPage()
    rw = ActiveSheet.HPageBreaks.Item(1).Location.Row - 1
    Debug.Print Rows("1:" & rw).Height
End Sub