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

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

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

test .zip (16.28 KB)

TOP

        ÀR«ä¦Û¦b : ¤H¥Í¨S¦³©Ò¦³Åv¡A¥u¦³¥Í©Rªº¨Ï¥ÎÅv¡C
ªð¦^¦Cªí ¤W¤@¥DÃD