如何将值从 VBA 中的用户窗体插入工作表答案

【问题标题】：How to insert values into sheet from a UserForm in VBA如何将值从 VBA 中的用户窗体插入工作表
【发布时间】：2022-11-22 01:18:41
【问题描述】：

这是我第一次创建一个非常新的表单。

我有以下表格：

Private Sub UserForm_Activate()
'add all options for the different funds
With Me.ComboBox1
    .Clear
    .AddItem "Main Fund"
    .AddItem "Quant Fund"
End With

With Me.ComboBox2
    .Clear
    .AddItem "January"
    .AddItem "February"
    .AddItem "March"
    .AddItem "April"
    .AddItem "May"
    .AddItem "June"
    .AddItem "July"
    .AddItem "August"
    .AddItem "September"
    .AddItem "October"
    .AddItem "November"
    .AddItem "December"
End With

With Me.ComboBox3
    .Clear
    .AddItem "PnL"
    .AddItem "Number of employees"
    .AddItem "Number of positions"
End With

End Sub

看起来像：

表格的用法是：

工作表中的用户选择了一个单元格
用户调用 CallForm 子例程，出现表单
用户输入三个参数，来自以下 Excel 工作表的相应数据被插入到所选单元格中：
```
Sub CallForm()
    MyForm.Show
End Sub
```
请让我知道是否需要任何澄清，或者如果我错过了重要信息，任何帮助都会很棒，因为我已经尝试使用谷歌搜索但确实需要帮助。

【问题讨论】：

你能澄清你的问题是什么吗？
如何使用表单输入从activesheet中选择相应的数据插入到activecell中

标签： excel vba forms

【解决方案1】：

您在工作表中使用一个范围并将其设置为子例程下用户表单中的值以按下“插入”按钮，例如：

Sub commandbutton1_click()
    With sheets("nameOfSheet")
        .cells(7,15).value = Me.Combobox1.text
    End with
End sub

所有查找范围的标准方法都适用，例如Find() 或Match()。

【讨论】：