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

Quảng cáo

diennv50

Thành viên mới
Tham gia ngày
27 Tháng tám 2009
Bài viết
21
Được thích
0
Điểm
0
Tuổi
33
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

CHAOQUAY

Thành viên tích cực
Tham gia ngày
24 Tháng tám 2018
Bài viết
1,395
Được thích
1,516
Điểm
668
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
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
 

hunglam123

Thành viên bị đình chỉ hoạt động
Thành viên bị đình chỉ hoạt động
Tham gia ngày
31 Tháng ba 2020
Bài viết
180
Được thích
43
Điểm
0
Tuổi
33
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:

hongphuong1997

Thành viên tiêu biểu
Tham gia ngày
12 Tháng mười một 2017
Bài viết
519
Được thích
163
Điểm
218
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
 

CHAOQUAY

Thành viên tích cực
Tham gia ngày
24 Tháng tám 2018
Bài viết
1,395
Được thích
1,516
Điểm
668
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?
 

VetMini

Chuyên gia GPE
Tham gia ngày
21 Tháng mười hai 2012
Bài viết
11,067
Được thích
13,731
Điểm
4,868
"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.
 
Quảng cáo
Top Bottom