我想根据另一个用户的选择填写一个下拉列表。我正在尝试通过在选择第一个组合框(cbo_park)后即时添加项目来根据另一个字段的选择来更新字段的内容。
我有四个下拉列表:
第一个下拉cbo_park有以下选项:
Central
East
West
我有第二个名为lookupRoom的工作簿,其中包含下表:
roomCode park
A.0.01 Central
A.2.01 Central
A.3.01 Central
HE.0.10 East
HE.0.21 East
HE.0.22 East
KG.1.07 West
KG.1.09 West
KG.1.10 West
当用户在第一个下拉列表cbo_park下选择中央公园选项时,我只希望中央公园中的房间显示在下拉列表cbo_prefRoom1、cbo_prefRoom2和cbo_prefRoom3中。我将如何实现这一目标?
请在下面找到我到目前为止的尝试。我一直收到一条错误消息:Me.cbo_prefRoom1.RemoveItem 0
。
Private Sub cbo_park_Change()
Dim lLoop As Long, rgLoop As Range
For lLoop = 1 To Me.cbo_park.ListCount
Me.cbo_prefRoom1.RemoveItem 0
Next lLoop
Sheets("lookupRoom").[a1].CurrentRegion.AutoFilter
Sheets("lookupRoom").[a1].CurrentRegion.AutoFilter Field:=3, Criteria1:=Left(Me.cbo_park.Value, 2)
For Each rgLoop In Sheets("lookupRoom").[a1].CurrentRegion.Offset(1).SpecialCells(xlCellTypeVisible).Columns(1).Cells
If Len(rgLoop) > 0 Then
Me.cbo_prefRoom1.AddItem rgLoop
End If
Next rgLoop
End Sub