Xin giúp đỡ ghép 2 macro thành 1

Liên hệ QC

diennv50

Thành viên mới
Tham gia
27/8/09
Bài viết
22
Được thích
0
Giúp mình ghép chung 2 macro vào thành 1 nút bấm với ah
 

File đính kèm

  • GPE.xlsm
    18.4 KB · Đọc: 13
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

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
 
Lần chỉnh sửa cuối:
Thử 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
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
1593856690545.png
 
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
"code sau là chuẩn nhất" nghĩa là thế nào?
 
"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.
 
Web KT
Back
Top Bottom