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

Question

我需要创建一个UserForm。这将有3个控制：
1）标签：“请表示今年”
2）文本框：“这里用户将插入一年”
3）命令按钮：“点击它后，今年将提交 “

年由用户插入会在我的宏结合使用，这里是与地方的一段代码被插入的一年，应使用标有注释：

  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 

而且我想问一下如何让我的宏单击用户窗体中的命令按钮后，宏开始工作。

很多感谢，
用最诚挚的问候，
阿图尔·卢特考斯基

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 

有对点击右侧下拉框选项，双击自动，进入，退出，等等...