マクロでのMAX,MIN

質問

ExcelでのMAX(範囲),MINをマクロではどのように
なるのでしょうか？
宜しくお願いします

回答No.2

imogasi · ベストアンサー

(1)ワークシート関数
Application部分は省略しても可。この場合、Ａｐｐｌｉｃａｔｉｏｎとはエクセルのことを指します。Ｍａｘは下記でＭＩＮの部分をＭＡＸに置き換えてください。
Sub test01()
m = Application.WorksheetFunction.Min(Range("a1:a6"))
MsgBox m
End Sub
文字列ばかりだと０、文字列が混じっていると無視する（０扱い）ようです。
（２）プログラムロジック
Sub test02()
Dim cl As Range
m = Range("A1")
For Each cl In Range("A1:a6")
If m > cl Then
m = cl
End If
Next
MsgBox m
End Sub
Ｍａｘの場合は
If m < cl Then
m = cl
と変える。
ついでに、Ａ列内で考えるなら
Sub test02()
Dim cl As Range
d = Range("A65536").End(xlUp).Row
MsgBox d
m = Range("A1")
For Each cl In Range(Cells(1, "A"), Cells(d, "A"))
If m > cl Then
m = cl
End If
Next
MsgBox m
End Sub

お礼

詳しい説明ありがとうございます。
MAXでのF1キーで、該当する項目がないと表示される
意地悪なHELPで困っておりました。
私のような初心者には表示されてたとしても理解困難な説明です。
m = Application.WorksheetFunction.Min(Range("a1:a6"))
で目的を達することが出来ました。
本当にありがとうござとました。

回答No.1

osamuy

ワークシート関数をそのまま呼び出せます。こんなかんじ：
Sub test()
Debug.Print WorksheetFunction.Max(Range("A1:C3"))
End Sub

お礼

さっそくの回答ありがとうございました。
お礼が遅くなって申し訳ございませんでした。
これからも宜しくお願い致します。