组合框用户表单基于对其他工作表的列表选择答案

【问题标题】：comboboxes userforms Based on list selection to other worksheets组合框用户表单基于对其他工作表的列表选择
【发布时间】：2013-10-22 15:21:29
【问题描述】：

根据在用户窗体上的组合框中所做的选择，我如何将所做的选择发送到所需的工作表。例如，我们在一个工作簿中有 12 个工作表。每个工作表名称都是一年中一个月的名称。组合框选择是一年中的所有月份。一月至十二月。如果我在组合框中选择一月，我希望用户窗体上的所有其他条目都转到一月工作表。如果我选择二月，我希望其他文本框中的所有条目都转到二月工作表，依此类推。我该如何做到这一点？任何帮助将不胜感激！！！

我重新编辑了代码。现在唯一的问题是 cellVal4 = Me.tbDate.Text 错误在于 .Text 突出显示。此外，当我提交表单时，它不会为每个条目添加一个新行，它会更改第一个条目所在的同一行。

            Option Explicit

将 WrkSheet 调暗为工作表

私人订阅 btnSubmit_Click() Application.EnableEvents = False

将工作表调暗为工作簿将 cellVal1 作为字符串，cellVal2 作为字符串，cellVal3 作为字符串，cellVal4 作为字符串，cellVal5 作为字符串，cellVal6 作为字符串，cellVal7 作为字符串，cellVal8 作为字符串，cellVal9 作为字符串，cellVal10 作为字符串，cellVal11 作为字符串，cellVal12 作为字符串将 cellVal13 作为字符串，cellVal14 作为字符串，cellVal15 作为字符串，cellVal16 作为字符串，cellVal17 作为字符串，cellVal18 作为字符串，cellVal19 作为字符串，cellVal20 作为字符串，cellVal21 作为字符串，cellVal22 作为字符串将 cellVal23 作为字符串，cellVal24 作为字符串，cellVal25 作为字符串，cellVal26 作为字符串，cellVal27 作为字符串，cellVal28 作为字符串，cellVal29 作为字符串，cellVal30 作为字符串，cellVal31 作为字符串，cellVal32 作为字符串，cellVal33 作为字符串，cellVal34 作为字符串

Dim shtCmb As String
Dim RwLast As Long

shtCmb = Me.cmbListItem1.Value
If shtCmb = "" Then
    MsgBox "Please choose a month.", vbOKOnly
    Me.cmbListItem1.SetFocus
End If

cellVal1 = Me.cmbListItem1.Text
cellVal2 = Me.cmbListItem2.Text
cellVal3 = Me.cmbListItem3.Text
cellVal4 = Me.TextBox31.Text
cellVal5 = Me.TextBox1.Text
cellVal6 = Me.TextBox2.Text
cellVal7 = Me.TextBox3.Text
cellVal8 = Me.TextBox4.Text
cellVal9 = Me.TextBox5.Text
cellVal10 = Me.TextBox6.Text
cellVal11 = Me.TextBox7.Text
cellVal12 = Me.TextBox8.Text
cellVal13 = Me.TextBox9.Text
cellVal14 = Me.TextBox10.Text
cellVal15 = Me.TextBox11.Text
cellVal16 = Me.TextBox12.Text
cellVal17 = Me.TextBox13.Text
cellVal18 = Me.TextBox14.Text
cellVal19 = Me.TextBox15.Text
cellVal20 = Me.TextBox16.Text
cellVal21 = Me.TextBox17.Text
cellVal22 = Me.TextBox18.Text
cellVal23 = Me.TextBox19.Text
cellVal24 = Me.TextBox20.Text
cellVal25 = Me.TextBox21.Text
cellVal26 = Me.TextBox22.Text
cellVal27 = Me.TextBox23.Text
cellVal28 = Me.TextBox24.Text
cellVal29 = Me.TextBox25.Text
cellVal30 = Me.TextBox26.Text
cellVal31 = Me.TextBox27.Text
cellVal32 = Me.TextBox28.Text
cellVal33 = Me.TextBox29.Text
cellVal34 = Me.TextBox30.Text

RwLast = Worksheets(shtCmb).Range("AI" & Worksheets(shtCmb).Rows.Count).End(xlUp).Row

