Question

I need the code of a list in VBA excel of this question.

3) Which is the best ENG engine model that has the highest MPG, lowest CYL cylinder and least WGT Weight in this table?

Answer 1

Sub Largest()
'Cells with dates also return a value, and get covered for determining largest value. Percentages will convert and return numerics.

Dim rng1 As Range
Dim rng2 As Range
Dim rng3 As Range
Dim mpg As Integer
Dim cyl As Integer
Dim wgt As Integer

'Set range from which to determine largest/smallest value
Set rng1 = Sheet1.Range("A2:A10")
Set rng2 = Sheet1.Range("B2:B10")
Set rng3 = Sheet1.Range("D2:D10")

'Worksheet function MAX returns the largest value in a range
'Worksheet function MIN returns the smallest value in a range

mpg = Application.WorksheetFunction.Max(rng1)
cyl = Application.WorksheetFunction.Min(rng2)
wgt = Application.WorksheetFunction.Min(rng3)

'Displays largest/smallest value
MsgBox mpg
MsgBox cyl
MsgBox wgt

End Sub