组合框列表中的动态范围

Question

我使用两种方法在组合框行源中构建动态名称列表。在第一个实例中，我使用：

使用 Sheet2

RateComboBox.RowSource = "'" & .Name & "'!" & .Range("b9", .Range("c33").End(xlUp)).Address 结束于

控制源设置为工作表上的一个单元格，绑定的列是第 1 列，或范围 b9:b33，其编号为 1-25，列计数为 2，第二列列表名称（1- 25) 因为它们被添加。在 C9:C33 范围满之前它工作得很好，此时下拉列表显示一个虚假列表，其中包含现在从 B1 开始的项目（文本）。发生了什么？

在第二种情况下我使用：

Me.ComboBox1.RowSource = Worksheets("Form").Range("B8", Range("B32").End(xlUp)).Address

在 b8:B32 范围内添加了名称，因为它们被添加到那里。控制源设置为工作表上的一个单元格，绑定列是第 1 列。在（列表）范围已满之前，它再次工作得很好。在这两种情况下，我只希望在组合框中的项目（名称）被添加到这些范围内时被列出。 ??

Answer 1

对于这样的第一部分：

If Len(.Range("c33").Value) Then
  RateComboBox.RowSource = "'" & .Name & "'!B9:C33"
Else
  RateComboBox.RowSource = "'" & .Name & "'!" & .Range("b9", .Range("c33").End(xlUp)).Address
End If

第二部分也一样：

If Len(Range("B32").Value) Then
  Me.ComboBox1.RowSource = Worksheets("Form").Range("B8:B32").Address
Else
  Me.ComboBox1.RowSource = Worksheets("Form").Range("B8", Range("B32").End(xlUp)).Address
End If