1

私はExcelが初めてで、複数のシートを追加しようとしています。それぞれに名前を付けてください。マクロは一度に 1 つのシートのみを追加します。たとえば、[実行] をクリックすると、[価格調整] テーブルが作成されますが、他のテーブルは作成されません。「実行」をもう一度クリックすると、次のテーブルのみが作成されます。

Sub NewSheets()

With Sheets.Add()
    .Name = "CustomerTable"
    .Name = "EmployeeTable"
    .Name = "OrdersTable"
    .Name = "ProductTable"
    .Name = "PriceAdjustment"
End With

End Sub

ありがとう

4

3 に答える 3

0

これは、Add()メソッドを 1 回呼び出しているためです。これを試して：

Sub AddNewWorksheet(name as String)
    With Worksheets.Add()
        .Name = name
    End With
End Sub

次に、次のようにワークシートを追加できます。

AddNewWorksheet("CustomerTable")
AddNewWorksheet("EmployeeTable")
'...
于 2013-05-31T02:11:45.327 に答える