Xem fileGiúp mình ghép chung 2 macro vào thành 1 nút bấm với ah
Thử code nàyGiúp mình ghép chung 2 macro vào thành 1 nút bấm với ah
Sub test()
With Sheet1
If .FilterMode Then
ActiveSheet.Range("$A$1:$C$18").AutoFilter Field:=2
Else
ActiveSheet.Range("$A$1:$C$18").AutoFilter Field:=2, Criteria1:="<>"
End If
End With
End Sub
Giúp mình ghép chung 2 macro vào thành 1 nút bấm với ah
Sub Mazda6()
Range("a1").Select
If Range("h1") = 0 Then
ActiveSheet.Range("$A$1:$C$18").AutoFilter Field:=2, Criteria1:="<>"
Range("h1") = 1
Else
ActiveSheet.Range("$A$1:$C$18").AutoFilter Field:=2
Range("h1") = 0
End If
End Sub
anh @CHAOQUAY thằng này nó đểu không nè Bác @VetMini oi, nó khinh rẻ và coi thường mọi người quá đi thoiThử code này
Mã:Sub test() With Sheet1 If .FilterMode Then ActiveSheet.Range("$A$1:$C$18").AutoFilter Field:=2 Else ActiveSheet.Range("$A$1:$C$18").AutoFilter Field:=2, Criteria1:="<>" End If End With End Sub
"code sau là chuẩn nhất" nghĩa là thế nào?Thử code sau là chuẩn nhất đừng thử 2 cái trên chưa đẳng cấp
Mã:Sub Mazda6() Range("a1").Select If Range("h1") = 0 Then ActiveSheet.Range("$A$1:$C$18").AutoFilter Field:=2, Criteria1:="<>" Range("h1") = 1 Else ActiveSheet.Range("$A$1:$C$18").AutoFilter Field:=2 Range("h1") = 0 End If End Sub
/(/ghĩa là cuối tuần thiếu việc làm để giải khoay sau khi fê thuốc đó mà!"code sau là chuẩn nhất" nghĩa là thế nào?
"chuẩn nhất" và "đẳng cấp" đều là từ ngữ có tính chất tương đối (relative) và rất dễ chủ quan (subjective)."code sau là chuẩn nhất" nghĩa là thế nào?
Theo tôi thì không hẳn vậy./(/ghĩa là cuối tuần thiếu việc làm để giải khoay sau khi fê thuốc đó mà!
(/ui nha!