Excel 动态ActiveX.ComboBox更改事件

我在做一个小项目时遇到了一个问题。我希望有人能帮助我，提前谢谢

我想要完成什么

我创建动态的新ActiveX.ComboBox，其中包含给定的列表。当用户选择组合框并更改列表中的选定项时，我需要触发一个事件。 对于每个动态组合框，事件应该是相同的。 示例：D10中的Combobox从ItemA更改为ItemB，然后我需要一个事件，该事件在表中检查ItemB列a，然后选择B列同一行的值，并将其放入Combobox所在的E10列

我不知道如何添加DynamicEvents，然后让它们保持一致。即使我仍然需要删除动态事件，因为用户可以再次删除行和组合框

我尝试的是：

将组合框链接到它下面的单元格，然后我尝试让工作表更改事件工作，但显然它不适用于linkedcells

当前代码：

---

谢谢你的时间和努力。你能解释一下吗？我不完全理解它应该如何工作。Combobox1.value是什么？工作表函数的作用是什么？它是如何工作的？最后一行相同？Combobox1.value表示所选项目B.Worksheetfunction.match与match函数相同使用Excel检查所选项目B行。谢谢！我明白了。但最后一个问题是，如何为每个组合框激活事件？我帖子中的代码显示了我当前如何添加新的comboboxen，我如何创建一个事件/将它们链接到Combox1_Change以便激活它？谢谢，我真的很感激我右键单击组合框并单击查看代码，然后您将转到组合框事件。

 Sub NewComboBox(ByVal Row As Integer, Name As String, CellWidth As Integer,  CellHeight As Integer)

    Set ourCombo = ActiveSheet.OLEObjects.Add(ClassType:="Forms.ComboBox.1", _
                Link:=True, DisplayAsIcon:=False, Left:=plan.Cells(Row, CellNumber_Product).Left, Top:=plan.Cells(Row, CellNumber_Product).Top, Width:=CellWidth, _
                Height:=CellHeight)
        With ourCombo
            .LinkedCell = plan.Cells(Row, CellNumber_Product).Address          
            .ListFillRange = "DTB_1!A:A"

End Sub

Private Sub ComboBox1_Change()

    CB1=ComboBox1.Value
    R=WorksheetFunction.Match(CB1, Columns("A:A"),0)

    Activesheet.OLEObjects("ComBox2").ListFillRange =Cells(R,2).Address

End Sub