Excel VBA質問箱 IV

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

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


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

54572 / 76732

←次へ　｜　前へ→


	【26946】on error?

や

- 05/7/25(月) 11:01 -


	引用なし

	パスワード

識者の皆様、 Workbooks("FRA OFF MKT RATES REPORT TOKYO" & Format(MYDAY, "YYYYMMDD") & ".XLS").Activate ActiveWorkbook.ActiveSheet.Range("A1:IV1").Insert (xlDown) ActiveWorkbook.ActiveSheet.Range("A1") = Format(MYDAY, "DD/MMM/YYYY") ActiveWorkbook.ActiveSheet.PageSetup.PrintArea = "$A$1:$T$8" With ActiveSheet.PageSetup 　　.PrintTitleRows = "" 　　.PrintTitleColumns = "" End With ActiveWorkbook.ActiveSheet.PageSetup.PrintArea = "$A$1:$T$10" With ActiveSheet.PageSetup 　　.LeftMargin = Application.InchesToPoints(0) 　　.RightMargin = Application.InchesToPoints(0) 　　.TopMargin = Application.InchesToPoints(0.984251968503937) 　　.BottomMargin = Application.InchesToPoints(0) 　　.HeaderMargin = Application.InchesToPoints(0) 　　.FooterMargin = Application.InchesToPoints(0) 　　.FitToPagesWide = 1 　　.FitToPagesTall = 1 　　End With If ActiveWorkbook.ActiveSheet.Range("C3") <> "" Then 'ActiveWorkbook.ActiveSheet.PrintOut End If という一くくりを5回くらいレポート名を変えて繰り返したいのですが、もしFRA OFF MKT REPORT TOKYOがなかったら次の一くくりに移るという構文にしたいのですが、On error nextとやってみてもうまく動きません。お手数ですがどうやったらいいのか教えていただけますでしょうか？よろしくお願いします。