我需要使用vba中的inputbox在excel中填充数学表&引用；如何在新添加的工作表中填充表格；

我正在使用以下代码

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

---

在我看来，您的表总是添加到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

---

End Sub

“我正在使用以下代码”。。。还有？！你的问题是什么？您尝试过什么？@Dhruv Malik您面临什么问题？每次我运行代码时都会添加一个新的工作表，但我想在新添加的工作表中生成输入框中输入的特定表。您可以创建该表，然后使用数据输入表单填充它，或者在VBA中创建一个UserForm以从用户获取所有数据？