【エクセルVBA】空欄を無視して乗算したいです

エクセルＶＢＡ初心者です。

test1 = .Range("Ｈ28") * .Range("Ｈ31") * .Range("Ｈ32") * .Range("Ｈ33") * .Range("Ｈ34") * .Range("Ｈ35") * .Range("Ｈ35")

と置いているのですが
例えば、Ｈ３１が空欄の場合もあります。
そうしますと、乗算の結果が０になってしまうので、空欄を無視して答えを出したいです。

エクセルではPRODUCT関数を使っていたのですが
VBAですと、どのように記述してよいのか分かりませんでした。

アドバイスをいただけると幸いです。

No.2 ベストアンサー 回答者： kagakusuki 回答日時： 2014/01/14 04:50

　WorksheetFunction プロパティを利用して、VBA上でPRODUCT関数を動作させると良いと思います。

test1 = WorksheetFunction.Product(.Range("Ｈ28"), .Range("Ｈ31:H35"), .Range("Ｈ35"))

【参考URL】
　よねさんのWordとExcelの小部屋 > Excel VBA入門 > 17.ワークシート関数を利用する > ワークシート関数を利用する(WorksheetFunction)
　　http://www.eurus.dti.ne.jp/~yoneyama/Excel/vba/v …

この回答へのお礼

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

参考ＵＲＬが、ＶＢＡ初心者の私には他にも役立つ内容が
色々とありましたので
ベストアンサーとさせていただきました。
これからも少しずつ勉強していきたいと思います。

お礼日時：2014/01/14 23:24

No.1 回答者： tom04 回答日時： 2014/01/13 23:39

こんばんは！

質問のセル範囲の最後部分
＞* .Range("Ｈ35") * .Range("Ｈ35")
は
＞* .Range("Ｈ35") * .Range("Ｈ36")
だとして・・・
色々やり方はあると思いますが、VBAでもそのままPRODUCT関数が使用できますので、

Sub Sample1()
Dim myRange As Range
Set myRange = Union(Range("H28"), Range("H31:H36"))
MsgBox WorksheetFunction.Product(myRange)
End Sub

※　メッセージボックスに表示させているだけです。
みたいな感じではどうでしょうか？m(_ _)m

この回答へのお礼

早々のご回答ありがとうございます！
ご指摘の通り* .Range("Ｈ35") * .Range("Ｈ36")が正解です。お恥ずかしい記述ミスをしてしまいました（苦笑）

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

お礼日時：2014/01/14 23:20