Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
2443 / 13658 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【68030】If...Then トキノハジメ 11/1/26(水) 14:45 質問[未読]
【68032】Re:If...Then Jaka 11/1/26(水) 14:59 発言[未読]
【68040】Re:If...Then トキノハジメ 11/1/26(水) 22:55 質問[未読]
【68043】Re:If...Then Jaka 11/1/27(木) 9:27 発言[未読]
【68048】Re:If...Then UO3 11/1/27(木) 13:24 発言[未読]
【68083】Re:If...Then トキノハジメ 11/1/29(土) 18:48 お礼[未読]
【68030】If...Then
質問  トキノハジメ  - 11/1/26(水) 14:45 -
引用なし
パスワード
   If Range("B6").Value <= Range("B7").Value Then
　　Range("B11:S11").Formula = "If(B5=0), """",(B5-B6)+(B5-B7))"
　Else
　　Range("B11:S11").Formula = "If(B5=0), """",(B5-B6)+(B5-B7)-(B6-B7))"
End If

XP & 2010 ですが　Else 以降がいかされてないのですが、どこが悪いのか教えてください。

　　　B　　C　　D　　E
　5　100　120　110　130
　6　 3　　5　　4　　2
　7　 8　　2　　3　　7

11
【68032】Re:If...Then
発言  Jaka  - 11/1/26(水) 14:59 -
引用なし
パスワード
   ▼トキノハジメ さん：
>If Range("B6").Value <= Range("B7").Value Then
>　　Range("B11:S11").Formula = "=If(B5=0, """",(B5-B6)+(B5-B7))"
>　Else
>　　Range("B11:S11").Formula = "=If(B5=0, """",(B5-B6)+(B5-B7)-(B6-B7))"
>End If
【68040】Re:If...Then
質問  トキノハジメ  - 11/1/26(水) 22:55 -
引用なし
パスワード
   ▼Jaka さん：
>▼トキノハジメ さん：
>>If Range("B6").Value <= Range("B7").Value Then
>>　　Range("B11:S11").Formula = "=If(B5=0, """",(B5-B6)+(B5-B7))"
>>　Else
>>　　Range("B11:S11").Formula = "=If(B5=0, """",(B5-B6)+(B5-B7)-(B6-B7))"
>>End If

JaKaさん　ありがとうございます。
解説をお願いいたします。
【68043】Re:If...Then
発言  Jaka  - 11/1/27(木) 9:27 -
引用なし
パスワード
   ▼トキノハジメ さん：
>解説をお願いいたします。
解説をお願いしますって、何を解説したらいいのかわかりません。
あえて言えば、数式になってない文字を入れても数式にはなりません。
数式としてエラーになる文字を入れても、エラー表示されたり、
場合によっては、数式として成り立たないとアラートがでるタイミングと、
コード進行がバッティングしそうなぐらい。
【68048】Re:If...Then
発言  UO3  - 11/1/27(木) 13:24 -
引用なし
パスワード
   ▼トキノハジメ さん：

横から失礼します。
既にJakaさんからお答えが出ているわけですが、トキノハジメさんが
最初に【式として】セットしようとしておられた文字列、
If(B5=0), """",(B5-B6)+(B5-B7))
If(B5=0), """",(B5-B6)+(B5-B7)-(B6-B7)
これらの """" を "" にかえ、かつ先頭に = を付けた形で、セルに
計算式として入力すると、どうなるか、確かめて見られれば、【解説】をもらうより
早く、明確にわかると思うのですが。
【68083】Re:If...Then
お礼  トキノハジメ  - 11/1/29(土) 18:48 -
引用なし
パスワード
   JaKaさん、UO3さん　解説有難うございました。勉強します。
又宜しくお願い致します。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
2443 / 13658 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free