excel - セルの色と値の一致関数

Question

VBAでセルの値と色を同時に一致させたいと考えています。1 つの列で、セル値が上位 10% にある場合 (A という名前)、色が変わり、2 番目の列にランダムな値を入力し、同じ数値 (B という名前) が列 2 からのものである場合、上位 10% のセルと一致します。 (A) 次に、このセル (B) はセル (A) と同じ色を使用します。

Sub ColorChange()
Dim i As Long, r1 As Range, r2 As Range

For i = 14 To 23
  Set r1 = Range("E" & i)
  Set r2 = Range("G" & i)
  If Percentile(Range("E" & i)) > 0.1 Then r1.Interior.ColorIndex = 6
  If r2.Value = 0 Then r2.Interior.ColorIndex = 6
Next i
End Sub