excel - 通过VBA计算超过15位的数字

Question

就我而言，在 VBA 中允许进行大于 15 位的计算，这在第十五位之后不会自动给你零 -> 更准确。
这个想法是，计算可以在 VBA 中完成。想要的结果(1,0700700070000700000 7654321 )可以通过格式转换以字符串数据类型在excel中呈现(只是在Excel表格中显示不计算)
问题:
1 + 0.07007000700007000007654321
-> Excel 给出 1.07007000700007000008
期望值:1.07007000700007000007654321
这是我的代码:

    Sub test()
    Dim y As Double
    Dim m As String

    'cell(1,1) is where 0.07007000700007000007654321
    y = 1 + Cells(1, 1)

    m = CStr(y)

    Cells(2, 1).Value = m

    End Sub

感谢您的时间和知识，伙计们!

Answer 1

使用 Decimal - 它需要一个声明为 Variant 的变量:

    Dim y As Variant
    Dim m As String

    'cell(1,1) is where 0.07007000700007000007654321
    y = 1 + CDec(Cells(1, 1))

    m = CStr(y)

    ' m -> "1.07007000700007000007654321"