End Ifに対してのIfブロックがありませんとエラーが出ます。

Private Sub CommandButton1_Click()


IfOptionButton1.Value = TrueThen
Worksheets("工事管理表").Range("B5").Value = OptionButton1.Caption


ElseIFOptionButton2.Value = TrueThen
Worksheets("工事管理表").Range("B5").Value = OptionButton2.Caption

End　If

何が悪いのかがわかりません。
教えてください。

No.4 回答者： t_fumiaki 回答日時： 2020/05/16 20:54

ifとかelseifはコマンドだから、スペースを空ける。

IfOption・・・ ⇒ if Option・・・
ElseIFOption・・・ ⇒ Elseif Option・・・

No.3 回答者： p123p 回答日時： 2020/05/16 20:48

これではコマンドが分からない、なんでそうするの。

No.2 回答者： 中学1年生 回答日時： 2020/05/16 20:39

何の言語か解らないけどIfとOptionButtonがくっついてますよ

それでいいのですか？
その辺確認してみてはどうでしょうか

No.1 回答者： zongai 回答日時： 2020/05/16 20:39

スペースが抜けているから、ではなく？？

Private Sub CommandButton1_Click()


If OptionButton1.Value = True Then
Worksheets("工事管理表").Range("B5").Value = OptionButton1.Caption


ElseIf OptionButton2.Value = True Then
Worksheets("工事管理表").Range("B5").Value = OptionButton2.Caption

End If

End Sub