Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
12973 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【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 さん：
色々な方法があるのですね。
今回はシンプルな方法を選らんでしまいましたが、
またの機会に使ってみたいと思います。
ありがとうございました。

他の皆様も、色々な方法を教えていただき、
とてもためになりました。
有効桁数だけでも奥が深いのですね。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
12973 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free