Microsoft Office Productivity Pack : A Newbie Step by Step Guide by Steven Bright

Author:Steven Bright
Language: eng
Format: azw3, epub, pdf
Published: 2016-12-15T08:00:00+00:00

MAXIMUM VALUE IN A RANGE

This is use to display the maximum value in a range, example;

Sub ShowMax()

Dim TheMax As Double

TheMax = WorksheetFunction.Max(Range("B1:B11"))

MsgBox TheMax

End Sub

'This returns the maximum value in the above range of my worksheet MANUAL2 in the workbook

SECOND HIGHEST VALUE IN A RANGE

This is use to display the Second Highest value in a range, examples;

Sub ShowMax()

Dim TheMax As Double

TheMax = WorksheetFunction.Max(Range("B1:B11"))

MsgBox TheMax

End Sub

'This returns the maximum value in the above range of my worksheet MANUAL2 in the workbook

Sub ShowMax2()

Dim SecondHighest As Double

SecondHighest = WorksheetFunction.Large(Range("B1:B11"), 2)

MsgBox SecondHighest

End Sub

'This returns the SecondHighest value in the above range of my worksheet MANUAL2 in the workbook

Download

Copyright Disclaimer:
This site does not store any files on its server. We only index and link to content provided by other sites. Please contact the content providers to delete copyright contents if any and email us, we'll remove relevant links or contents immediately.