vba - 使用活动工作表中的单元格选择将组合框填充到用户窗体中

Question

我刚开始在 excel 中使用 VBA，我正在尝试创建一个用户表单，我从活动工作表中选择数据（一旦我复制包含它的工作表并且所有引用都应该是活动的，则用户表单将被复制）床单）：

• 用户表单被命名为“SystemDesignUserForm”

• 包含它的实际工作表名为“系统设计”

• ComboBox 被命名为“DIAComboBox”，并应列出单元格“w6:w33”中包含的数据。

我尝试了以下代码：

DIAComboBox.List = Range("W6:W33").Value

并且还与

DIAComboBox.List = ActiveSheet.Range("W6:W33").Value

与：

DIAComboBox.List = Worksheets("System Design").Range("W6:W33").Value

但它不起作用：组合框出现无效。

你有什么建议吗？

标签： vbacomboboxrangeuserform

Answer 1

您可以尝试遍历范围并填充：

'set worksheet
Dim ws as Worksheet
Set ws = Worksheets("System Design")

'loop through and collect range
    For each c in ws.Range("W6:W33")
        With Me.DIAComboBox
            .AddItem c.Value
        End With
    Next c

    Me.DIAComboBox.SetFocus

希望这会有所帮助。