¦³±ø¥óÁôÂêťզæ©M¥[ªÅ¥Õ¦æ
 
- ©«¤l
 - 5 
 - ¥DÃD
 - 2 
 - ºëµØ
 - 0 
 - ¿n¤À
 - 3 
 - ÂI¦W
 - 0  
 - §@·~¨t²Î
 - WINDOW 
 - ³nÅ骩¥»
 - WIN10 
 - ¾\ŪÅv
 - 10 
 - µù¥U®É¶¡
 - 2019-2-12 
 - ³Ì«áµn¿ý
 - 2019-2-15 
 
  | 
 ¦³±ø¥óÁôÂêťզæ©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 |   
 
 
 
 | 
| 
 | 
 | 
 | 
 | 
 |