Option Explicit
Function SWITCH2003(Num As Double) As Long
SWITCH2003 = Switch(Num <= 0, 0, Num <= 5, 5, Num <= 10, 10, Num <= 15, 15, Num > 15, 20)
End Function
Function SWITCH2003(Num As Double) As String
SWITCH2003 = Switch(Num <= 0, "A", Num <= 5, "B", Num <= 10, "C", Num <= 15, "D", Num > 15, "E")
End Function
Option Explicit
Function MinIF(CSDL As Range, Ma As String) As Double
Dim WF As Object, J As Long
Set WF = Application.WorksheetFunction
MinIF = WF.Max(CSDL(2).Resize(CSDL.Rows.Count))
For J = 1 To CSDL.Rows.Count
If CSDL.Cells(J, "A").Value = Ma Then
If CSDL.Cells(J, "B").Value < MinIF Then MinIF = CSDL.Cells(J, "B").Value
End If
Next J
End Function
