Excel VBAでワークシート関数の「MAX」を使って最大値を求める記録です。
下図はExcel2016です。
< スポンサーリンク >
VBAでのMAX関数の使用例
B2~B4の中で最大値をメッセージで表示します。
Sub test()
MsgBox WorksheetFunction.Max(ActiveSheet.Range(“B2”, “B4”))
End Sub
B2~D4の中で最大値をメッセージで表示します。
Sub test()
MsgBox WorksheetFunction.Max(ActiveSheet.Range(“B2”, “D4”))
End Sub
B~D列のそれぞれの列の最大値を6行目に入力します。
Sub test()
Dim ws As Worksheet
Dim i As Long
‘変数にアクティブシートをセット
Set ws = ActiveSheet
‘A6に項目名を入力
ws.Range(“A6”).Value = “最大値”
‘B6~D6にそれぞれの列の最大値を入力
For i = 2 To 4
With ws
.Cells(6, i).Value = WorksheetFunction.Max(.Range(.Cells(2, i), .Cells(4, i)))
End With
Next i
End Sub
構文
WorksheetFunction.Max(Arg1, Arg2, Arg3, Arg4, Arg5, Arg6, Arg7, Arg8, Arg9, Arg10, Arg11, Arg12, Arg13, Arg14, Arg15, Arg16, Arg17, Arg18, Arg19, Arg20, Arg21, Arg22, Arg23, Arg24, Arg25, Arg26, Arg27, Arg28, Arg29, Arg30)
引数リストに含まれる最大の数値を返します。
Arg1~Arg30=必須。数値1~30個の最大値を検索する数値を指定します。戻り値は倍精度浮動小数点型(Double)です。
MAX関数をVBAではなく、セルの中で使いたい場合はこちら↓
Excelで列や行の選択範囲にある数値や日付、文字数の最大値を調べたいときがあります。 最大値を調べる場合は、「MAX」関数を使います。 下図はExcel2016で、サンプルデータです。 MAX関数の構文 一連の引数のう …
こんな記事も書いています