Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
3456 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【62104】VBA 変数名と四捨五入 13241 09/6/22(月) 23:42 質問[未読]
【62106】Re:VBA 変数名と四捨五入 Yuki 09/6/23(火) 7:20 発言[未読]
【62104】VBA 変数名と四捨五入
質問  13241  - 09/6/22(月) 23:42 -
引用なし
パスワード
   こんばんわ。宜しくおねがいします。

計算結果を小数第4位を四捨五入して小数第3位まで
を表示させたいのですが、どのようなプログラムを組めばいいのでしょうか？
またその際変数名のデータ型は何を宣言すればいいのでしょうか？
【62106】Re:VBA 変数名と四捨五入
発言  Yuki  - 09/6/23(火) 7:20 -
引用なし
パスワード
   ▼13241 さん：
>こんばんわ。宜しくおねがいします。
>
>計算結果を小数第4位を四捨五入して小数第3位まで
>を表示させたいのですが、どのようなプログラムを組めばいいのでしょうか？
>またその際変数名のデータ型は何を宣言すればいいのでしょうか？

参考に

Sub TEST()
　　Dim d　 As Double　 ' 大きさによってはSingleで良い
　　Dim d1　As Double
　　Dim d2　As Double
　　
　　d = 1.4445
'VBAのROUND関数 = 銀行丸め
　　d1 = Round(d, 3)
'ExcelのROUND関数 = 算術丸め
　　d2 = Application.Round(d, 3)
　　MsgBox d1 & vbCrLf & vbCrLf & d2
End Sub

ｈｔｔｐ://support.microsoft.com/default.aspx?scid=kb;ja;418216
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
3456 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free