VBAで他のセル値に基づいてセルの背景色を変更する方法

Question

Excelの2つの列AとBがあります。 列は、「はい」と「いいえ」を含むドロップダウンリストです。 そして、Aセルのテキスト値を基にしたBセルの色をドロップダウンリストから変更したいと思います。 たとえば、A1セルで「はい」を選択すると、B1セルより緑色が表示されます。 A2、A3 ...など。

私はプログラマーではないので、私はVBAのコーディングで本当にnoobです。この場合、条件付きフォーメーションにも問題があります。

誰かがこれに対する答えを持っていれば、それは私の喜びです。

Answer 1

コードを変更しました。

Sub RowFormat() 
    Dim A As Range 
    For Each A In Range("A1:A" & Cells(Rows.Count, "A").End(xlUp).Row) 
     If Not IsError(A) Then 
      If A.Value = "Yes" Then 
       A.Offset(0, 1).Interior.ColorIndex = 6 
      ElseIf A.Value = "No" Then 
       A.Offset(0, 1).Interior.ColorIndex = 3 
      Else 
       A.Offset(0, 1).Interior.ColorIndex = xlNone 
      End If 
     End If 
    Next A 
End Sub 

条件付き書式を使用する。

"いいえ"の場合は=A1="Yes"、
の場合は=A1="No"を使用し、それに応じて書式を適用してください。

EDIT：

あなたは、コードの下に使用Worksheet_Changeイベントを使用している場合。

Private Sub Worksheet_Change(ByVal Target As Range) 
    If Intersect(Target, Range("A:A")) Is Nothing Then Exit Sub 'check for range 
    If Target.Value = "Yes" Then 'check if yes 
     Target.Offset(0, 1).Interior.ColorIndex = 6 
    ElseIf Target.Value = "No" Then 'check if no 
     Target.Offset(0, 1).Interior.ColorIndex = 3 
    Else 
     Target.Offset(0, 1).Interior.ColorIndex = xlNone 
    End If 
End Sub 

Answer 2

選択列B、 クリックして条件付き書式>

ハイライト細胞ルール条件付き書式を使用するには>

等しいすぎる>は、 "はい" ドロップオン

を入力右下にカスタムを選択します。

すでに何かをするatemptました