StackOverflow と VBA は初めてです。私は、ゼロから VBA でコードを作成することを除いて、Excel のすべての側面のエキスパートです。
私がやろうとしているのは、特定の用語が含まれている場合、インデックスからセルの内部に色を適用することです。ここに私が持っているものがあります:
Sub ConditionalFormatting()
Do Until ActiveCell = ""
If ActiveCell = "STAR DISTRICT" Then
ActiveCell.Interior.ColorIndex = 50
ElseIf ActiveCell = "STAR SCHOOL" Then
ActiveCell.Interior.ColorIndex = 50
ElseIf ActiveCell = "HIGH PERFORMING" Then
ActiveCell.Interior.ColorIndex = 43
ElseIf ActiveCell = "SUCCESSFUL" Then
ActiveCell.Interior.ColorIndex = 34
ElseIf ActiveCell = "ACADEMIC WATCH" Then
ActiveCell.Interior.ColorIndex = 38
ElseIf ActiveCell = "LOW PERFORMING" Then
ActiveCell.Interior.ColorIndex = 22
ElseIf ActiveCell = "AT RISK OF FAILING" Then
ActiveCell.Interior.ColorIndex = 18
ElseIf ActiveCell = "FAILING" Then
ActiveCell.Interior.ColorIndex = 3
Else: ActiveCell.Interior.ColorIndex = 1
End If
ActiveCell.Offset(1, 0).Select
Loop
End Sub
オプションは次のとおりです。 スター地区または学校、高パフォーマンス、成功、アカデミック ウォッチ、低パフォーマンス、失敗のリスクあり、失敗
このコードは 1 つの列 (下の 2 つの用語を除く) で機能しますが、ワークシートの他の場所では機能しません。他の場所で試してみると、セルに何が含まれていても、すべてのセルが黒 (または ColorIndex = 1) になります。
どんな助けでも大歓迎です。
トレントン