Question

我建立了一个用户窗体，其中包含一个组合框，当填充另一个组合框时，该组合框将显示特定范围。因此，如果我在ComboBox1中选择“选项1”，那么ComboBox2将在另一个工作表中查找该选项，并使用下面显示的代码用指定的值填充自身。除了必须指定一定的范围外，所有其他方法都可以正常工作。

Combobox2中的此范围是动态变化的，因为“选项”并不总是具有相同的数量。

Private Sub cboAccoType_AfterUpdate()
            If cboAccoType.value = Worksheets("SETUP").Range("B33").value Then
                boekingen.cboAccommodatie.List = Worksheets("SETUP").Range("S3:T100").value
            ElseIf cboAccoType.value = Worksheets("SETUP").Range("B34") Then
                boekingen.cboAccommodatie.List = Worksheets("SETUP").Range("U3:V100").value
            ElseIf cboAccoType.value = Worksheets("SETUP").Range("B35") Then
                boekingen.cboAccommodatie.List = Worksheets("SETUP").Range("W3:X100").value
            ElseIf cboAccoType.value = Worksheets("SETUP").Range("B36") Then
                boekingen.cboAccommodatie.List = Worksheets("SETUP").Range("Y3:Z100").value
            ElseIf cboAccoType.value = Worksheets("SETUP").Range("B37") Then
                boekingen.cboAccommodatie.List = Worksheets("SETUP").Range("AA3:AB100").value
            ElseIf cboAccoType.value = Worksheets("SETUP").Range("B38") Then
                boekingen.cboAccommodatie.List = Worksheets("SETUP").Range("AC3:AD100").value
            ElseIf cboAccoType.value = Worksheets("SETUP").Range("B39") Then
                boekingen.cboAccommodatie.List = Worksheets("SETUP").Range("AE3:AF100").value
            ElseIf cboAccoType.value = Worksheets("SETUP").Range("B40") Then
                boekingen.cboAccommodatie.List = Worksheets("SETUP").Range("AG3:AH100").value
            End If
End Sub

所以我的问题是：如何在用户窗体组合框2中不显示返回空白的行？

谢谢。

Excel VBA：使用动态范围删除ComboBox中的空白

0 个答案: