[解決済み] コンパイルエラーです。End If without block If
2022-02-10 21:33:33
質問
現在、別のスプレッドシートから情報を引き出すために以下のループを実行していますが、以下のエラーメッセージが表示され続けています。 コンパイルエラーです。End If without block If である。
ElseIf cel.Offset(0, 8).Value = "" Then wshT.Cells(r, 14).Value = "Physical"
何が原因で、どのように改善すればいいのでしょうか?以下、私のコードです。
' Loop though cells in column A on main.xlsm
For r = 1 To m
' Can we find the value in column A
Set cel = wshS.Columns(3).Find(What:=wshT.Cells(r, 1).Value, _
LookAt:=xlWhole, MatchCase:=False)
If Not cel Is Nothing Then
If cel.Offset(0, 8).Value = "Yes" Then wshT.Cells(r, 14).Value = "Virtual"
ElseIf cel.Offset(0, 8).Value = "" Then wshT.Cells(r, 14).Value = "Physical"
Else: End If
End If
Next r
解決方法は?
上記のコメントに従って、コードを次のように変更してください。
If Not cel Is Nothing Then
If cel.Offset(0, 8).Value = "Yes" Then wshT.Cells(r, 14).Value = "Virtual"
If cel.Offset(0, 8).Value = "" Then wshT.Cells(r, 14).Value = "Physical"
End If
または、次のようになります。
If Not cel Is Nothing Then
If cel.Offset(0, 8).Value = "Yes" Then
wshT.Cells(r, 14).Value = "Virtual"
ElseIf cel.Offset(0, 8).Value = "" Then
wshT.Cells(r, 14).Value = "Physical"
End If
End If
の構文については
IF/EndIf
は、以下を参照してください。
'~~> Multiple-line syntax:
If condition [ Then ]
[ statements ]
[ ElseIf elseifcondition [ Then ]
[ elseifstatements ] ]
[ Else
[ elsestatements ] ]
End If
'~~> Single-line syntax:
If Condition Then [ statements ] [ Else [ elsestatements ] ]
関連
-
[解決済み】Excel VBAのByRef引数の型の不一致
-
[解決済み] OutlookでVBAスクリプトを実行しようとすると、「SubまたはFunction not defined」と表示される。
-
[解決済み] プロパティの無効な使用 vba クラス
-
[解決済み] ワークシートを1枚飛ばし、残りのワークシートを処理する
-
[解決済み] <>とはどういう意味ですか?
-
[解決済み] VBAを使用してExcelシートの空白でない列の数を求めることができます。
-
[解決済み] FormulaR1C1 の機能は何ですか?
-
[解決済み] どのようにvbaコードCells.FindによってExcelの列で値を見つけるために
-
[解決済み] Microsoft Officeをインストールせずに、C#でExcel(.XLSおよび.XLSX)ファイルを作成するにはどうすればよいですか?
-
[解決済み】VBAは辞書構造を持っていますか?
最新
-
nginxです。[emerg] 0.0.0.0:80 への bind() に失敗しました (98: アドレスは既に使用中です)
-
htmlページでギリシャ文字を使うには
-
ピュアhtml+cssでの要素読み込み効果
-
純粋なhtml + cssで五輪を実現するサンプルコード
-
ナビゲーションバー・ドロップダウンメニューのHTML+CSSサンプルコード
-
タイピング効果を実現するピュアhtml+css
-
htmlの選択ボックスのプレースホルダー作成に関する質問
-
html css3 伸縮しない 画像表示効果
-
トップナビゲーションバーメニュー作成用HTML+CSS
-
html+css 実装 サイバーパンク風ボタン
おすすめ
-
[解決済み] OutlookでVBAスクリプトを実行しようとすると、「SubまたはFunction not defined」と表示される。
-
[解決済み] プロパティの無効な使用 vba クラス
-
[解決済み] Redimを使用して配列のデータ型を設定する
-
[解決済み] ワークシートを1枚飛ばし、残りのワークシートを処理する
-
[解決済み] VBA チャートのタイトルを追加する
-
[解決済み] エクセルVBAの検索文字列 : エラー2015
-
[解決済み] コンパイルエラーです。Forがない場合は次へ|VBA
-
[解決済み] VBAを使用してExcelシートの空白でない列の数を求めることができます。
-
[解決済み] VBAでファイルを削除する
-
[解決済み] VBAで関数から配列を返す