{Hỏi}Tự chạy macro có điều kiện (2 người xem)

[4vuong4tron]

Nhờ các bác tư vấn viết cod macro trong exel
Nếu(A2 >0 và A3=”English”) thì tự chạy macro 1
Nếu(A2>0 và A3=”Vietnam”) thì tự chạy macro 2
Nếu(A2>0 và A3=”Verb”) thì tự chạy macro 3
Mình xin gửi ít phí cảm ơn

 

[anhtuan2939]

Nhờ các bác tư vấn viết cod macro trong exel
Nếu(A2 >0 và A3=”English”) thì tự chạy macro 1
Nếu(A2>0 và A3=”Vietnam”) thì tự chạy macro 2
Nếu(A2>0 và A3=”Verb”) thì tự chạy macro 3
Mình xin gửi ít phí cảm ơn
View attachment 282858

Đây bạn

Sub Macro_chinh()
    
    With Sheet1
        If .Range("A2") > 0 And .Range("A3") = "English" Then
            Call Macro1
        ElseIf .Range("A2") > 0 And .Range("A3") = "Vietnam" Then
            Call Macro2
        ElseIf .Range("A2") > 0 And .Range("A3") = "Verb" Then
            Call Macro3
        End If
    End With
End Sub

Bài đã được tự động gộp: 2/11/22

Nhờ các bác tư vấn viết cod macro trong exel
Nếu(A2 >0 và A3=”English”) thì tự chạy macro 1
Nếu(A2>0 và A3=”Vietnam”) thì tự chạy macro 2
Nếu(A2>0 và A3=”Verb”) thì tự chạy macro 3
Mình xin gửi ít phí cảm ơn
View attachment 282858

Nếu bạn muốn tự động chạy code luôn sau khi nhập dữ liệu vào ô A2 và A3 thì copy code này worksheet

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("A2:A3")) Is Nothing Then
        If Not IsEmpty(Range("A2")) And Not IsEmpty(Range("A3")) Then
            If Range("A2") > 0 And Range("A3") = "English" Then
                Call Macro1
            ElseIf Range("A2") > 0 And Range("A3") = "Vietnam" Then
                Call Macro2
            ElseIf Range("A2") > 0 And Range("A3") = "Verb" Then
                Call Macro3
            End If
        End If
    End If
End Sub

 

[4vuong4tron]

Đây bạn

Sub Macro_chinh()
   
    With Sheet1
        If .Range("A2") > 0 And .Range("A3") = "English" Then
            Call Macro1
        ElseIf .Range("A2") > 0 And .Range("A3") = "Vietnam" Then
            Call Macro2
        ElseIf .Range("A2") > 0 And .Range("A3") = "Verb" Then
            Call Macro3
        End If
    End With
End Sub

Sub Macro_chinh() (tên macro này có nghĩa là gì)

With Sheet1 (sheet1 là tên sheet tự chạy à bạn)

 

[anhtuan2939]

Sub Macro_chinh() (tên macro này có nghĩa là gì)

With Sheet1 (sheet1 là tên sheet tự chạy à bạn)

Bạn xem lại đoạn code thứ 2 mình gửi lên ấy