¦p¦ó¨D±o¤@¶¯à®e¤Uªº¦æ°ªÁ`©M
- ©«¤l
- 262
- ¥DÃD
- 8
- ºëµØ
- 0
- ¿n¤À
- 280
- ÂI¦W
- 17
- §@·~¨t²Î
- xp
- ³nÅ骩¥»
- Office 2007
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- HK
- µù¥U®É¶¡
- 2015-8-11
- ³Ì«áµn¿ý
- 2024-11-19
|
¦p¦ó¨D±o¤@¶¯à®e¤Uªº¦æ°ªÁ`©M
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½Xpºâ,§Æ±æ¯à©ß¿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 |
|
|
|
|
|
|
- ©«¤l
- 10
- ¥DÃD
- 2
- ºëµØ
- 0
- ¿n¤À
- 60
- ÂI¦W
- 0
- §@·~¨t²Î
- win7
- ³nÅ骩¥»
- Office 2013
- ¾\ŪÅv
- 20
- ©Ê§O
- ¤k
- ¨Ó¦Û
- ·s¥_¥«
- µù¥U®É¶¡
- 2015-6-3
- ³Ì«áµn¿ý
- 2017-1-13
|
Sub RowsHeightOfPage()
rw = ActiveSheet.HPageBreaks.Item(1).Location.Row - 1
Debug.Print Rows("1:" & rw).Height
End Sub |
|
[color=blue]KY[/color]
|
|
|
|
|
- ©«¤l
- 262
- ¥DÃD
- 8
- ºëµØ
- 0
- ¿n¤À
- 280
- ÂI¦W
- 17
- §@·~¨t²Î
- xp
- ³nÅ骩¥»
- Office 2007
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- HK
- µù¥U®É¶¡
- 2015-8-11
- ³Ì«áµn¿ý
- 2024-11-19
|
¦^´_ 2# don4831
¦hÁÂdon4831«ü¾É |
|
|
|
|
|
|