Excel VBA質問箱 IV

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

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


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

73562 / 76738

←次へ　｜　前へ→


	【7651】Re:有効桁数

ichinose - 03/9/11(木) 13:11 -


	引用なし

	パスワード

みさっぴさん、みなさん、こんにちは。

>計算結果を表示するときに、割り算を含むので、
>小数点以下の数字がズラズラとながくなってしまいます。
>小数第二位で四捨五入して、第一位までの数字にする
>方法を知りたいのです。
>
>ExelならFixedでいけるのですが・・・。
ワークシート関数のFixedでいけるなら、VBAでも

　　MsgBox WorksheetFunction.Fixed(4 / 3, 1)
これでよいかと・・・。

私は､つんさんと同様に

WorksheetFunction.round(4 / 3, 1)

を愛用？してますが・・・。

ついでですが、
今回は､四捨五入と言う事なので問題ないと思いますが､
小数が出てくる場合､切り捨て、切り上げのときは
要注意ですよ。
Sub main1()
　 MsgBox WorksheetFunction.RoundDown(2000 * (34.8 - 32.2), 0)
End Sub
実行してみて下さい。
本当は､5200なんですが・・・。

0 hits

▼

【7643】有効桁数 みさっぴ 03/9/11(木) 10:53