代码之家 › 专栏 › 技术社区 › Samuel Hulla

如何正确地将参数传递给rowsource?

combobox vba excel

Samuel Hulla · 技术社区 · 6 年前

我有一个 Combobox 我正试图从表的标题行向其传递参数。

问题是,出于某种原因,我 组合框 似乎只显示第一个结果,尽管逻辑上它不应该。

这是我的数据,范围从 B2:J2 (问题是它是动态的,所以我不能就这么过去 Properties

在激活我的 UserForm 我尝试获取表的长度(因为它是动态的,可以在 户窗体 激活)

Private Sub UserForm_Activate()
    Dim res As String
    Dim cell As Range: Set cell = Sheets("Pomocne").Range("B2")
    Dim endcell As Range
    Do Until IsEmpty(cell)
        Set endcell = cell
        Set cell = cell.Offset(0, 1)
    Loop

    res = "Pomocne!B2:" & Replace(endcell.address, "$", "")
    obor_combo.RowSource = res

    Debug.Print res
End Sub

现在,一切似乎都很顺利, Debug.print res 产生以下结果:

这正是我要传递的 obor_combo.RowSource = res 然而。当我检查实际的 户窗体 不知什么原因,它似乎只显示了第一个结果。

知道是什么原因吗?

0 回复 | 直到 6 年前

DisplayName 6 年前

RowSource 是为 柱状的 范围:如果将其指定为行状范围你只能得到第一个单元格

但你可以用 List 性质 ComboBox 对象,并用通过行状范围:

Private Sub UserForm_Activate()
    Dim res As String
    Dim cell As Range: Set cell = Sheets("Pomocne").Range("B2")
    Dim endcell As Range
    Do Until IsEmpty(cell)
        Set endcell = cell
        Set cell = cell.Offset(0, 1)
    Loop

    res = "Pomocne!B2:" & Replace(endcell.Address, "$", "")
    obor_combo.List = Application.Transpose(Range(res).Value)    
End Sub

可以简化为:

Private Sub UserForm_Activate()    
    With Sheets("Pomocne")
        obor_combo.List = Application.Transpose(.Range("B2", .Cells(2, .Columns.Count).End(xlToLeft)).Value)
    End With
End Sub

推荐文章

Andrey Kaplun Viju · 如何使用Combobox加载列表框

7 年前

Al Lelopath · 具有相同数据源的两个组合框会导致忘记选择

7 年前

Southern Coder Chic · Winforms ComboBox正在运行时添加行项目

7 年前

Sebastian · 将常量集合绑定到ComboBox并将SelectedItem绑定到TextBox

7 年前

Mertcan Özdemir · JavaFX combobox正在调用listcell。无限更新项

7 年前

gruff · DevExpress级联组合框GridView数据绑定

7 年前

MatrixRonny · WPF组合框截断项

7 年前

Nicholas Miller · Windows窗体组合框将在选定项目之前窃取焦点

7 年前

wlfente · 从Userform中取消挂接滚轮

7 年前

Nguyen Ma · Python-tkinter组合框保存值

7 年前