Excel VBAでIF文の中にfor文を記載するとエラーになります

前提・実現したいこと

Excel VBAで、変数の内容によってfor文の行番号を変えたく、
下記コードを作成しましたが、エラーが出てしまいます。
このエラーが出たときの対処法を調べてみましたが、
「Elseの直前にEnd If」「If文を１行で書いている」の原因となっており
今回の内容の対処法が見つかりませんでした。

実現するにはどのように記載すればよいでしょうか？

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

コンパイルエラー：Elseに対応するIfがありません。

該当のソースコード

If ji_pc = "4g" Then
　　　　For p = 4 To 9 
ElseIf ji_pc = "5g" Then
       For p = 31 To 34
Else
       MsgBox "プロジェクトを選択してください"
End If
　　　　～処理～
　　　　Next

meg_

2021/11/08 07:30

そういう書き方は文法上出来ないかと。jinojiさんの回答の方法で良いかと思います。

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

回答2件

ベストアンサー

こんな感じでどうでしょうか。

VBA
1
2    Dim st, en
3    If ji_pc = "4g" Then
4        st = 4
5        en = 9
6    ElseIf ji_pc = "5g" Then
7        st = 31
8        en = 34
9    Else
10           MsgBox "プロジェクトを選択してください"
11           Exit Sub
12    End If
13    
14    For p = st To en
15        '　　　　～処理～
16    Next
17