VBA Example - Find The Maximum Or Minimum Value
Suppose you have a sales data for four regions, and you want to know the region with the highest sales. See the data below.
The VBA code is this:
Sub find_max()
Dim row As Integer
Dim max As Single
max = 0
Dim sale As Single
For row = 2 To 5
sale = Cells(row, 2)
If sale > max Then
max = sale
End If
Next
Cells(6, 2) = max
MsgBox ("done")
End Sub
By running the code, you get the maximum value:
If you want to find the minimum value instead of the maximum value, the code is very similar.
Sub find_min()
Dim row As Integer
Dim min As Single
min = 10000 'select a very large value
Dim sale As Single
For row = 2 To 5
sale = Cells(row, 2)
If sale < min Then
min = sale
End If
Next
Cells(6, 2) = min
MsgBox ("done")
End Sub
The VBA code is this:
Sub find_max()
Dim row As Integer
Dim max As Single
max = 0
Dim sale As Single
For row = 2 To 5
sale = Cells(row, 2)
If sale > max Then
max = sale
End If
Next
Cells(6, 2) = max
MsgBox ("done")
End Sub
By running the code, you get the maximum value:
If you want to find the minimum value instead of the maximum value, the code is very similar.
Sub find_min()
Dim row As Integer
Dim min As Single
min = 10000 'select a very large value
Dim sale As Single
For row = 2 To 5
sale = Cells(row, 2)
If sale < min Then
min = sale
End If
Next
Cells(6, 2) = min
MsgBox ("done")
End Sub
Comments
Post a Comment