在 Excel 中添加和编辑与 VBA 链接的组合框和文本框答案

【问题标题】：Add & Edit combobox and textbox linked with VBA in excel在 Excel 中添加和编辑与 VBA 链接的组合框和文本框
【发布时间】：2018-10-02 08:50:42
【问题描述】：

如何在以下代码中直接添加或编辑组合框值？在组合框中写入文本时，显示错误“worksheetfunction”并且我无法添加新代码。

Private Sub UserForm_Click()
    Dim xRg As Range


Private Sub UserForm_Initialize()
    Set xRg = Worksheets("Sheet1").Range("A2:B8")
    Me.ComboBox1.List = xRg.Columns(1).Value
End Sub


Private Sub ComboBox1_Change()
    Dim xRg As Range
    Set xRg = Worksheets("Sheet1").Range("A2:B8")
    Me.TextBox1.Text = Application.WorksheetFunction _
        .VLookup(Me.ComboBox1.Value, xRg, 2, False)
End Sub

【问题讨论】：

对代码进行间距/缩进有助于更轻松地识别问题……例如，您在问题中包含了 2 个半过程。（见minimal reproducible example）
我有一些关于使用控件的帖子，包括this one，其中包括添加和操作组合框的示例代码。另请参阅 this 和 this 和 this 。 :-)
Overview of differences between Form Controls and ActiveX Controls in Excel的可能重复

标签： excel vba

【解决方案1】：

向组合框列表添加新项目：

在此示例中，组合框“ComboAdd”位于表单上，并链接到“F”列中的数据：

将 NewValueRange 调暗为字符串 NewValueRange = "F" & Range("F1048576").End(xlUp).Row + 1 Range(NewValueRange) = UserForm1.ComboAdd.Value

【讨论】：