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

excel ¥i¥H¥Î®Ö¨ú¤è¶ô¡A¨Ó¿z¿ï¶Ü¡H

excel ¥i¥H¥Î®Ö¨ú¤è¶ô¡A¨Ó¿z¿ï¶Ü¡H

§Ú·Q¥Î®Ö¨ú¤è¶ô ¡A¿z¿ï¥X§Ú­nªº¸ê®Æ¡Aµ{¦¡½X­n«ç»ò¼g¡H

test.png (9.95 KB)

¦Û°Ê¿z¿ï

test.png

test.zip (14.98 KB)

Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then
    ActiveSheet.Range("$A$2:$B$7").AutoFilter Field:=1, Criteria1:="<>"
Else
    ActiveSheet.Range("$A$2:$B$7").AutoFilter Field:=1
End If
End Sub

TOP

¤£¦æ¡A¤£ª¾¹D¬°¤°»ò¡A§Ú¤£¯à¤Ä¿ï®Ö¨ú¤è¶ô¡A½Ðµ¹§Ú§¹¦¨ªºexcelÀÉ

TOP

test .zip (16.28 KB)

TOP

½Ð½T»{¬O§_¶}±Ò¤F³]­p¼Ò¦¡
­nÃö³¬³]­p¼Ò¦¡«á¤~¯à¾Þ§@§Aªº¥ô¦ó±±¨î¶µ³á

TOP

­nÃö³¬³]­p¼Ò¦¡¡A­ì¨Ó¬O³o¼Ë¡AÃø©Ç§Ú¤£¯à¥Î¡A¤Ó·PÁ¤F

TOP

        ÀR«ä¦Û¦b : ¡i®É¶¡¦pÆp¥Û¡j®É¶¡¹ï¤@­Ó¦³´¼¼zªº¤H¦Ó¨¥¡A´N¦pÆp¥Û¯ë¬Ã¶Q¡F¦ý¹ï·M¤H¨Ó»¡¡A«o¹³¬O¤@§âªd¤g¡A¤@ÂI»ù­È¤]¨S¦³¡C
ªð¦^¦Cªí ¤W¤@¥DÃD