Excel VBA質問箱 IV

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

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


73556 / 76732 ←次へ | 前へ→

【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 質問
【7646】Re:有効桁数 INA 03/9/11(木) 11:04 回答
【7647】Re:有効桁数 つん 03/9/11(木) 11:08 回答
【7649】Re:有効桁数 INA 03/9/11(木) 11:16 回答
【7681】Re:有効桁数 みさっぴ 03/9/11(木) 18:18 お礼
【7650】Re:有効桁数 よろずや 03/9/11(木) 13:06 回答
【7651】Re:有効桁数 ichinose 03/9/11(木) 13:11 発言
【7683】Re:有効桁数 みさっぴ 03/9/11(木) 18:23 お礼

73556 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free