钢筋自动计算表不需要计算按F9自动出现结果

pyms · 发表于 2020-3-5 14:59:28

修约用这个就好了
Public Function XiuYue(ByVal BeiXiuYue As Double, ByVal JingQueDao As Double) As Double
Application.Volatile
Dim a As String
      a = BeiXiuYue / JingQueDao
      Dim b As String
      b = a - Int(a)
      If b = 0.5 Then
         If Right(Int(a), 1) Mod 2 = 0 Then
            XiuYue = Int(a) * JingQueDao
         Else
            XiuYue = Int(a + 0.5) * JingQueDao
         End If
      Else
      XiuYue = Int(a + 0.5) * JingQueDao
      End If
End Function