Excel VBAでイコール二回使えませんか？

Excel2003を使っております。

Excel VBAに関しての質問です。


Sub test()

a = 5
b = 8

c = d = a + b

Cells(5, 99) = c
Cells(6, 99) = d

End Sub

のプログラムを実行してもFALSEと表示されてうまくいきません。

どうやら、
c = d = a + bに問題があるようです。

これって

c = a + b
d = c

と２つに分けなければならないものなのでしょうか？

見た目を良くするために、１つにまとめたいのですが、
何か良い方法はありませんでしょうか？

No.6 ベストアンサー 回答者： Wendy02 回答日時： 2010/12/09 17:19

たまたま、同じになってしまいましたが、途中まで、#4さんと同じ内容です。

c = d = a + b
このコード自体は、あまりこういう書き方はしませんが、True・False を返す目的としてはアリです。VB系の経験者なら、あまり書かないだけで、意味は分かるはずです。

通常は、
　c = (d = a + b)
見かけのために、このように書きます。

dの値が、数値が入っていれば、 d と a + b と比較して、
値が

a = 5
b = 8
d = 13
c = d = a + b

c は Trueになります。

今回は、以下のようになるのかな？

Sub test()
Dim a As Long 'データ型の宣言をしてください。
Dim b As Long
Dim c As Long

a = 5
b = 8
c = a + b

Cells(5, 99).Value = c
Cells(6, 99).Value = c

End Sub

その後に、cの値が別途になるなら、その時に、d = c にすればよいです。

No.5 回答者： KAZUMI2003 回答日時： 2010/12/09 17:19

正確に言うと、この文は、VBの文法には違反していません。

これはどう解釈されるかというと、a+bとdがイコールかどうかの結果をcに代入している、と解釈されています。だから、falseなのです。
試しに、問題の行の前に、c=13と入れてみると…

VBの代入文は、C言語のように、評価結果を持たないみたいですね。

No.4 回答者： nattocurry 回答日時： 2010/12/09 17:14

c = d = a + b

という式は、文法的には間違ってはいませんが、意味はあなたが考えているものではありません。

あなたが考えているのは、
a + b の値を d に代入し、d の値を c に代入する、
ということですよね。

でも、この式の場合、
d と a + b が等しかったら True 、等しくなかったら False を、c に代入する、
という意味になります。

一番左にある = は、代入演算子ですが、それ以外の = は比較演算子になります。

なので、c が Falseなのは当然です。

さらに、d には何も代入されていないので、やはりFalseなのは当然です。

No.3 回答者： DIooggooID 回答日時： 2010/12/09 16:45

＞　見た目を良くするために、１つにまとめたいのですが、

　　意味が分かりません。　　
　　"見た目"　って何？


　　規約違反をしているのにも関わらず、標準の Excel 環境で対処しようとするのは無理
　があります。


　　※別途、Pre-Compiler などを作成して、対処するようなことを検討して
　　みてください。

No.2 回答者： FEX2053 回答日時： 2010/12/09 16:43

あ、そうそう。

c=a+b : d=c

これなら、式が":"前後で2個、という扱いになるのでオッケーだった筈です。これでごまかすしか無いですね。

No.1 回答者： FEX2053 回答日時： 2010/12/09 16:41

はい、ExcelVBAは「式の中にイコールは一つ」という「仕様」だった筈です。

ですので、できないものはどうやっても出来ないですね。