Excel VBA質問箱 IV

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

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


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

50586 / 76737

←次へ　｜　前へ→


	【31036】Excel2003 VBAにおけるエラー回避

Maybe - 05/11/9(水) 16:58 -


	引用なし

	パスワード

初めて投稿する者です。
Excel2003上で実行する以下マクロにおけるエラー回避についてお尋ねします。

１．マクロの概要

ＡＢＣ各シートの所定セルを選択／コピーして、既存シートＸの所定セルにペーストします。
その際、ＡＢＣ各シートが存在しない場合のエラー（番号"9"）を回避させます。

２．問題の現象

ＡＢＣ３枚のシートのうち何れか１枚が存在しない場合は正常にエラー回避されるのですが、２枚以上のシートが存在しない場合、最初のエラー回避は正常、２回目のエラーは回避されません。

　ex.1 ＡＢＣ全てが存在しない場合、Ｂを選択するときにエラーとなります。

　ex.2 ＡＢが存在しない場合はＢで、同じくＢＣの場合はＣで、同じくＡＣの場合はＣでエラーとなります。

上記現象から、同一エラーの複数回避は不可となっているようです。
今回のケースで、全てのエラーを回避する手段（コーディング）につきご教示ください。

以上、よろしくお願いいたします。

Sub Test()

　　On Error GoTo Skip01
　　Sheets("Ａ").Select
　　Range("B11").Select
　　Selection.Copy
　　Range("E1").Select
　　Sheets("Ｘ").Select
　　Range("F8").Select
　　Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
　　　　:=False, Transpose:=False

Skip01:
　　On Error GoTo Skip02
　　Sheets("Ｂ").Select
　　Range("B11").Select
　　Application.CutCopyMode = False
　　Selection.Copy
　　Range("E1").Select
　　Sheets("Ｘ").Select
　　Range("G8").Select
　　Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
　　　　:=False, Transpose:=False

Skip02:
　　On Error GoTo Skip03
　　Sheets("Ｃ").Select
　　Range("B11").Select
　　Application.CutCopyMode = False
　　Selection.Copy
　　Range("E1").Select
　　Sheets("Ｘ").Select
　　Range("H8").Select
　　Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
　　　　:=False, Transpose:=False

Skip03:
　　On Error GoTo 0

End Sub

0 hits

▼

【31036】Excel2003 VBAにおけるエラー回避 Maybe 05/11/9(水) 16:58

≪