excel-vba - 在Excel中使用VBA截断Double

我需要截断我的double值的小数位数以便显示在文本框中。用vba如何做到这一点？

最佳答案

您可以在VBA中将ROUND用于FORMAT

例如显示2个小数位

Dval = 1.56789

Debug.Print Round(dVal,2)

Debug.Print Format(dVal,"0.00")

注意：以上将为您提供1.57。因此，如果您要查找1.56，则可以将Dval存储在字符串中，然后执行此操作

Dim strVal As String

dVal = 1.56789
strVal = dVal

If InStr(1, strVal, ".") Then
    Debug.Print Split(strVal, ".")(0) & "." & Left(Split(strVal, ".")(1), 2)
Else
    Debug.Print dVal
End If