1

列 'B' の対応するセルの値が値「Y」。

列「B」の対応するセルが値「N」を保持している場合、列「A」に「検証」、「検証」、「評価」などの単語を含めることはできません。したがって、それらの不一致がある場合は、それらを強調する必要があります。

列「A」: Enter キーを押して、これとこれを確認します...

列「B」: Y

4

1 に答える 1

0

これは簡単な例です。ただし、列 B を空白にできない場合は、2 番目の数式を省略できます。これが合っているかどうかを確認してください...

例

編集

VBAリクエストされた例を次に示します。コードを現在のシートに保存する必要があります (例: Sheet1 )...

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim str As String
    Dim lCol As Long
    Dim oCell As Object
    Dim oCellFormat As Object
    lCol = Target.Column

    If lCol = 1 Or lCol = 2 Then
       Set oCell = Cells(Target.Row, 1)
    Else
        GoTo mExit
    End If
    str = UCase(oCell.Value)
    Set oCellFormat = Cells(oCell.Row, 1)
    If (str = "VERIFY" Or str = "VALIDATE" Or str = "EVALUATE") Then
        If UCase(Cells(oCell.Row, 2).Value) = "N" Then
            oCellFormat.Interior.ColorIndex = 3 'red
        ElseIf UCase(Cells(oCell.Row, 2).Value) = "Y" Then
            oCellFormat.Interior.ColorIndex = 4 'green
        Else
            oCellFormat.Interior.ColorIndex = 2 'white
        End If
    Else
        oCellFormat.Interior.ColorIndex = 2 'white
    End If
    GoTo mExit
    Exit Sub
mExit:
    Set oCell = Nothing 'free resources
    Set oCellFormat = Nothing
End Sub
于 2012-11-22T10:46:03.140 に答える