前提・実現したいこと
はじめまして、、初歩的な質問で申し訳ありません。
一人では解決できませんので、ご教授いただけますと幸いです。
以下の問題を解決したいと考えています。
発生している問題・エラーメッセージ
END IF に対応するIFブロックがありません。
該当のソースコード
Dim i As Long Dim Flag As Long Dim rslt As VbMsgBoxResult For i = 1 To ThisWorkbook.Worksheets.Count If ThisWorkbook.Worksheets(i).Name = "123" Then Flag = 1 MsgBox "シートがある" Exit For End If Next i If Flag = 1 Then Else rslt = MsgBox("これは、メッセージボックスですか?", Buttons:=vbYesNo) Select Case rslt Case vbYes GoTo Label 'シートのコピペをスキップ Case vbNo MsgBox "シートがないので続けない" End If ←ここ
試したこと
ここに問題に対して試したことを記載してください。
補足情報(FW/ツールのバージョンなど)
ここにより詳細な情報を記載してください。
回答1件
あなたの回答
tips
プレビュー
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。