|
はじめまして。
いつも参考にさせていただいています。
検索したり調べてみたのですが、見つかりませんでしたので質問させてください。
エラーがあった場合に、どの行でエラーが発生したかを表示させるにはどうすればいいのでしょうか?
各項目ごとにエラーチェックをして、その番号を取得するのはできたので一応目的は達せられているのですが、項目がたくさんあるので一つずつに埋め込むのもスマートでないので、エラーのときにどの行で発生したかが分かる関数もしくは方法があれば教えていただきたいのですが。
<現在の記述>(質問に不要な部分は削除してあります。)
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
よろしくお願いします。
|
|