ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

¸ó¤u§@ªí¦Û°ÊÁôÂêťզC°ÝÃD

¥»©«³Ì«á¥Ñ luhpro ©ó 2016-4-3 00:31 ½s¿è
¤£¦n·N«ä¡A·Q½Ð±Ð¤@¤U¤j®v­Ì2­Óµ{¦¡½Xªº°ÝÃD~~~

°ÝÃD¤@
¥H¤U¬O°w¹ï³æ¤@¬¡­¶¡A¦Û°ÊÁôÂæC5:¦C25ªÅ¥Õ¦Cªº ...
msmplay µoªí©ó 2016-4-2 22:33

For i = 1 To 31
  Sheets(i).Rows("5:25").EntireRow.Hidden =true
Next

°ÝÃD¤G

§â©³¤U³o¦æ´¡¦b³Ì«á¤@­Ó End With «e :

Sheets(i).Rows("5:25").SpecialCells(xlCellTypeBlanks).EntireRow.Hidden =true

TOP

        ÀR«ä¦Û¦b : ¤H¨ÆªºÁ}Ãø»PµZ¿i¡A´N¬O¤@ºØ¦ÒÅç¡C
ªð¦^¦Cªí ¤W¤@¥DÃD