Sub Sample7()
'A1:A10の範囲で最大値をダイアログで表示します。
MsgBox WorksheetFunction.Max(Range("A1:A10"))
'A1:A10の範囲で最小値をダイアログで表示します。
MsgBox WorksheetFunction.Min(Range("A1:A10"))
'A1:A10の範囲で合計値をダイアログで表示します。
MsgBox WorksheetFunction.Sum(Range("A1:A10"))
'A1:A10の範囲で数値の個数をダイアログで表示します。
MsgBox WorksheetFunction.Count(Range("A1:A10"))
'A1:A10の範囲でVlookUp関数を使用して値をダイアログで表示する。
MsgBox WorksheetFunction.VLookup(10, Range("A1:B10"), 2, False)
End Sub