• ベストアンサー

エクセルのマクロで

ある範囲(例えばA1:A100)を検索して 最小値のセルに色付するというマクロはどのように 記述すればいいのでしょうか? よろしくお願いします。

質問者が選んだベストアンサー

  • ベストアンサー
  • taocat
  • ベストアンサー率61% (191/310)
回答No.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) とします。 以上です。

fisherman2
質問者

お礼

ありがとうございました。 完璧でした。

関連するQ&A