excel - 如何在用户窗体中将数据传输到同一工作簿中的不同工作表(使用 ComboBox)？

Question

用户@K.Davis 应我的要求提供了未在工作表中输入的日期代码(问题已解决!)，他提供了代码以使用用户表单中的组合框来选择将在哪个工作表中输入数据。但我确定我没有做对并收到错误消息。这是代码:

Private Sub CommandButton1_Click()

Dim dcc As Long
Dim abc As Worksheet

Set abc = Worksheets(Me.ComboBox1.Value)
dcc = Sheets("January2019").Range("A" & Rows.Count).End(xlUp).Row

With abc

    .Cells(dcc + 1, 1).Value = Date
    .Cells(dcc + 1, 2).Value = Me.TextBox1.Value
    .Cells(dcc + 1, 3).Value = Me.TextBox2.Value
    .Cells(dcc + 1, 4).Value = Me.TextBox3.Value
    .Cells(dcc + 1, 5).Value = Me.TextBox4.Value
    .Cells(dcc + 1, 6).Value = Me.TextBox5.Value

End With
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""

End Sub

现在我确定如果我删除 dcc = sheet("January2019").range until(xlup).row 行，那么它将停止在第一个空闲行中输入日期。我可能是错的。但这是 CommandButton1 上的代码，它将数据从用户表单传输到工作表。目前工作簿中只制作了 1 月和 2 月的工作表，但我会添加更多工作表。在这里值得一提的是，我通过观看视频制作了用于组合框1 的下拉列表。只需在新工作表中添加月份名称，然后在组合框 1 的原始资源中添加工作表名称，组合框就会被填充。月份表的名称命名为 Sheet1。

我在这里先向您的帮助表示感谢。

干杯。

Answer 1

而不是使用 Sheet1包含您的工作表名称，只需使用工作表集合自动填充您的组合框。

所以，无论你有什么代码填充你的 ComboBox1 - 摆脱它。另外，删除您的Sheet1因为您也将不再使用它。

Private Sub UserForm_Initialize()
    Dim i As Long
    For i = 1 To ThisWorkbook.Sheets.Count
        Me.ComboBox1.AddItem ThisWorkbook.Sheets(i).Name
    Next
End Sub

Private Sub CommandButton1_Click()

    Dim dcc As Long
    Dim abc As Worksheet

    Set abc = ThisWorkbook.Worksheets(Me.ComboBox1.Value)

    With abc

        dcc = .Range("A" & Rows.Count).End(xlUp).Row

        .Cells(dcc + 1, 1).Value = Date
        .Cells(dcc + 1, 2).Value = Me.TextBox1.Value
        .Cells(dcc + 1, 3).Value = Me.TextBox2.Value
        .Cells(dcc + 1, 4).Value = Me.TextBox3.Value
        .Cells(dcc + 1, 5).Value = Me.TextBox4.Value
        .Cells(dcc + 1, 6).Value = Me.TextBox5.Value

    End With
    TextBox1.Text = ""
    TextBox2.Text = ""
    TextBox3.Text = ""
    TextBox4.Text = ""
    TextBox5.Text = ""

End Sub

您的 dcc变量还需要使用 abc 进行限定。工作表 - 所以我把它移到了你的 With...End With堵塞。