Excel VBA質問箱 IV

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

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


12975 / 13646 ツリー ←次へ | 前へ→

【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 お礼

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

引用なし
パスワード
   いつもお世話になっています。
また、低レベルな質問にお付き合いください。

計算結果を表示するときに、割り算を含むので、
小数点以下の数字がズラズラとながくなってしまいます。
小数第二位で四捨五入して、第一位までの数字にする
方法を知りたいのです。

ExelならFixedでいけるのですが・・・。

【7646】Re:有効桁数
回答  INA  - 03/9/11(木) 11:04 -

引用なし
パスワード
   >計算結果を表示するときに、割り算を含むので、
>小数点以下の数字がズラズラとながくなってしまいます。
>小数第二位で四捨五入して、第一位までの数字にする
>方法を知りたいのです。
セルの書式設定では、設定しては?

【7647】Re:有効桁数
回答  つん E-MAIL  - 03/9/11(木) 11:08 -

引用なし
パスワード
   こんにちは。

横から失礼します。

 Round 関数

使えばええと思います。
ヘルプで見てみてね。

【7649】Re:有効桁数
回答  INA  - 03/9/11(木) 11:16 -

引用なし
パスワード
   四捨五入が必要だったんですね。失礼しました。m(_ _)m

【7650】Re:有効桁数
回答  よろずや  - 03/9/11(木) 13:06 -

引用なし
パスワード
   >小数第二位で四捨五入して、第一位までの数字にする
>方法を知りたいのです。
10倍して0.5を加えてから整数にして10で割る
マイナスデータがあるときは、悩んでください。

【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なんですが・・・。

【7681】Re:有効桁数
お礼  みさっぴ  - 03/9/11(木) 18:18 -

引用なし
パスワード
   ▼つん さん:
ありがとうございました!
できました!

【7683】Re:有効桁数
お礼  みさっぴ  - 03/9/11(木) 18:23 -

引用なし
パスワード
   ▼ichinose さん:
色々な方法があるのですね。
今回はシンプルな方法を選らんでしまいましたが、
またの機会に使ってみたいと思います。
ありがとうございました。

他の皆様も、色々な方法を教えていただき、
とてもためになりました。
有効桁数だけでも奥が深いのですね。

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