excel - 从范围内填充用户窗体上的组合框

Question

我创建了一个带有级联ComboBoxes的用户表单，两个 ComboBoxes 的值取自工作表中的两列。代码工作正常，但是当我尝试使用略有不同的数据创建相同的用户表单时，我似乎无法让 ComboBoxes 工作 - 它们只是空的。

我尝试使用特定范围而不是D2&LastRow但我无法让它工作。

Private Sub Seven_Initialize()

ComboBox_Area.List = Sheets("Seven").Range("E2:E18").Value

End Sub


Private Sub ComboBox_Area_Change()

Dim rngZone As Range
Dim rngList As Range
Dim strSelected As String
Dim LastRow As Long

      If ComboBox_Area.ListIndex <> -1 Then

           strSelected = ComboBox_Area.Value

           LastRow = Worksheets("Seven").Range("D" & Rows.Count).End(xlUp).Row

           Set rngList = Worksheets("Seven").Range("D2" & LastRow)

           For Each rngZone In rngList

                 If rngZone.Value = strSelected Then

                      ComboBox_Seven.AddItem rngZone.Offset(, -1)

                 End If

           Next rngZone

      End If

End Sub

我不确定我做错了什么，因为它在具有非常相似数据的不同用户表单中工作得非常好。