一回目の検索は正常に動き、2回目の検索でもうこれ以上無いと言う事を
確認したくて、以下の様なマクロを組み、Resume Nextで正常に戻ろうと
考えました(ExcelのVBAではこれで動いていた)。
Resume Next はCALCでも動くと色々な資料に記してある。
しかし、下記のマクロを動かすとResume Nextの所でエラー91となって
いる。
どこorなにに問題が有るのでしょうか?
Option VBASupport 1
Sub Macro1()
On Error GoTo ErrorHand01 'エラーが発生したらエラー処理へ
Cells.Find(What:="a", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, MatchByte:=False, SearchFormat:=False).Activate
Cells.Find(What:="a", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, MatchByte:=False, SearchFormat:=False).Activate
t=1
ErrorHand01: 'エラー処理ルーチン
Select Case Err 'システムがセットしたエラー発生コードによりケース分け
Case 91 '検索結果が見つからなかった場合のエラー番号
msgbox (Err )
msgbox Erl
Resume Next
Case Else
msgbox (Err )
msgbox Erl
Exit Sub
End Select
End Sub
マクロでresume nextが動かない
-
- 記事: 8
- 登録日時: 1月 8, 2014, 5:31 pm