Vô hiệu marco khi giá trị 1 ô không thỏa mãn (1 người xem)

[hungdiep85]

Chào các Thầy


Nếu A1=VANG thì chỉ có nút marco vàng được chạy khi ta chọn,còn nút marco đỏ có chọn cũng không chạy và hiện thông báo nếu chọn và ngược lại cho A1=ĐỎ


Cảm ơn các Thầy

 

[ChanhTQ@]

Bạn thử với cặp sau

Sub Vang()
    If UCase$(Left([A1], 1)) = "V" Then
        Range("B1").Select
        With Selection.Interior
            .Pattern = xlSolid
            .PatternColorIndex = xlAutomatic
            .Color = 65535
        End With
    Else
    
    End If
End Sub

[B]Sub Do_()
[/B]    If UCase$(Left([A1], 1)) <> "V" Then
        Range("B1").Select
        With Selection.Interior
            .Pattern = xlSolid
            .PatternColorIndex = xlAutomatic
            .Color = 255
'       [COLOR=#0000ff]     .TintAndShade = 0[/COLOR]  '
'          [COLOR=#0000ff]  .PatternTintAndShade = 0[/COLOR]   '
        End With
    End If
[B]End Sub
[/B]

 

[hungdiep85]

Sub Vang()
    If UCase$(Left([A1], 1)) = "V" Then
        Range("B1").Select
        With Selection.Interior
            .Pattern = xlSolid
            .PatternColorIndex = xlAutomatic
            .Color = 65535
        End With
    Else
    
    End If
End Sub

[B]Sub Do_()
[/B]    If UCase$(Left([A1], 1)) <> "V" Then
        Range("B1").Select
        With Selection.Interior
            .Pattern = xlSolid
            .PatternColorIndex = xlAutomatic
            .Color = 255
'       [COLOR=#0000ff]     .TintAndShade = 0[/COLOR]  '
'          [COLOR=#0000ff]  .PatternTintAndShade = 0[/COLOR]   '
        End With
    End If
[B]End Sub
[/B]

Đúng rùi cảm ơn Thầy