- ベストアンサー
エクセルのマクロで
ある範囲(例えばA1:A100)を検索して 最小値のセルに色付するというマクロはどのように 記述すればいいのでしょうか? よろしくお願いします。
- みんなの回答 (1)
- 専門家の回答
質問者が選んだベストアンサー
こんばんは。 方法は色々ありますが、一案。 最小値に赤色セット。 ------------------------------------- Sub SetColor() Dim Mini Dim Rng As Range Dim myRange As Range Set myRange = Range("A1:A100") myRange.Interior.ColorIndex = xlNone Mini = WorksheetFunction.Min(myRange) For Each Rng In myRange If Rng.Value = Mini Then Rng.Interior.ColorIndex = 3 End If Next End Sub ---------------------------------------------- 尚、最小値が複数のセルにある場合も考慮。 それから範囲の最後が不定の場合(A100がA200になったりとか)は Set myRange = Range("A1:A100") これを Set myRange = Range("A1:A" & Range("A65536").End(xlUp).Row) とします。 以上です。
お礼
ありがとうございました。 完璧でした。