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

¦³±ø¥óÁôÂêťզæ©M¥[ªÅ¥Õ¦æ

¦³±ø¥óÁôÂêťզæ©M¥[ªÅ¥Õ¦æ

¦prange¡¨c1:c80¡¨

C1¦³«DªÅ¥Õ
c2ªÅ¥Õ
C3ªÅ¥Õ

c4«DªÅ¥Õ
c5«DªÅ¥Õ
c6¨ìc80ªÅ¥Õ

¥H¤W±¡ªp§Ú·Q¦Û°ÊÁôÂêťժºc3¦ýc2¤£¥Î
¦Óc4¤¤¶¡­n¥[¤@¦æªÅ¥Õªº¦æ
§Ú¸Ó¦p¦óset ¤~¥i¥H¤£·|²M¤@¦âªÅ¥Õ´NÁôÂáH
§Ú­ì¥»¬O
Dim c as range
Application.screenupdating = False
For Each c In Range(¡§c1:c80¡¨)
If c.value = 0 or c.value = ¡§ ¡§ then
C. Entirerow.hidden = true
Else
C.entirerow.hidden = false
End if
Next c
Application.screenupdating = true

§ÚÀ³¸Ó¦p¦ó§ï¤~¥i¥H¦³§Ú¥H¤W»¡ªº¹j¦æ®ÄªG¡H
·PÁ¤j¤j

        ÀR«ä¦Û¦b : ¥¬¬I¦p¼½ºØ¡A¥HÅw³ß¤ß´þ¼íºØ¤l¡A¤~·|µoªÞ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD