VBAのIF構文について

質問

VBAでまたわからないところが出てきたので質問させてください。

ActiveWorkbookのworksheet1のa1セルに何か文字列が入っていると仮定して、下記のstrSUB に入る文字列をifで分岐させたいのですが、どのような構文が適していますでしょうか？

下記の内容では、エラーになってしまいます。
識者の方々、よろしくお願いいたします。

-----------------------------------------------------------------

Sub test送信メール作成()

Dim oApp As Object
Dim objMAIL As Object
Dim strSUB As String
Dim strBODY As String

Set oApp = CreateObject("Outlook.Application")

Set objMAIL = oApp.CreateItem(0)

strSUB = if ActiveWorkbook.Worksheets(1).range("a1") = "abc" then
"aaa"
Else
"bbb"
End If

strBODY = "a" & vbCrLf _
& "b" & vbCrLf _
& "c"

With objMAIL
.To = "aaa@bbb.com"
.CC = "ccc@ddd.com"
.Subject = strSUB
.Body = strBODY
.Display
End With

End Sub

回答No.1

kybo · ベストアンサー

そういう風にしたいときはIIF関数を使います。

strSUB = IIf(ActiveWorkbook.Worksheets(1).Range("a1") = "abc", "aaa", "bbb")

普通にIFでする場合は、以下の様にします。

If ActiveWorkbook.Worksheets(1).Range("a1") = "abc" Then
strSUB = "aaa"
Else
strSUB = "bbb"
End If

お礼

ありがとうございます！
できました！！
なおかつIFの場合の構文も教えていただき感無量です！