Excel VBA質問箱 IV

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

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


2431 / 13646 ツリー ←次へ | 前へ→

【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さん 解説有難うございました。勉強します。
又宜しくお願い致します。

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