Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
1359 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【74916】四捨五入は難しい? ﾄｷﾉﾊｼﾞﾒ 13/10/24(木) 11:04 質問[未読]
【74917】Re:四捨五入は難しい? kanabun 13/10/24(木) 11:44 発言[未読]
【74919】Re:四捨五入は難しい? ﾄｷﾉﾊｼﾞﾒ 13/10/24(木) 16:32 質問[未読]
【74920】Re:四捨五入は難しい? kanabun 13/10/24(木) 17:27 発言[未読]
【74921】Re:四捨五入は難しい? ﾄｷﾉﾊｼﾞﾒ 13/10/24(木) 19:39 お礼[未読]
【74916】四捨五入は難しい?
質問  ﾄｷﾉﾊｼﾞﾒ  - 13/10/24(木) 11:04 -
引用なし
パスワード
   いつもお世話に成ります。

　　Range("B12:S12").Formula = "=If(B7=0,"""",Round(B7-B10)/B6/200-3,1)"
　　Range("B14:S14").Formula = "=If(B12=0,"""",Round(B12-B13)*B11*10,0)"

上記のコードでアフ゜リケーション定義またはオブジェクト定義のエラーです。
とでるのですが、何がいけないのか教えて下さい。
【74917】Re:四捨五入は難しい?
発言  kanabun  - 13/10/24(木) 11:44 -
引用なし
パスワード
   ▼ﾄｷﾉﾊｼﾞﾒ さん：

>　　Range("B12:S12").Formula = "=If(B7=0,"""",Round(B7-B10)/B6/200-3,1)"
>　　Range("B14:S14").Formula = "=If(B12=0,"""",Round(B12-B13)*B11*10,0)"

>アフ゜リケーション定義またはオブジェクト定義のエラーです。

( と ) カッコの数が合ってないですね
【74919】Re:四捨五入は難しい?
質問  ﾄｷﾉﾊｼﾞﾒ  - 13/10/24(木) 16:32 -
引用なし
パスワード
   ▼kanabun さん：
有難うございます。

　　　　　　　　　　　　　　　　　　　　　　元になる式　(A-B)/(C-3)
　　　　　　　　　　　　　　　　　　　　　　　　　　　　 ￬
Range("B12:S12").Formula = "=If(B7=0,"""",Round(B7-B10)/B6/200-3,1)"
　　　　　　　　　　　　　
　　　　　　　　　　　　　　　　　　　　　　元になる式　〔(D-E)*F〕*10
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　￬
Range("B14:S14").Formula = "=If(B12=0,"""",Round(B12-B13)*B11*10,0)"

上記の様に考えています。

出来れば何処にかっこ ()　を入れれば良いのか教えて頂けないでしょうか。
　
【74920】Re:四捨五入は難しい?
発言  kanabun  - 13/10/24(木) 17:27 -
引用なし
パスワード
   ▼ﾄｷﾉﾊｼﾞﾒ さん：

>　　　　　　　　　　　　　　　　　　　　　　元になる式　(A-B)/(C-3)
>　　　　　　　　　　　　　　　　　　　　　　　　　　　　 ￬
>Range("B12:S12").Formula = "=If(B7=0,"""",Round(B7-B10)/B6/200-3,1)"
>　　　　　　　　　　　　　
>出来れば何処にかっこ ()　を入れれば良いのか教えて頂けないでしょうか。
>　

まずIF関数のかっこ
"=IF(a,b,c)"

つぎに、c項の部分で ROUND関数を使っていますので、上は
"=IF(B7=0,"""",ROUND(元になる式,1))"
となります。

あとは「元になる式」のところに、実際のもとになる式を入れてください。

"=IF(B7=0,"""",ROUND((A-B)/(C-3),1))"

A,B,C を実際のセルや数字に置き換えると

"=IF(B7=0,"""",ROUND((B7-B10)/(B6/200-3),1))"

かな？
確認してみてください。
【74921】Re:四捨五入は難しい?
お礼  ﾄｷﾉﾊｼﾞﾒ  - 13/10/24(木) 19:39 -
引用なし
パスワード
   ▼kanabun さん：
あつかましく答えまで大変有難うございました。やっと迷路からめけ出ました。
これからも宜しくお願い致します。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
1359 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free