VBA - 十进制 - 格式

Question

我需要将任意数字转换为1位小数（例如243.3）。 我目前使用：

Dim maxi As Double
maxi = data.Cells(11, 7)

maxi = FormatNumber(maxi, 1)

如果我有243.4534634可以，但是当我有整数（例如243）时会出现问题。在后面它给我“maxi”作为整数而不是243.00

Answer 1

这将为您提供一个带有一位小数位的字符串的值：

Sub OnePlace()
    Set Data = ActiveSheet
    Dim maxi As Double
    Dim maxiS As String
    maxi = Data.Cells(11, 7)
    maxiS = FormatNumber(maxi, 1)
    MsgBox maxiS
End Sub

Answer 2

您是否正在寻找Cdec（maxi）之类的东西，它将转换为十进制？