Ｐａｇｅ 850 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼新しいシートを追加せずにする戻る方法 EBI 03/3/7(金) 21:37 ┗Re:新しいシートを追加せずにする戻る方法 りん 03/3/7(金) 21:45 ┗Re:新しいシートを追加せずにする戻る方法 EBI 03/3/7(金) 22:06 ─────────────────────────────────────── ■題名 ： 新しいシートを追加せずにする戻る方法 ■名前 ： EBI <ebi@gctv.ne.jp> ■日付 ： 03/3/7(金) 21:37 -------------------------------------------------------------------------
| "４ヶ月超"という新しいシートを追加するマクロをくんでいますが、既に"４ヶ月超"のシートが存在するとSheet*というシートが作られてしまいます。そのため以下のように逃げていますが、このSheet*というのを出来なくするにはどうすればよろしいのでしょうか？よろしくお願いします。 Sub 四ヶ月超() Application.ScreenUpdating = False Set NewSheet = Sheets.Add On Error Resume Next ActiveSheet.Name = "４ヶ月超" If Err.Number <> 0 Then MsgBox "既に４ヶ月超のシートがあります。新しいSheetが作成されますので後で削除して下さい｡ " On Error GoTo 0 Err = 0 End If NewSheet.Cells(1, 2).Value = Worksheets("当初").Cells(1, 2).Value ・ ・ |
| EBI さん、こんばんわ。 >このSheet*というのを出来なくするにはどうすればよろしいのでしょうか？よろしくお願いします。 その名前のシートが無いときに新しいシートを追加すればいいです。 Sub 四ヶ月超() Application.ScreenUpdating = False Dim NewSheet As Worksheet On Error Resume Next 'エラースキップ Set NewSheet = Worksheets("４ヶ月超") '無かったら失敗する On Error GoTo 0 '元に戻す 'スキップされていたら Nothing If NewSheet Is Nothing Then Set NewSheet = ActiveWorkbook.Worksheets.Add NewSheet.Name = "４ヶ月超" End If '以下略 こんな感じです。 |
| ▼りん さん：こんばんわ またまたお世話になりました。ありがとうございます。 本当に早いですね。感心します。 これで仕事も速くできます。 |