Worksheets(shtCmb).Range("AI" & RwLast + 1).Value = cellVal1
Worksheets(shtCmb).Range("AJ" & RwLast + 1).Value = cellVal2
Worksheets(shtCmb).Range("A" & RwLast + 1).Value = cellVal3
Worksheets(shtCmb).Range("AH" & RwLast + 1).Value = cellVal4
Worksheets(shtCmb).Range("B" & RwLast + 1).Value = cellVal5
Worksheets(shtCmb).Range("C" & RwLast + 1).Value = cellVal6
Worksheets(shtCmb).Range("D" & RwLast + 1).Value = cellVal7
Worksheets(shtCmb).Range("E" & RwLast + 1).Value = cellVal8
Worksheets(shtCmb).Range("F" & RwLast + 1).Value = cellVal9
Worksheets(shtCmb).Range("G" & RwLast + 1).Value = cellVal10
Worksheets(shtCmb).Range("H" & RwLast + 1).Value = cellVal11
Worksheets(shtCmb).Range("I" & RwLast + 1).Value = cellVal12
Worksheets(shtCmb).Range("J" & RwLast + 1).Value = cellVal13
Worksheets(shtCmb).Range("K" & RwLast + 1).Value = cellVal14
Worksheets(shtCmb).Range("L" & RwLast + 1).Value = cellVal15
Worksheets(shtCmb).Range("M" & RwLast + 1).Value = cellVal16
Worksheets(shtCmb).Range("N" & RwLast + 1).Value = cellVal17
Worksheets(shtCmb).Range("O" & RwLast + 1).Value = cellVal18
Worksheets(shtCmb).Range("P" & RwLast + 1).Value = cellVal19
Worksheets(shtCmb).Range("Q" & RwLast + 1).Value = cellVal20
Worksheets(shtCmb).Range("R" & RwLast + 1).Value = cellVal21
Worksheets(shtCmb).Range("S" & RwLast + 1).Value = cellVal22
Worksheets(shtCmb).Range("T" & RwLast + 1).Value = cellVal23
Worksheets(shtCmb).Range("U" & RwLast + 1).Value = cellVal24
Worksheets(shtCmb).Range("V" & RwLast + 1).Value = cellVal25
Worksheets(shtCmb).Range("W" & RwLast + 1).Value = cellVal26
Worksheets(shtCmb).Range("X" & RwLast + 1).Value = cellVal27
Worksheets(shtCmb).Range("Y" & RwLast + 1).Value = cellVal28
Worksheets(shtCmb).Range("Z" & RwLast + 1).Value = cellVal29
Worksheets(shtCmb).Range("AA" & RwLast + 1).Value = cellVal30
Worksheets(shtCmb).Range("AB" & RwLast + 1).Value = cellVal31
Worksheets(shtCmb).Range("AC" & RwLast + 1).Value = cellVal32
Worksheets(shtCmb).Range("AD" & RwLast + 1).Value = cellVal33
Worksheets(shtCmb).Range("AF" & RwLast + 1).Value = cellVal34

Application.EnableEvents = True

End Sub

Private Sub cmbListItem1_Change()

End Sub

Private Sub optionCancel_Click()
Unload Me
End Sub

Private Sub UserForm_Initialize()

    Dim SH As Worksheet
    Dim Entry As Variant

    ' MonthName(Month(Now)) - Will return the name of the current Month
    For Each SH In ThisWorkbook.Worksheets
        If SH.Name = MonthName(month(Now)) Then
            Set WrkSheet = SH
            Exit For
        End If
    Next

    'fill the combo box
    With Me.cmbListItem1
        For Each Entry In [List1]
            .AddItem Entry
        Next Entry
        .Value = MonthName(month(Now))
    End With
    'fill the combo box
    With Me.cmbListItem2
        For Each Entry In [List2]
            .AddItem Entry
        Next Entry
    End With
    'fill the combo box
    With Me.cmbListItem3
        For Each Entry In [List3]
            .AddItem Entry
        Next Entry
    End With

End Sub

【问题讨论】：

