VBA構文でコンパイルエラーの原因を教えてください。

Sub MOD関数()
Dim n As Integer
n = 1000
If n Mod 2 = 0 Then
MsgBox n & "偶数"
Elself n Mod 2 = 1
MsgBox n & "奇数"
End If
End Sub

上記の nが偶数か奇数かを判別するプログラムで
実行をすると Elselfでコンパイルエラーとなります。
原因をご教授ください。

質問者からの補足コメント

• 

  早急のご回答ありがとうございます。
  ご指摘の件実行したのですが
  今度はThenの箇所でコンパイルエラーが
  発生します。

    補足日時：2020/10/11 13:22

No.4 回答者： tom04 回答日時： 2020/10/11 17:49

No.3です。

どうも失礼しました。
エラーの原因を記載していなかったですね。

＞Elself n Mod 2 = 1
は
＞ElseIf n Mod 2 = 1 Then

のように　ElseIf～Then　の形にしないとエラーになると思います。m(_ _)m

この回答へのお礼

ご教授ありがとうございました。
解決致しました。
今後ともよろしくお願いいたします。

お礼日時：2020/10/12 19:15

No.3 回答者： tom04 回答日時： 2020/10/11 17:45

こんにちは！

「n」が整数であれば奇数か偶数に決まっているので
（今回の場合は「TRUE」か「FALSE」のどちらかに決まっている）

＞Elself n Mod 2 = 1
＞MsgBox n & "奇数"
は

＞Else
＞MsgBox n & "奇数"
だけで大丈夫です。

※　Elself　は3以上の分岐の場合に使うコトがほとんどです。
あまりに分岐が多い場合は
＞Select Case
を使う方法もありますので、ネットで検索してみてください。m(_ _)m

No.2 回答者： nekoronda 回答日時： 2020/10/11 13:29

No.1です。

よく見たら”Elself”の"l"がエルになっています。
スペルミスです。

この回答へのお礼

ご指摘ありがとうございました。
解決致しました。
今後ともよろしくお願いいたします。

お礼日時：2020/10/12 19:20

No.1 回答者： nekoronda 回答日時： 2020/10/11 13:05

then がありません。

Elself n Mod 2 = 1　Then

が正解です。

この回答へのお礼

ありがとうございました。
感謝感謝です。
解決致しました。

お礼日時：2020/10/11 13:58