vba - Excel VBA 单元格值在传递给数组时四舍五入

Question

我希望这有一个简单的解决方案。我需要从工作表中获取值，执行计算并将它们插入到隐藏的工作表中（稍后上传到数据库中）。我通常不会在 VBA 中编程，所以我不确定我做错了什么。我的问题是：当我将数据从工作表复制到数组中时，当我指定 long 时，它们会像整数一样四舍五入。下面的代码片段将使您对问题有所了解。我初始化数组错误吗？

 Dim ThisWS As Worksheet
 Set ThisWS = Excel.ActiveWorkbook.Worksheets("BchSheet")
 Dim BTW() As Long                       'Beaker Tare Weight
 ReDim Preserve BTW(Samples)
 BTW(1) = ThisWS.Cells(18, 6).Value      'Value in cell is 98.7036
 MsgBox (ThisWS.Cells(18, 6).Value)      'Returns 98.7036
 MsgBox (BTW(1))                         'Returns 99

Answer 1

Long数据类型，如，Integer仅包含整数。

使用Double数据类型来存储小数，或者Currency如果您正在处理需要定点的计算或者您不想处理浮点数，则使用数据类型。