Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
1382 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【74907】四捨五入 ﾄｷﾉﾊｼﾞﾒ 13/10/23(水) 9:54 質問[未読]
【74908】Re:四捨五入 ウッシ 13/10/23(水) 10:21 回答[未読]
【74909】Re:四捨五入 ﾄｷﾉﾊｼﾞﾒ 13/10/23(水) 10:35 お礼[未読]
【74907】四捨五入
質問  ﾄｷﾉﾊｼﾞﾒ  - 13/10/23(水) 9:54 -
引用なし
パスワード
   いつもお世話になります。

Range("B9:X9").Formula = "=If(B7=0,"""",B7/(B6/200)+B8)"

上記の答え　B9:X9 を小数点第二位を四捨五入
　　　　　　　　
Range("B14:S14").Formula = "=If(B7=0,"""",((B12-B13)*B11)*10)"

上記の答え　B14:X14 を小数点第一位を四捨五入

の方法をおしえてください。
【74908】Re:四捨五入
回答  ウッシ  - 13/10/23(水) 10:21 -
引用なし
パスワード
   こんにちは

数式を変更するだけですよね。

Range("B9:X9").Formula = "=IF(B7=0,"""",ROUND(B7/(B6/200)+B8,1))"

とかに。

ROUNDをヘルプでみて下さい。

▼ﾄｷﾉﾊｼﾞﾒ さん：
>いつもお世話になります。
>
>Range("B9:X9").Formula = "=If(B7=0,"""",B7/(B6/200)+B8)"
>
>上記の答え　B9:X9 を小数点第二位を四捨五入
>　　　　　　　　
>Range("B14:S14").Formula = "=If(B7=0,"""",((B12-B13)*B11)*10)"
>
>上記の答え　B14:X14 を小数点第一位を四捨五入
>
>の方法をおしえてください。
【74909】Re:四捨五入
お礼  ﾄｷﾉﾊｼﾞﾒ  - 13/10/23(水) 10:35 -
引用なし
パスワード
   ▼ウッシ さん：

有難う御座いました。又、勉強します。今後とも宜しくお願い致します。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
1382 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free