【Excel2003VBA】セルの文字で条件分岐

質問

基本的な質問で恐縮ですが、Excel2003のVBAで条件分岐をするときの方法について質問です。
例えば、A1に文字列の「当選」と「あたり」があった場合は、真の処理を、それ以外の場合は偽の処理をする場合は条件式にどのように書けば良いのでしょうか？
次の【条件式】に入る書き方を教えてください。

sub 条件分岐()

　　If　【 条件式 】 Then
　　　　真の場合
　　Else
　　　　偽の場合

End sub

回答No.1

keithin · ベストアンサー

if worksheets("シート名").range("A1") = "当選" or worksheets("シート名").range("A1") = "あたり" then
’当たりの処理
else
’ハズレの処理
end if
のように。

大概の場合メンドクサくてシートの指定を省いてしまいますが，まぁ習慣としてシートもキチンと指定するクセを付けておくことをお薦めします。

お礼

詳しいご回答ありがとうございました。
わかりやすいご回答で大変助かりました。

回答No.2

mu2011

一例です。
If文で条件を並べると見づらくなるのでCase文は如何でしょうか。

Select Case Range("a1").Value
Case "当選"
　当選の処理
Case "あたり"
　あたりの処理
Case Else　　 ’処理がない場合、省略可能
　その他の処理 '　同上
End Select