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データ型を使用して10 進数を格納するかCurrency、固定小数点が必要な計算を行う場合や浮動小数点数を処理したくない場合はデータ型を使用します。