Excel９７で小数点の計算

質問

Excel97です。
数字をリットルとミリリットルのセルに分けたいので、

リットル ＝INT（数字）
ミリリットル＝（数字－INT（数字））*1000

と入力しています。
リットルは正しい数字が出るようなのですが、ミリリットルの計算で
一定の数を入力するとおかしな値が出てしまいます。

例）6.93→
リットル＝6,
ミリリットル＝630.000000000001

原因と解決方法をご存知の方どうか教えてください。

回答No.1

vbafriend · ベストアンサー

初めまして。サンプルマクロを組んでみました。次の要領で操作してみて下さい。
なお、シート１のＡ列に値を入力した時にＢ１にリットルの値・Ｃ１にミリリットルの値を表示させるように作ってあります。

・新規シートを立ち上げ、Ａｌｔ+Ｆ１１キーを押してＶＢＥ画面を立ち上げ、画面左上のVBAProjectと書かれている下のSheet1をダブルクリックし、表示された画面の右側の白い部分に書きのコードをコピー＆ペーストする。

Private Sub Worksheet_Change(ByVal Target As Range)

Dim myVlu As Variant

If Target.Column = 1 Then
Application.EnableEvents = False
myVlu = Application.WorksheetFunction.RoundDown(Target.Value, 0)
Target.Offset(0, 1).Value = myVlu
Target.Offset(0, 2).Value = (Val(Target.Value) - Val(Target.Offset(0, 1).Value)) * 1000
Application.EnableEvents = True
End If

End Sub

・ＡＬＴ＋Ｆ１１きーを押してエクセルの画面にもどり、Ａ１に適当な値を入力してみる。

貴方様の思い通りの動作を体験できると思います。

もしご不明な点・不具合等がございましたらお気軽にお知らせ下さい。

補足

ありがとうございます。
実はこれと同じようなマクロを組んでいてこの問題にあたってしまったのです。
ＶＡＬではなくてＩＮＴを使っているということと
ＶａｒｉａｎｔではなくＤｏｕｂｌｅを使っているという相違点がありますので、
こちらも試してみます。

回答No.5

comv

こんばんは

EXCELの内部では２進方での演算処理で少数点以下の
計算処理は浮動小数点での処理となりますから１０進方
での表記時に微細な誤差をともなうことが多々あります。

ＶＢＡでの処理ではないので参考程度ですが関数数式なら

　=INT(MOD(A1,1)*1000)
や
　=MOD(A1*1000,1000)

などでしょうか！

お礼

大変お礼が遅れて申し訳有りませんでした。
どうやらcomvさんのおっしゃるとおり浮動小数点を使用することによる誤差のようですね。

皆様どうもありがとうございました。

回答No.4

vbafriend

こんばんは。早速補足いただきまして有難うございます。
私のマクロは、整数部分を表示させるためにRoundDownを使用していますが、この点はIntを使用しても同じだと思います。ただ、小数部分を計算させるために、下のデータから整数部分を引いて小数部分を計算しそれを１０００倍するように組んであります。ですから、問題はないと思いますが、私も勉強になりますので、ご迷惑でなければどのような問題が生じるのか教えて下さい。
歩手数をおかけいたしますがよろしくお願いいたします。

回答No.3

imogasi

セルＡ１「６．９３」、Ｂ１「=INT(A1)」Ｃ１に
「=(A1-INT(A1))*1000」を入れるとＢ１は「６」、Ｃ１は「９３０」となりました。書式は標準です。
ミリリットル＝630.000000000001の６はミスタイプしていませんですか。
それにしても最後の桁が１も表示形式の書式を「###.000000000001とするとそのように出ますが。

補足

申し訳ありません、皆様の指摘されるようにインプットミスがありました。
最初の数字が「９．６３」です。
リットルは「９」、ミリリットルは「６３０．０００００００００００１」となりました。
書式は標準にしています。表示されているのは「６３０」ですが、値のコピーをすると質問の数字になります。
お手数をかけて申し訳ないんですが、再度のご回答をお願いできませんでしょうか。

回答No.2

ymmasayan

２つ問題があります。
（１）６３０．０００・・・はインプットミスでしょう。
（２）目的のセルの書式設定で数字の小数点以下を０桁にしてください。
　　原因はやって見ればわかります。