IF関数をVBAで表現したい

質問

表題の質問をさせてください。

以下のIF関数をVBAで記述する方法を教えてください。
まる投げ的な質問で申し訳ないのですが、検索しても見つからなかったのでお願いいたします。

=IF(B1="東京",5,"")

回答No.1

chie65536 · ベストアンサー

if (Range("B1").Value = "東京" then
　Range(ほげほげ).Value = 5
else
　Range(ほげほげ).Value = ""
end if

お礼

早々にご回答いただきありがとうございました。
助かりました。

回答No.4

某HN クロメート(Chromate)（@CoalTar）

C1セルに入力するとして
With Range("C1")
　　.Formula = "=IF(B1=""東京"",5,"""")"
　　'状況に応じて .Value = .Value
End With

お礼

早々のご回答ありがとうございます。
質問締め切りの処理をしていたときにご回答をいただいていたようです。
そのため今回はポイントを使い切ってしまってしまいました。すいません。
さっそく試させていただきまして　うまく動きました。
他の方の回答と検討しながら利用させていただきます。
ありがとうございました。

回答No.3

hallo-2007

>=IF(B1="東京",5,"")
もし、この式がC1に入っているとして
Sub Macro1()
If Range("B1").Value = "東京" Then
Range ("C1").Value = 5
Else
Range ("C1").Value = ""
End If
End Sub
となります。

お礼

早々にご回答いただきありがとうございます。
助かりました。
ご回答いただいた順でポイントを付加させていただきました。

回答No.2

chie65536

追記。

「)」を１つ書き忘れました。「ここ」と思われる所に「)」を１つ足してください。