[解決済み] VBAでエラー時のGOTOステートメント
2022-03-09 16:51:04
質問
Ctrl+Fコマンドを使用してExcelシートの特定の値を検索するコードを持っていますが、コードが何も見つからなかったときに私はそれがメッセージを投げるようにしたいです。
sub test()
f=5
do until cells(f,1).value=""
On Error goto hello
Cells.Find(what:=refnumber, After:=ActiveCell, LookIn:=xlFormulas, _
lookat:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
f=f+1
hello: Msgbox"There is an error"
loop
endsub
問題は、エラーが見つからない場合でも、メッセージが表示されることです。エラーの時だけメッセージボックスを表示させたいのですが。
どうすればいいですか?
そのような場合は
Exit Sub
または
Exit Function
を作成し、あなたの
hello
というラベルを、コードの最後の部分に追加します。サンプルをご覧ください。
Sub test()
f = 5
On Error GoTo message
check:
Do Until Cells(f, 1).Value = ""
Cells.Find(what:=refnumber, After:=ActiveCell, LookIn:=xlFormulas, _
lookat:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
Loop
Exit Sub
message:
MsgBox "There is an error"
f = f + 1
GoTo check
End Sub
関連
-
[解決済み】Excel VBAのByRef引数の型の不一致
-
[解決済み] プロパティの無効な使用 vba クラス
-
[解決済み] VBA RangeクラスのSortメソッドに失敗しました。
-
[解決済み] VBAです。IfエラーにならないElse
-
[解決済み] VBAのコードに「Label Not define」がありますが、これは何ですか?
-
[解決済み] Access VBAで "Duplicate declaration in current scope "というエラーが発生する。
-
[解決済み] VBAでファイルを削除する
-
[解決済み] VBAでエラー時のGOTOステートメント
-
[解決済み】VBAは辞書構造を持っていますか?
-
[解決済み】Excel VBAでSelectを使用しないようにする方法
最新
-
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 実装 サイバーパンク風ボタン
おすすめ
-
[解決済み】Excel VBAのByRef引数の型の不一致
-
[解決済み] OutlookでVBAスクリプトを実行しようとすると、「SubまたはFunction not defined」と表示される。
-
[解決済み] エクセルVBAです。エラー1004 WorkSheetFunction 'Unable to get Vlookup property'
-
[解決済み] VBA:マクロでMSXML2.DOMDocumentがMSXML2.DOMDocument40に変更された。
-
[解決済み] <>とはどういう意味ですか?
-
[解決済み] Accessからレポートを自動でメール送信
-
[解決済み] VBAでエラー時のGOTOステートメント
-
[解決済み】VBAのDebug.Printのログはどこに記録されるのですか?
-
[解決済み】VBAは辞書構造を持っていますか?
-
[解決済み】Visual Basic 6.0とVBAの違いについて