宏验证和条件检查

Question

我有下面的 excel，我想对 ColumnName1 ColumnName2 ColumnName3 和 ColumnName4 进行数据验证，并检查条件是否ColumnName6 = ColumnName7 && ColumnName5 = OK使用ColumnName8 is NOC else CON宏

对于条件检查我使用以下公式无法获得如何使用第三个条件

if(ColumnName6 = ColumnName7 ,NOC,CON)

为了进行验证检查，我在下面写了宏，但它没有按预期工作

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim r As Range, msg As String
    If Intersect(Target, ColumnName1) Is Nothing Then Exit Sub
    Application.EnableEvents = False
    For Each r In Intersect(Target, ColumnName1)
        If r.Value <> "" Then
            If Not r.Value Like "########-[A-Za-z][A-Za-z][A-Za-z]" Then
                MsgBox "Invalid Entry", vbCritical, r.Value
                r.ClearContents
            End If
        End If
    Next
    Application.EnableEvents = True
    If Len(msg) Then MsgBox msg, , "Invalid entry"
End Sub