基于组合框选择动态添加列值

Question

我需要你的帮助。看来我在代码中编写的内容并没有完成我在这里尝试做的事情。

目标是有 2 个用户表单组合框，一个用于手动添加一次 [3,4,5] 的（楼层）值，另一个用于根据选择动态添加值的组合框（办公室）在楼层选择框中制作。

例如，如果我在楼层组合框中选择值 [3]，则办公室组合框将包含以下值：

A-01
A-02
A-03
A-04
A-05
A-06
A-07
A-08

我认为这段代码可以工作，但它没有：

'Cells(row, col)

Private Sub floor_Change()
    lRow = Sheets("Office Spaces").UsedRange.Rows.Count

    With Sheets("Office Spaces")
        For i = 2 To lRow
            If .Cells(i, 1).Value = UserForm1.floor.Value Then
                UserForm1.office.AddItem .Cells(i, 2).Value
            End If
        Next i
    End With
End Sub

这是我的 Excel 表格中的数据：

Answer 1

'Cells(row, col)

Private Sub floor56_Change()

UserForm1.office.Clear

Dim sh
Dim rw

Set sh = Sheets("Office Spaces")

For Each rw In sh.Rows

  If sh.Cells(rw.row, 1).Text = UserForm1.floor.Value Then

    UserForm1.office.AddItem (sh.Cells(rw.row, 2).Value)

  End If

Next rw

End Sub

或

Private Sub floor_Change()

    If UserForm1.floor.Value <> "" Then

        UserForm1.office.Clear

        Dim ws
        Set ws = ThisWorkbook.Worksheets("Office Spaces")

        Dim rng
        Set rng = ws.Range("A:A")

        For Each cell In rng

            If cell.Text = UserForm1.floor.Value Then

                UserForm1.office.AddItem (cell.Offset(0, 1).Value)

            End If

        Next cell

    End If

End Sub