|
初めて投稿する者です。
Excel2003上で実行する以下マクロにおけるエラー回避についてお尋ねします。
1.マクロの概要
ABC各シートの所定セルを選択/コピーして、既存シートXの所定セルにペーストします。
その際、ABC各シートが存在しない場合のエラー(番号"9")を回避させます。
2.問題の現象
ABC3枚のシートのうち何れか1枚が存在しない場合は正常にエラー回避されるのですが、2枚以上のシートが存在しない場合、最初のエラー回避は正常、2回目のエラーは回避されません。
ex.1 ABC全てが存在しない場合、Bを選択するときにエラーとなります。
ex.2 ABが存在しない場合はBで、同じくBCの場合はCで、同じくACの場合はCでエラーとなります。
上記現象から、同一エラーの複数回避は不可となっているようです。
今回のケースで、全てのエラーを回避する手段(コーディング)につきご教示ください。
以上、よろしくお願いいたします。
Sub Test()
On Error GoTo Skip01
Sheets("A").Select
Range("B11").Select
Selection.Copy
Range("E1").Select
Sheets("X").Select
Range("F8").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Skip01:
On Error GoTo Skip02
Sheets("B").Select
Range("B11").Select
Application.CutCopyMode = False
Selection.Copy
Range("E1").Select
Sheets("X").Select
Range("G8").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Skip02:
On Error GoTo Skip03
Sheets("C").Select
Range("B11").Select
Application.CutCopyMode = False
Selection.Copy
Range("E1").Select
Sheets("X").Select
Range("H8").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Skip03:
On Error GoTo 0
End Sub
|
|