0

我需要创建一个用户窗体。它将有 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

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

非常感谢，
并致以最诚挚的问候，
Artur Rutkowski

4

1 回答 1

0

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

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

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

右侧组合框中有 click、Dblclick、Enter、Exit 等选项...

于 2013-07-30T14:25:28.733 回答