Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

38584 / 76732

←次へ　｜　前へ→


	【43281】Re:変数の型Singleについて

ponpon - 06/10/7(土) 21:54 -


	引用なし

	パスワード

▼小心者さん：
>すいません。下記のコードで計算すると
>なぜか違う値が返ります。誰か詳しい方教えて
>ください。お願いします。
>Sub テスト()
> Dim A As Single
> Dim B As Single
>
> A = 37.8
> B = 52.6
>　　'90.4になるはずなのに違う値・・・。
> MsgBox A + B
>
>End Sub

エクセルは小数の計算が苦手です。

http://pc.nikkeibp.co.jp/pc21/special/gosa/index.shtml

それで、
Sub テスト2()
　　Dim A As Single
　　Dim B As Single
　　
　　A = 37.8 * 10
　　B = 52.6 * 10
　　MsgBox (A + B) / 10
End Sub
こうするとうまくいくのですが、

Sub テスト3()
　　Dim A As Single
　　Dim B As Single
　　
　　A = 37.8
　　B = 52.6
　　MsgBox (A * 10 + B * 10) / 10
End Sub

こうすると失敗　？？

詳しいことは、上のページか　識者の回答を待ってください。

0 hits

▼

【43280】変数の型Singleについて 小心者 06/10/7(土) 21:32