¦³±ø¥óÁôÂêťզæ©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 |
|
|
|
|
|
|