0

条件付き書式のセルの範囲があり、セルが特定のしきい値を超えると、赤で塗りつぶされます（.color = 255だと思います）。

.color = 255のセルを検索して、しきい値を超える範囲のセルを検索するマクロを作成しようとしています。マクロが何らかの理由で機能していません。条件付き書式が原因で、セルが赤であることがわかりません。ただし、手動で塗りつぶしを赤に変更しただけのセルを検出できます。

Sub macro22()
   For Each m In Range("D7:L33")
      If m.Interior.Color = 255 Then
          ex = "exceedance"
      End If
Next

  Range("p22").Value = ex

End Sub

.color = 255であることがわかっています。これは、セルの塗りつぶしの色を条件付き書式から必要な色に一致するように変更するマクロを記録すると、それが出てくる値になるためです。

4

2 に答える 2

0

条件付き書式で適用された場合、色関数は色を返しません。代替アプローチについては、こちらを参照してください

于 2013-01-10T18:42:38.287 に答える
0

CF のルールが 1 つしかない場合は、m.FormatConditions(0).Interior.Color代わりに値を確認する必要がありますm.Interior.Color- 上記のより詳細な応答として) 0は CF ルールの数を表しますが、0 から始まります (少なくともそのように参照する必要があります)。

于 2013-01-10T18:55:36.027 に答える