我需要在excel中使用輸入框在vba中填充數學表。 「如何在新添加的表格中填充表格？」

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 

末次