excel - vbaのinputboxを使用してExcelで数学テーブルにデータを入力する必要があります。「新しく追加されたシートにテーブルを追加する方法は？」

Question

私は次のコードを使用しています、

Sub chk() 

    Dim x As Variant

    Select Case StrPtr(x)
        Case 0
            Exit Sub
        Case Else
            Dim d As Integer
            Dim y As Integer
            Dim ws As Object
            Set ws = Worksheets(1)
            d = InputBox("enter the integer")
            For y = 1 To 10
                ws.Cells(y, 1) = y * d
            Next y
            ActiveSheet.Name = d
            ActiveWorkbook.Sheets.Add after:=Worksheets(3)
            Set ws = Nothing
    End Select

End Sub

Answer 1

追加した新しいシートではなく、テーブルが常に Sheet1 に追加されているように見えますか? テーブルを新しいシートに追加する場合は、次のようにします。

Sub chk() 

Dim x As Variant

Select Case StrPtr(x)
    Case 0
        Exit Sub
    Case Else
        Dim d As Integer
        Dim y As Integer
        Dim ws As Worksheet
        d = InputBox("enter the integer")
        Set ws = ActiveWorkbook.Sheets.Add After:=Worksheets(3)
        ws.Name = d
        For y = 1 To 10
            ws.Cells(y, 1) = y * d
        Next
        Set ws = Nothing
End Select

サブ終了