条件付き書式設定VBA

Question

私は、アカウント情報と注文ステータスを入力するフォームを作成しています。各行は、同じ行、この場合はセル「H」上のセルの1つの値に基づいて変更する必要があります。私は条件付き書式設定でこれを簡単に達成することができますが、これはプログラミングコードよりもファイルが大きくなると思います。私はいくつかの選択肢を試しましたが、私は失われたこの瞬間に私は言うことができます。私は達成したいものの例を付けています。私はこの時点で何をすべきか分からないので、誰かが私を助けることができれば、本当に感謝します。ワークシート上の

enter image description here

Answer 1

だけでなく、とWorksheet_Changeイベントmacro¹お得な情報、変更。

---

Option Explicit 

Private Sub Worksheet_Change(ByVal Target As Range) 
    If Not Intersect(Target, Columns("H")) Is Nothing Then 
     On Error GoTo bm_Safe_Exit 
     Application.EnableEvents = False 
     Dim trgt As Range 
     For Each trgt In Intersect(Target, Columns("H")) 
      Select Case LCase(trgt.Value2) 
       Case "credit" 
        Cells(trgt.Row, "A").Resize(1, 12).Interior.ColorIndex = 45 
       Case "completed" 
        Cells(trgt.Row, "A").Resize(1, 12).Interior.ColorIndex = 10 
       Case Else 
        Cells(trgt.Row, "A").Resize(1, 12).Interior.Pattern = xlNone 
      End Select 
     Next trgt 
    End If 
bm_Safe_Exit: 
    Application.EnableEvents = True 
End Sub 

イベントマクロがワークシートまたはワークブックコードシートに属する _{¹しました。モジュールコードシートではありません。ワークシートのコードシートの場合は、ワークシートの名前タブを右クリックし、「コードを表示」を選択します。 VBEが開くと、フォアグラウンドにワークシートコードシート（​​通常はBook1 - Sheet1（Code）のようなタイトル）が表示されます。コードを貼り付けてパーソナライズ調整を行い、Alt + Qをタップしてワークシートに戻ってください。}