Excel VBA質問箱 IV

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

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


1358 / 13644 ツリー ←次へ | 前へ→

【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 さん:
あつかましく答えまで大変有難うございました。やっと迷路からめけ出ました。
これからも宜しくお願い致します。

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