为了让我们帮助您解决这个问题，我们需要您发布一些您尝试过的代码，或者研究一些可以实现此功能的 VBA 代码。 Stack Overflow 旨在成为编程问题的问答帮助网站，但您的问题目前的措辞方式会让许多用户看起来好像您是在要求我们为您编写代码。（这反过来会导致他们忽略这个问题）
全部输入太长了。
Private Sub cmbListItem1_Change() If Me.cmbListItem1.Value = "January" Then Worksheets("January").Range("AI2").Value = Me.cmbListItem1.Text End If Me.cmbListItem1.Text End If Me. cmbListItem1.Value = "February" Then Worksheets("February").Range("AI2").Value = Me.cmbListItem1.Text End If If Me.cmbListItem1.Value = "March" Then Worksheets("March").Range ("AI2").Value = Me.cmbListItem1.Text End If
您应该可以将其编辑到您的原始帖子中。我假设您将您可以粘贴的内容粘贴到 cmets 中，因此我将尝试了解您正在使用的内容，但是您问题中代码的完整副本（带有 ` 标记）将不胜感激。
好的，这会起作用。不过，我有一个问题。看起来您希望它在每张纸的下一个空行中输入数据，这样您就不会覆盖您的数据，对吗？

标签： vba excel combobox

【解决方案1】：

您可以在您的用户表单代码中尝试以下内容：

Option Explicit
Dim WrkSheet As Worksheet

Private Sub ComboBox1_Change()
Dim SH As Worksheet
For Each SH In ThisWorkbook.Worksheets
    If SH.Name = Me.ComboBox1.Value Then
        Set WrkSheet = SH
        Exit For
    End If
Next
End Sub

然后在您的用户窗体代码的其余部分中，您应该能够通过以下方式引用正确的工作表：示例

MsgBox WrkSheet.Range("A1").Value

编辑：添加代码

Option Explicit
Dim WrkSheet As Worksheet

Private Sub btnSubmit_Click()
    Dim SSheet As Workbook
    Dim NR As Long

    NR = SSheet.Cells(Rows.Count, 1).Row + 1
    'Not sure what you are trying to do below ???
    SSheet.Cells(NR, 1) = "???"
End Sub

Private Sub cmbListItem1_Change()
    Dim SH As Worksheet
    For Each SH In ThisWorkbook.Worksheets
        If SH.Name = Me.ComboBox1.Value Then
            Set WrkSheet = SH
            Exit For
        End If
    Next
    WrkSheet.Range("AI2").Value = Me.cmbListItem1.Text
End Sub

Private Sub cmbListItem2_Change()
    WrkSheet.Range("AJ2").Value = Me.cmbListItem2.Text
End Sub

Private Sub cmbListItem3_Change()
    WrkSheet.Range("A2").Value = Me.cmbListItem3.Text
End Sub

Private Sub tbDate_Click()
    WrkSheet.Range("AH2").Value = Me.tbDate.Text
End Sub

Private Sub TextBox1_Change()
    WrkSheet.Range("B2").Value = Me.TextBox1.Text
End Sub

Private Sub TextBox2_Change()
    WrkSheet.Range("C2").Value = Me.TextBox2.Text
End Sub

Private Sub TextBox3_Change()
    WrkSheet.Range("D2").Value = Me.TextBox3.Text
End Sub

Private Sub UserForm_Initialize()
    Dim SH As Worksheet
    Dim Entry As Variant

    ' MonthName(Month(Now)) - Will return the name of the current Month
    For Each SH In ThisWorkbook.Worksheets
        If SH.Name = MonthName(Month(Now)) Then
            Set WrkSheet = SH
            Exit For
        End If
    Next
    Me.tbDate = Date
    'fill the combo box
    With Me.cmbListItem1
        For Each Entry In [List1]
            .AddItem Entry
        Next Entry
        .Value = MonthName(Month(Now))
    End With
    'fill the combo box
    With Me.cmbListItem2
        For Each Entry In [List2]
            .AddItem Entry
        Next Entry
    End With
    'fill the combo box
    With Me.cmbListItem3
        For Each Entry In [List3]
            .AddItem Entry
        Next Entry
    End With
End Sub

以上内容未经测试，但请尝试一下，看看它是否有助于解决您的问题。

编辑：在下面添加了另一个代码变体：下面将在列表中选择月份名称的情况下将所有用户窗体值添加到工作表中。我保留了您示例中使用的原始列。

Option Explicit
Dim WrkSheet As Worksheet

Private Sub btnSubmit_Click()
    Dim NR As Long
    Application.ScreenUpdating = False
    With WrkSheet
        NR = .UsedRange.Rows.Count + 1
            'If there is a specific column (Example: A) you can use
            'NR = .Range("A" & .UsedRange.Rows.Count).End(xlUp).Row + 1
        .Range("AI" & NR).Value = Me.cmbListItem1.Text
        .Range("AJ" & NR).Value = Me.cmbListItem2.Text
        .Range("A" & NR).Value = Me.cmbListItem3.Text
        .Range("AH" & NR).Value = Me.tbDate.Text
        .Range("B" & NR).Value = Me.TextBox1.Text
        .Range("C" & NR).Value = Me.TextBox2.Text
        .Range("D" & NR).Value = Me.TextBox3.Text
    End With
    Application.ScreenUpdating = True
End Sub

Private Sub cmbListItem1_Change()
    Dim SH As Worksheet
    For Each SH In ThisWorkbook.Worksheets
        If SH.Name = Me.ComboBox1.Value Then
            Set WrkSheet = SH
            Exit For
        End If
    Next
End Sub

Private Sub UserForm_Initialize()
    Dim SH As Worksheet
    Dim Entry As Variant
    Set WrkSheet = Sheet3 ' You can Change or Remove This if you choose
    ' MonthName(Month(Now)) - Will return the name of the current Month
    For Each SH In ThisWorkbook.Worksheets
        If SH.Name = MonthName(Month(Now)) Then
            Set WrkSheet = SH
            Exit For
        End If
    Next
    Me.tbDate = Date
    'fill the combo box
    With Me.cmbListItem1
        For Each Entry In [List1]
            .AddItem Entry
        Next Entry
        .Value = MonthName(Month(Now))
    End With
    'fill the combo box
    With Me.cmbListItem2
        For Each Entry In [List2]
            .AddItem Entry
        Next Entry
    End With
    'fill the combo box
    With Me.cmbListItem3
        For Each Entry In [List3]
            .AddItem Entry
        Next Entry
    End With
End Sub

【讨论】：

我把这个放在提交按钮里吗？这样它就会提交给我需要的工作表。这里也只是一小段代码。我已将这种类型的代码放入所有 34 个文本框中。 Private Sub cmbListItem1_Change() If Me.cmbListItem1.Value = "January" Then Worksheets("January").Range("AI2").Value = Me.cmbListItem1.Text End If
我重新编辑了原文并添加了示例代码。谢谢。
到目前为止，我认为大部分都有效。我收到运行时错误“91”：对象变量或未设置块变量。我相信那是在提交按钮上。这就是我遇到的困难时期。我试图让它向不同的行添加新条目。关于提交按钮的任何想法及其功能？谢谢。
我收到编译错误错误的数字或参数或无效的属性分配。出现错误的行是 Private sub btnSubmit_Click()，然后是代码 ThisWorkbook.Sheets 的第 3 行。表格突出显示。
好的，当您从组合框中选择一个月时，表单上的所有数据都应提交到特定的工作表，即如果您在组合框中选择一月，它会将表单上的所有数据提交到一月工作表如果选择了二月，它将转到二月工作表。这将需要每次创建一个新条目。数据要进入的工作表上可能有许多条目。这一切都是通过用户表单完成的。

【解决方案2】：

如果您的第一个组合框只有工作表的名称，您可以使用它来显着缩短您的代码：

Private Sub cmbListItem1_Change()

Dim cellVal as String
Dim shtCmb As String
shtCmb = Me.cmbListItem1.Value
cellVal = Me.cmbListItem1.Text

If shtCmb = "" Then
    MsgBox "Please choose a month.", vbOKOnly
    Me.cmbListItem1.SetFocus
End If

Worksheets(shtCmb).Range("AI2").Value = cellVal    
End Sub

对于每个组合框输入，您只需更改单元格值的输出变量即可。

Private Sub cmbListItem2_Change()

Dim cellVal as String
Dim shtCmb As String
shtCmb = Me.cmbListItem1.Value
cellVal = Me.cmbListItem2.Text

If shtCmb = "" Then
    MsgBox "Please choose a month.", vbOKOnly
    Me.cmbListItem1.SetFocus
End If

Worksheets(shtCmb).Range("AJ2").Value = cellVal
End Sub

但是，每次进行更改时，此代码都应更改这些工作表中单元格的值。如果这就是你想要的，这应该做到。如果您希望它在单击输入按钮时输入所有值，我也可以提供帮助。

编辑：

我已更改代码以更新您的接受按钮单击事件上的单元格（无论如何我假设它是一个接受按钮）并更新下面的下一个空单元格已经存在的单元格。此代码假定某些值已经在第 1 行，很可能是标题。在你的工作簿的副本上试一试，而不是实际的，它应该可以工作。我无法对此进行测试，因为我没有您的工作数据副本。

Private Sub btnSubmit_Click()
Dim ssheet As Workbook
Dim cellVal1 As String, cellVal2 As String, cellVal3 As String, cellVal4 As String, cellVal5 As String
Dim cellVal6 As String, cellVal7 As String
Dim shtCmb As String
Dim RwLast As Long
shtCmb = Me.cmbListItem1.Value

If shtCmb = "" Then
    MsgBox "Please choose a month.", vbOKOnly
    Me.cmbListItem1.SetFocus
End If

cellVal1 = Me.cmbListItem1.Text
cellVal2 = Me.cmbListItem2.Text
cellVal3 = Me.cmbListItem3.Text
cellVal4 = Me.tbDate.Text
cellVal5 = Me.TextBox1.Text
cellVal6 = Me.TextBox2.Text
cellVal7 = Me.TextBox3.Text

RwLast = Range("AI" & ActiveSheet.Rows.Count).End(xlUp).Row

Worksheets(shtCmb).Range("AI" & RwLast + 1).Value = cellVal1
Worksheets(shtCmb).Range("AJ" & RwLast + 1).Value = cellVal2
Worksheets(shtCmb).Range("A" & RwLast + 1).Value = cellVal3
Worksheets(shtCmb).Range("AH" & RwLast + 1).Value = cellVal4
Worksheets(shtCmb).Range("B" & RwLast + 1).Value = cellVal5
Worksheets(shtCmb).Range("C" & RwLast + 1).Value = cellVal6
Worksheets(shtCmb).Range("D" & RwLast + 1).Value = cellVal7

End Sub

Private Sub UserForm_Initialize()

Me.tbDate = Date


'fill the combo box
For Each entry In [List1]
    Me.cmbListItem1.AddItem entry
Next entry

'fill the combo box
For Each entry In [List2]
    Me.cmbListItem2.AddItem entry

Next entry

'fill the combo box
For Each entry In [List3]
    Me.cmbListItem3.AddItem entry

Next entry



End Sub

请注意，这是我完成此代码的一种非常笨拙的方法，我知道应该有更好的方法在您的范围和输入值之间进行迭代，但由于我不是大师，这是完成此代码的最简单方法代码。

【讨论】：

到目前为止，我认为大部分都有效。我收到运行时错误“91”：对象变量或未设置块变量。我相信那是在提交按钮上。这就是我遇到的困难时期。我试图让它向不同的行添加新条目。关于提交按钮的任何想法及其功能？谢谢。– 加里卡罗尔 16 小时前
我将很快修改我的代码。然而，一个重要的提示：你不应该试图编辑我对你问题的回答作为对我们谈话的回应。不过，您可以编辑您的问题以包含您正在讨论的内容。
感谢您的建议和所有帮助。我真的只是在学习VBA。我可以很好地完成 Javascript，但 VBA 只是有点不同。就是那个语言障碍。哈哈。再次感谢。
我可以把我的电子表格发给你或附上吗？它仍然无法正常工作。
我可以把我的电子表格发给你或附上吗？它仍然无法正常工作。信息进入正确的工作表，但它直接带我到一个错误。编译错误变量未定义 RWLast=