Question

在我的模板上，我想点击一个按钮，询问我要生成多少次，然后生成副本。

我正在尝试以下方法：

Sheets.add after=activeSheet

或

Cells.Select
Selection.Copy
Sheets("Sheet1").Select
Application.CutCopyMode = False
Sheets("Sheet1").Copy After:=Sheets(2)

Answer 1

也许这就是你想要做的事情？

Option Explicit
Private Sub CommandButton1_Click()
    Dim Sht As Worksheet
    Dim Num%
    Dim i%

    Set Sht = ThisWorkbook.Sheets("Sheet1")

    Num = Application.InputBox("Enter a Number", Type:=1)

    For i = 1 To Num
        Sht.Copy after:=Worksheets(Worksheets.Count)
        ActiveSheet.Name = i
    Next i

End Sub

右键单击ActiveX控件按钮并粘贴代码

<强> Application.InputBox Method (Excel)

_{显示用户输入的对话框。返回在对话框中输入的信息
  可以在Type参数中传递的值可以是值的一个或总和。

  例如，对于可同时接受文字和数字的输入框， set Type to 1 + 2.}

+-------+-------------------------------------+
| Value |               Meaning               |
+-------+-------------------------------------+
|     0 | A formula                           |
|     1 | A number                            |
|     2 | Text (a string)                     |
|     4 | A logical value (True or False)     |
|     8 | A cell reference, as a Range object |
|    16 | An error value, such as #N/A        |
|    64 | An array of values                  |
+-------+-------------------------------------+

使用按钮多次复制模板表

1 个答案: