我看不出有什么理由要避免WorksheetFunction;我看不出有什么误会。

Number_of_layers = WorksheetFunction.RoundUp(iQty / iLayerQty, 0)

您也可以滚动自己的函数：

Function RoundUp(ByVal Value As Double)
    If Int(Value) = Value Then
        RoundUp = Value
    Else
        RoundUp = Int(Value) + 1
    End If
End Function

这样称呼它：

Number_of_layers = RoundUp(iQty / iLayerQty)

如果使用WorksheetFunction object访问ROUNDUP或CEILING函数是不可行的，那么通过一些数学运算也可以实现同样的目的。

Number of layers = Int(iQty / iLayerQty) - CBool(Int(iQty / iLayerQty) <> Round(iQty / iLayerQty, 14))

VBATrue在数学上相当于（-1）。VBA Round用于避免15位浮点错误。

我使用-int(-x)来得到天花板。

?-int(-1.1)  ' get ceil(1.1)
2

?-int(1.1)   ' get ceil(-1.1)
-1

?-int(-5)    ' get ceil(5)
5

这些是我为此目的而组合在一起的函数。

Function RoundUp(ByVal value As Double) as Integer
    
    Dim intVal As Integer
    Dim delta As Double
       
    intVal = CInt(value)
    delta = intVal - value

    If delta < 0 Then
        RoundUp = intVal + 1
    Else
        RoundUp = intVal
    End If

End Function

Function RoundDown(ByVal value As Double) as Integer

    Dim intVal As Integer
    Dim delta As Double

    intVal = CInt(value) 
    delta = intVal - value

    If delta <= 0 Then
        RoundDown = intVal
    ElseIf delta > 0 Then
        RoundDown = intVal - 1   
    End If

End Function

这是我在VBA中的上限。
函数上限（ByVal数值为双精度，ByVal显著性为双精度）为双精度

Dim intVal As Long
Dim delta As Double
Dim RoundValue As Double
Dim PreReturn As Double
If Significance = 0 Then
    RoundValue = 1
Else
    RoundValue = 1 / Significance
End If
Number = Number * RoundValue

intVal = CLng(Number)
delta = intVal - Number

If delta < 0 Then
    PreReturn = intVal + 1
Else
    PreReturn = intVal
End If
Ceiling = PreReturn / RoundValue

结束功能