0

これを解決するにはVBAマクロが必要かもしれません。15 列の値を持つ約 10,000 行のデータ セットがあります。行ごとに、上位 3 つの値と下位 3 つの値を条件付きで書式設定して強調表示します。

行 1 に対して xl2010 内の条件付き書式設定ツールを使用してルールを設定しましたが、残りの 9,999 行に特殊な書式をコピーして貼り付けると、行 1 に含まれる上位 3 つの値と下位 3 つの値のみが書式設定されます。 9,999行。

データセット全体ではなく、行ごとに上位 3 と下位 3 をシェーディングするのを見たいです。

4

1 に答える 1

1

マクロ レコード機能は、この種の問題、特に初心者 (私自身は VBA に精通しているわけではありません) に適しています。

これにより、上位 3 つの値が赤で強調表示され、下位 3 つの値が青で強調表示されます。1 から 1000 までの i があることに注意してください。必要に応じて変更してください (列セクションも同様です)。

編集：あなたの範囲に合わせて変更しました。初めて読んだわけではありません。

Sub Conditions()
Dim myrange As Range


For i = 1 To 10000

Set myrange = Range("A" & i & ":" & "O" & i)
myrange.FormatConditions.AddTop10
myrange.FormatConditions(myrange.FormatConditions.Count).SetFirstPriority

With myrange.FormatConditions(1)
    .TopBottom = xlTop10Top
    .Rank = 3
    .Percent = False
End With
With myrange.FormatConditions(1).Interior
    .PatternColorIndex = xlAutomatic
    .Color = 255
    .TintAndShade = 0
End With

myrange.FormatConditions(1).StopIfTrue = False
myrange.FormatConditions.AddTop10
myrange.FormatConditions(myrange.FormatConditions.Count).SetFirstPriority

With myrange.FormatConditions(1)
    .TopBottom = xlTop10Bottom
    .Rank = 3
    .Percent = False
End With
With myrange.FormatConditions(1).Interior
    .PatternColorIndex = xlAutomatic
    .Color = 15773696
    .TintAndShade = 0
End With

myrange.FormatConditions(1).StopIfTrue = False

Next

End Sub
于 2013-09-11T20:31:23.377 に答える