VBA中多页面的Combobox_Changefunction

我有多页面用户表单。 我创build了一个button，当我点击这个button时，它添加了一个Combobox和一些标签和文本框。 后来我需要为这个Combobox创build一个改变function。 但是，我不能使用Combobox的名字。

Private Sub add_ndc_button_Click() ndc_page_count = Me.ndc_pages.Pages.Count Me.ndc_pages.Pages.Add ("NDC " & ndc_page_count + 1) Set ndc_no_textbox_pages(ndc_page_count + 1) = ndc_pages.Pages(ndc_page_count).Controls.Add("Forms.ComboBox.1") With ndc_no_textbox_pages(ndc_page_count + 1) .Top = first_c_y + space_between_rows .Left = first_c_x + space_between_columns .Height = text_height .Width = text_width .RowSource = "=ProductMasterData!F2:F19" End With End Sub 

然后我需要使用button单击创build的名称创build以下function。 但是，ndc_no_textbox_pages（1）_Change（）给出错误。

 Public Sub ndc_no_textbox_pages(1)_Change() Set SearchRangeNDC = Worksheets("ProductMasterData").Range("F1:F100") Set FindRowNDC = SearchRangeNDC.Find(ndc_no_textbox.Value, LookIn:=xlValues, lookat:=xlWhole) If FindRowNDC Is Nothing Then MsgBox "Please Enter Correct NDC Number or" & vbNewLine & "Select From Drop Down Menu", vbOKOnly, "Required Field" Else NDCRow = FindRowNDC.Row ndc_no_textbox_pages_label(1).Caption = Worksheets("ProductMasterData").Range("F" & NDCRow) & vbNewLine & Worksheets("ProductMasterData").Range("N" & NDCRow) End If End Sub