Xin giúp đỡ ghép 2 macro thành 1 (1 người xem)

[diennv50]

Giúp mình ghép chung 2 macro vào thành 1 nút bấm với ah

 

[HieuCD]

Giúp mình ghép chung 2 macro vào thành 1 nút bấm với ah

Xem file

 

[CHAOQUAY]

Giúp mình ghép chung 2 macro vào thành 1 nút bấm với ah

Thử code này

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

 

[hunglam123]

Giúp mình ghép chung 2 macro vào thành 1 nút bấm với ah

Thử code sau là chuẩn nhất đừng thử 2 cái trên chưa đẳng cấp

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

 

[hongphuong1997]

Thử code này

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

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 thoi

 

[CHAOQUAY]

Thử code sau là chuẩn nhất đừng thử 2 cái trên chưa đẳng cấp

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

"code sau là chuẩn nhất" nghĩa là thế nào?

 

[SA_DQ]

"code sau là chuẩn nhất" nghĩa là thế nào?

/(/ghĩa là cuối tuần thiếu việc làm để giải khoay sau khi fê thuốc đó mà!


(/ui nha!

 

[VetMini]

"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).
Nhất là trong lời của người mà bạn vừa trích dẫn:
- Thứ nhất, người ấy chưa chắc đã rành tiếng Việt
- Thứ hai, người ấy chắc chắn là không có khả năng thẩm định code VBA.

/(/ghĩa là cuối tuần thiếu việc làm để giải khoay sau khi fê thuốc đó mà!


(/ui nha!

Theo tôi thì không hẳn vậy.
Hình như cứ cuối tuần thì đàn em bên xó chợ Phú nhuận báo cáo tình hình thâu nhập mấy chỗ làm ăn. Người ta được báo cáo là mấy cơ sở huyện đề cạnhn tranh dữ quá cho nên nổi xung, cứ thấy cái gì có liên quan đến 2 chữ số thì cho là đánh đề và xông vào đạp đổ.

Lưu ý là tôi không có nói xấu người khuất mặt nhé. Ngược lại, chỗ tôi bôi đậm ở trên là đã nâng cao khả năng trí tuệ của y/thị lắm rồi. Cỡ anh hùng phường lẻ bình thường không có đầu óc đến thế đâu.