Question

我需要创建一个UserForm。它将有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，Exit等...

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

1 个答案: