ªð¦^¦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 : ¤ß¤¤±`¦sµ½¸Ñ¡B¥]®e¡B·P«ä¡Bª¾¨¬¡B±¤ºÖ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD