新しいワークシートを追加して名前を付けるExcelマクロ

最も単純なワークシート関連のオートメーションのうちの1つですが、コードの行を読むと、このマクロは比較的直感的です。 Excelでマクロを適用すると、新しいワークシートを追加して名前を付けることができます。マクロの仕組みと使い方は次のとおりです。

マクロの仕組み

コードの行を読むと、このマクロは比較的直感的です：

Sub Macro1（） 'ステップ1：Excelにエラーが発生した場合の対処方法を教えてくださいエラーGoTo MyError '手順2：シートを追加し、シートに名前を付けます。アクティブシートを追加します。 Name = _ WorksheetFunction。テキスト（Now（）、 "m-d-yyyy h_mm_ss 

am / pm"）Exit Sub 'ステップ3：ここでエラーが発生しました。 MyError：MsgBox "既にそれが呼ばれているシートがあります。" End Sub

新しいシートにすでに存在する名前を付けると、エラーが発生することが予想されます。したがって、ステップ1では、エラーが発生した場合、マクロはMyError（ステップ3）の行にすぐにスキップするようにExcelに指示します。

<！ - 1 - >

ステップ2では、Addメソッドを使用して新しいシートを追加します。デフォルトでは、シートはSheet xx、 と呼ばれ、 xx はシートの番号を表します。 ActiveSheetオブジェクトのNameプロパティを変更して、シートに新しい名前を付けます。この場合、現在の日付と時刻のワークシートに名前を付けています。

ワークブックと同様に、VBAを使用して新しいシートを追加するたびに、新しく追加されたシートが自動的にアクティブシートになります。最後に、手順2でマクロがプロシージャを終了することに注意してください。これは、誤ってステップ3に入ることがないようにする必要があります（エラーが発生した場合にのみ有効になります）。

<！ - 2 - >

ステップ3では、シート名がすでに存在することをユーザーに通知します。ここでも、エラーが発生した場合にのみ、この手順をアクティブにする必要があります。

マクロの使用方法

このマクロを実装するには、標準モジュールにコピーして貼り付けます。

1. Alt + F11を押してVisual Basic Editorをアクティブにします。

2. プロジェクトウィンドウでプロジェクト/ワークブック名​​を右クリックします。

3. [挿入]→[モジュール]を選択します。

   <！ - 3 - >

4. 新しく作成したモジュールにコードを入力するか貼り付けます。