Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

58532 / 76732

←次へ　｜　前へ→


	【22926】エラー行番号の取得

４－２３６ - 05/3/7(月) 19:33 -


	引用なし

	パスワード

はじめまして。
いつも参考にさせていただいています。

検索したり調べてみたのですが、見つかりませんでしたので質問させてください。

エラーがあった場合に、どの行でエラーが発生したかを表示させるにはどうすればいいのでしょうか？

各項目ごとにエラーチェックをして、その番号を取得するのはできたので一応目的は達せられているのですが、項目がたくさんあるので一つずつに埋め込むのもスマートでないので、エラーのときにどの行で発生したかが分かる関数もしくは方法があれば教えていただきたいのですが。

＜現在の記述＞(質問に不要な部分は削除してあります。)
　　On Error GoTo ErrorMessage

'　項目01「Data」セル検索
　　Set Cell01 = Range("A:A").Find("Data")
　　ErrorCheck = IsError(Cell01)
　　If Error01 = False Then ErrorNum = "-01"

'　項目02「Time」セル検索
　　Set Cell02 = Range("A:A").Find("Time")
　　ErrorCheck = IsError(Cell02)
　　If Error02 = False Then ErrorNum = "-02"
・
・
・
・
ErrorMessage:
　　MsgBox "エラー番号 = " & Err.Number & ErrorNum, vbCritical

よろしくお願いします。

0 hits

▼

【22926】エラー行番号の取得 ４－２３６ 05/3/7(月) 19:33

≪