Public Function Don_gia(culi) As Double
' tính don giá cuoc Van chuyen Bê tông
bang_gia = Sheets(1).Ranges("E56:E65")
If culi <= 2 Then
Don_gia = Application.Index(bang_gia, 1)
Exit Function
ElseIf culi <= 5 Then
Don_gia = Application.Index(bang_gia, 2)
Exit Function
ElseIf culi >= 41 Then
Don_gia = Application.Index(bang_gia, 10)
Exit Function
Else: Don_gia = Application.Index(bang_gia, Application.RoundUp(culi / 5, 0))
End If
End Function
Public Function Don_gia(culi) As Double
' tính don giá cuoc Van chuyen Bê tông
bang_gia = Sheets(1).Ranges("E56:E65")
If culi <= 2 Then
Don_gia = Application.Index(bang_gia, 1)
Exit Function
ElseIf culi <= 5 Then
Don_gia = Application.Index(bang_gia, 2)
Exit Function
ElseIf culi >= 41 Then
Don_gia = Application.Index(bang_gia, 10)
Exit Function
Else: Don_gia = Application.Index(bang_gia, Application.RoundUp(culi / 5, 0))
End If
End Function
Public Function Don_gia(culi) As Double
' tính don giá cuoc Van chuyen Bê tông
bang_gia = Sheets(1).Ranges("E56:E65")
If culi <= 2 Then
Don_gia = Application.Index(bang_gia, 1)
Exit Function
ElseIf culi <= 5 Then
Don_gia = Application.Index(bang_gia, 2)
Exit Function
ElseIf culi >= 41 Then
Don_gia = Application.Index(bang_gia, 10)
Exit Function
Else: Don_gia = Application.Index(bang_gia, Application.RoundUp(culi / 5, 0))
End If
End Function
Public Function Don_gia1(culi) As Double
' tính don giá cuoc Van chuyen Bê tông
Dim Bang_Gia As Range
Set Bang_Gia = Sheets(1).Range("E56:E65")
If culi <= 2 Then
Don_gia1 = Application.Index(Bang_Gia, 1)
ElseIf culi <= 5 Then
Don_gia1 = Application.Index(Bang_Gia, 2)
ElseIf culi >= 41 Then
Don_gia1 = Application.Index(Bang_Gia, 10)
Else
Don_gia1 = Application.Index(Bang_Gia, Application.RoundUp(culi / 5, 0) + 1)
End If
End Function
Public Function Don_gia(Culy As Double) As Double
' tính don giá cuoc Van chuyen Bê tông
Dim Bang_gia()
Bang_gia = Sheets("Gia_cuoc").Range("E56:E65").Value
If Culy <= 2 Then
Don_gia = Bang_gia(1, 1)
ElseIf Culy >= 41 Then
Don_gia = Bang_gia(10, 1)
Else
Don_gia = Bang_gia(Application.WorksheetFunction.RoundUp(Culy / 5, 0) + 1, 1)
End If
End Function
Public Function Don_gia(Culy As Double) As Double
' tính don giá cuoc Van chuyen Bê tông
Dim Bang_gia()
Bang_gia = Sheets("Gia_cuoc").Range("E56:E65").Value
If Culy <= 2 Then
Don_gia = Bang_gia(1, 1)
ElseIf Culy >= 41 Then
Don_gia = Bang_gia(10, 1)
Else
Don_gia = Bang_gia(Application.WorksheetFunction.RoundUp(Culy / 5, 0) + 1, 1)
End If
End Function
Public Function Don_gia(Culy As Double) As Double
' tính don giá cuoc Van chuyen Bê tông
Dim Bang_gia()
Bang_gia = Sheets("Gia_cuoc").Range("E56:E65").Value
If Culy <= 2 Then
Don_gia = Bang_gia(1, 1)
ElseIf Culy >= 41 Then
Don_gia = Bang_gia(10, 1)
Else
Don_gia = Bang_gia(Application.WorksheetFunction.RoundUp(Culy / 5, 0) + 1, 1)
End If
End Function