在Excel中添加和編輯與VBA鏈接的組合框和文本框

Question

如何在以下代碼中直接添加或編輯組合框值？ 在組合框中編寫文本時，顯示錯誤“ 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

Answer 1

要將新項目添加到組合框列表，請執行以下操作：

在此示例中，組合框“ ComboAdd”在表單上，​​並鏈接到“ F”列中的數據：

Dim NewValueRange As String NewValueRange =“ F”＆Range（“ F1048576”）。End（xlUp）.Row + 1 Range（NewValueRange）= UserForm1.ComboAdd.Value