如何将组合框中的选择存储到vba中的变量

Question

我有以下用户窗体：

用户从下拉列表中选择他们的姓名和年龄，这在 MyForm(Code)

Private Sub UserForm_Activate()
With Me.ComboBox2
    .Clear
    .AddItem "Joe"
    .AddItem "Jack"
    .AddItem "Dan"
 
End With

With Me.ComboBox3
    .Clear
    .AddItem "30"
    .AddItem "40"
    .AddItem "50"
End With
End Sub

此窗体从以下宏运行。要清楚，用户将有一个 activecell 然后运行宏，这是在 module1

Sub MainValues()
    MyForm.Show
    Dim Name As String
    Dim Age As String
   ' Debug.Print field
    Worksheets("Sheet1").Activate
    ActiveCell.Formula = "=concatenate(Name, Age)"
  
End Sub

我正在尝试从表单中的两个组合框中进行选择，然后连接这些值并将它们放在 activecell 中

Answer 1

尝试这个：

Private Sub ComboBox2_Change()

    Call MainValuesInForm 'use this if you want to trigger after selection of the value

End Sub

Private Sub ComboBox3_Change()
    
    Call MainValuesInForm 'use this if you want to trigger after selection of the value

End Sub

Private Sub MainValuesInForm()
    
    Dim Name As String
    Dim Age As String
    
    Name = Me.ComboBox2.Value
    Age = Me.ComboBox3.Value
    
    ActiveCell.Value = Name & " " & Age
    
End Sub

Private Sub SubmitButton_Click()
    
    Call MainValuesInForm 'or use this if you want to trigger by means of the 'Submit' (or Insert) button
    
End Sub

Private Sub UserForm_Initialize()
    With Me.ComboBox2
        .Clear
        .AddItem "Joe"
        .AddItem "Jack"
        .AddItem "Dan"
     
    End With
    
    With Me.ComboBox3
        .Clear
        .AddItem "30"
        .AddItem "40"
        .AddItem "50"
    End With
End Sub