エクセルVBAの掛け算

お世話になります。
VBA初心者です。

セルA1にはB1×C1の答え
Range("A1").Value = Range("B1") * Range("C1")

これを、B1が空白ならA1も空白に、そうでないならA1にB1×C1の答えを入れたいのですが
分かりません。

Range("A1").Value = "IF(B1="""","""",B1 * C1)"これだと
A1に『 =IF(****** 』と関数が入ってしまいます。

どなたか　分かる方教えて下さい。
宜しくお願いします。

No.2 ベストアンサー 回答者： mu2011 回答日時： 2011/11/28 15:59

一例です。

Range("a1") = IIf(Range("b1") = "", "", Range("b1") * Range("c1"))

この回答へのお礼

IIFの意味が分かりませんがうまく動きました。
後でIIFを調べます。

ありがとうございました。

お礼日時：2011/11/28 16:12

No.1 回答者： keithin 回答日時： 2011/11/28 15:57

お手本：

Ａ１に　=IF(B1="","",B1*C1)

これを元にマクロに翻訳すると：
sub macro1()
　if range("B1")="" then　　　
　　range("A1").clearcontents
　else
　　range("A1") = range("B1")*range("C1")
　end if
end sub




＃参考：お手本の数式を全くその通りに翻訳すると
sub macro2()
　if range("B1") = "" then
　　range("A1") = ""
　else
　　range("A1") = range("B1")*range("C1")
　end if
end sub

この回答へのお礼

ありがとうございます。
range("A1").clearcontentsこんなのがあるのですね。
勉強になります。

うまく動きましたありがとうございます。

お礼日時：2011/11/28 16:11