Else に対するIfがありませんに関してと出ます

補足情報（FW/ツールのバージョンなど）

エクセル2013

前提・実現したいこと

いつもお世話になっております。

メッセージボックスを表示させ、はいを押した場合は内容の転記をセルに行い、
いいえの場合はユーザーフォームのtxt原票Noというテキストボックスにカーソル？を戻したいと思っています。
ただ下記のコードですと「Else に対するIfがありません」というエラーが出てしましました。
エラーがでずに上記のことをしたいと思っています。

発生している問題・エラーメッセージ

Else に対するIfがありません

該当のソースコード


    If MsgBox("登録してもよろしいですか？", Buttons:=vbYesNo) = vbYes Then
        For i = 2 To lastrow
            Cells(i + 1, 1) = txt原票No.Text
            Cells(i + 1, 2) = lbl取引先コード1.Caption
        Exit For
            For Each Ctrl In Controls
                If TypeName(Ctrl) = "TextBox" Then _
                    Ctrl.Value = ""
            Next Ctrl
        Else
            txt原票No.SetFocus: Exit Sub
    End If

行動規範の内容に同意します

回答3件

皆さんおっしゃってますが、
インデントは可読性向上のため、
合わせた方が無難ですね。

問題点だけ挙げるなら、
５行目の
Exit For
を
Next
にしましょう。

単純に１つ目のForが終わってないと認識されていますので、
If→For→Else
と認識されてしまい、
VBAさんからしたら、
「Forの中でいきなりElse出てきたんですけど！？」
状態です。

投稿2021/01/29 14:19

WhiteTempest

総合スコア404

care_raisu

2021/01/30 04:45

Exit for　を変えることが盲点でした。ご回答ありがとうございます。

行動規範の内容に同意します

ベストアンサー

コード書いてみました。
VBAは可読性が悪くなりがちなので、otnさんがおっしゃるようにインデントをきちんとしたほうがよいですね。

vba
1    If MsgBox("登録してもよろしいですか？", Buttons:=vbYesNo) = vbYes Then
2        For i = 2 To lastrow
3            Cells(i + 1, 1) = txt原票No.Text
4            Cells(i + 1, 2) = lbl取引先コード1.Caption
5        Next
6        For Each Ctrl In Controls
7            If TypeName(Ctrl) = "TextBox" Then
8                Ctrl.Value = ""
9            End If
10        Next Ctrl
11    Else
12        txt原票No.SetFocus
13        Exit Sub
14    End If