Question

我很难过。我已经阅读了关于将一个RowSource应用到ComboBox的每一个线程，并且无法使解决方案（大部分都是相同的）工作。

详情如下： Excel 2010 UserForm = UFToTakeList ComboBox = cbLvl2Selector

我希望将RowSource作为NRM1Lookup！NRM1GroupNoRange

我输入了：UFToTakeList.cbLvl2Selector.RowSource = NRM1Lookup！NRM1GroupNoRange没有成功。我添加了“”和“”，我在主题上尝试了其他变体。

我可以在“属性”框中键入RowSource，但我希望能够连接另一个Range并知道我可以将此方法应用于我的所有ComboBox。

我认为我的根本问题是知道在哪里放置代码。它会自动为UserForm中的ComboBox选择_Change参数。如果这是正确的，那么我无法解释为什么我可以在属性框中键入上面的路径，但它不能作为代码。

非常感谢任何指导。我的灰质油炸了。

Answer 1

根据你的解释，我无法理解你想要什么？您可以尝试以下代码，是否对您有帮助？

    Private Sub UserForm_Initialize()
        Dim rng As Variant

        rng = Sheets("Sheet1").Range("A1", Sheets("Sheet1").Range("A" & Rows.Count).End(xlUp))

        If IsArray(rng) Then
            ComboBox1.List = rng
        Else
            ComboBox1.AddItem rng
        End If
    End Sub

难倒：用于ComboBox的ExcelVBA RowSource

1 个答案: