VBAで３つのセルの中で1番数値の大きい

セルの文字色を変えたいのですがまったくわかりません・・・

よかったら教えてください

No.1 ベストアンサー 回答者： web2525 回答日時： 2013/02/01 00:22

マクロの記録で作成したものですが

Sub Macro1()
'
' Macro1 Macro
'

'
Range("A1:A3").Select'・・・・・この部分を実際の表に合わせて変更、もしくは削除
Selection.FormatConditions.AddTop10
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1)
.TopBottom = xlTop10Top
.Rank = 1'・・・・・・この数値を変更することで上2位とか3位とか変更できます
.Percent = False
End With
With Selection.FormatConditions(1).Font
.Color = -16383844'・・・・・・文字色はここで変更
.TintAndShade = 0
End With
Selection.FormatConditions(1).StopIfTrue = False
End Sub

実際にマクロ記録の画像も添付しときま

この回答へのお礼

画像までありがとうございます！！！！

お礼日時：2013/02/01 09:31

No.2 回答者： mt2008 回答日時： 2013/02/01 11:27

このカテゴリ(VisualBasic)で質問されているので、VBAでの回答がお望みなのかもしれませんが、通常は条件付き書式を使います。

3つのセルがA1、B2、C3　として説明します。
A1セルを選択して以下の数式を条件として入力します。

=(MAX($A$1,$B$2,$C$3)=A1)

＜書式＞ボタンで文字色を設定します。
条件付き書式の設定が終わったら、A1セルをコピーし、B2とC3に書式のみコピーします。