Excel (VBA)

Excel VBAに関するフォーラムです。
  • 解決済みのトピックにはコメントできません。
このトピックは解決済みです。
質問

 
(指定なし : 指定なし)
同じ名前のシートを作成し,既存シートを削除
投稿日時: 21/05/22 22:14:36
投稿者: 隆誠

つまらない質問ですみません。
 
aaa sheet があります。
この saa sheetを削除し、新規で aaa sheet を作成する場合なのですが、
 
    Sheets("aaa").Select
    Sheets.Add
    Sheets("aaa").Select
    ActiveWindow.SelectedSheets.Delete
 
この時点で、既存のaaa sheetを削除して良いかメッセージが出ます。
このメッセージをスルーさせたいです。
 
    Sheets("Sheet2").Select
    Sheets("Sheet2").Name = "aaa"
 
新しいシートを挿入すると Sheet2 から始まり Sheet3 Sheet4 とSheet番号が変わるので決め打ちができません。
 
どうしたら良いのでしょうか。
 
本当に申し訳ないです。教えてください。

投稿日時: 21/05/22 22:26:17
投稿者: 隆誠

隆誠 さんの引用:

新しいシートを挿入すると Sheet2 から始まり Sheet3 Sheet4 とSheet番号が変わるので決め打ちができません。
 
どうしたら良いのでしょうか。
 

 
 
Dim sheetName As String
 
Worksheets.Add
sheetName = ActiveSheet.Name
Sheets(sheetName).Name = "aaa"
 
新規挿入したシート名を取得して、リネームする という考え方でよろしいでしょうか。

投稿日時: 21/05/22 22:30:20
投稿者: 隆誠

確認メッセージをスルーする方法は この一文を追加するのですね。
 
Application.DisplayAlerts = False
 
なんとなくできましたのでクローズします.