Question

我已经尝试了所有方法并浏览了低谷论坛，但没有找到解决方法。

尝试了所有已注释掉的版本。有时它会工作，但是只有在我打开“数据”工作表的情况下，否则，如果我在工作表Sheet1上，它将显示错误并且无法工作。

Private Sub UserForm_Initialize()


    MultiPage1.Value = 0
    'Call ComboBox

     'Category = Worksheets("Sheet2").Range(Range("B1"), Range("B1").End(xlDown)).Address
     'ComboBox1.RowSource = Worksheets("data").Range(Range("A1"), Range("A1").End(xlDown)).Address
     'ComboBox2.RowSource = Sheet2.Range(Range("B1"), Range("B1").End(xlDown)).Address

     'Worksheets("data")


    ' Add array to combobox
    ComboBox1.List = Sheet2.Range("A1:A7").Value


    ' Set the first item in combobox
    'ComboBox1.ListIndex = 0
    'ComboBox2.ListIndex = 0

End Sub

Answer 1

使用类似这样的内容：

With Worksheets("data")
    ComboBox1.List = .Range(.Range("A1"), .Range("A1").End(xlDown)).Value
End With

在您发布的示例中，您有不合格的Range()参考，默认情况下，这些参考指向ActiveSheet

组合框中的动态范围错误

1 个答案: