excel - 我需要使用 vba 中的输入框在 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

结束子