用户表格。 如何创建它并使用用户在宏中插入的数据

Question

我需要创建一个用户窗体。 它将具有3个控件：
1）标签：“请表示年份”
2）TextBox：“ 此处用户将插入年份 ”
3）CommandButton：“ 单击后将提交年份 ”

用户插入的年份将在我的宏中使用，下面是一段代码，其中应使用插入的年份标记有注释：

            For i = startrow To endrow

            Range("A" & i, "C" & i).Copy
            Sheets("Sheet13").Range("B" & i + 1).PasteSpecial xlPasteAll
            Range("D" & i).Copy
            Sheets("Sheet13").Range("G" & i + 1).PasteSpecial xlPasteAll
            Range("H" & i).Copy
            Sheets("Sheet13").Range("H" & i + 1).PasteSpecial xlPasteAll
            Sheets("Sheet13").Range("E" & i + 1).Value = "Inventory"
            Sheets("Sheet13").Range("F" & i + 1).Value = "31/12/2013" 'Here should be used the inserted year. I don't want to set the value to "31/12/2013?" but to "31/12/'Inserted Year'"
            Sheets("Sheet13").Range("O" & i + 1).Value = "R"

            Next  

此外，我想问一下在用户窗体中单击CommandButton后如何使宏开始工作。

提前谢谢了，
最诚挚的问候，
阿图尔·鲁特科夫斯基（Artur Rutkowski）

Answer 1

如果您在单击命令按钮时询问如何运行宏，只需将宏放在用户窗体内的命令按钮内。

您可以在编辑器中双击命令按钮，然后粘贴代码：

Private Sub CommandButton1_Click()
startrow = 1
endrow = 4
  For i = startrow To endrow
    Range("A" & i, "C" & i).Copy
    Sheets("Sheet13").Range("B" & i + 1).PasteSpecial xlPasteAll
    Range("D" & i).Copy
    Sheets("Sheet13").Range("G" & i + 1).PasteSpecial xlPasteAll
    Range("H" & i).Copy
    Sheets("Sheet13").Range("H" & i + 1).PasteSpecial xlPasteAll
    Sheets("Sheet13").Range("E" & i + 1).Value = "Inventory"
    Sheets("Sheet13").Range("F" & i + 1).Value = "31/12/2013" 'Here should be used the inserted year. I don't want to set the value to "31/12/2013?" but to "31/12/'Inserted Year'"
    Sheets("Sheet13").Range("O" & i + 1).Value = "R"

  Next
End Sub

右侧组合框中有单击，Dblclick，Enter，退出等选项，依此类推...