Viết hàm SWITCH2003() để dùng cho Excel version thấp, như E2003

[SA_DQ]

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

 

[SA_DQ]

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

 

[SA_DQ]

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

Mã NV	DT
NVH00	10​
NHV00	13​
NJV00	35​
NJV00	112​
NVH00	122​
NHV00	132​
NVH00	999​
NHV00	987​
NJV00	789​