时间戳

首页 > 解决方案 > 如何根据条件语句填充列表框

excel - 如何根据条件语句填充列表框

问题描述

我正在尝试在用户窗体中填充列表框，但列表框需要根据活动工作表上单元格中的内容进行更改。复杂之处在于我试图引用另一张纸上的命名范围。例如，如果单元格显示“hi” - 我想检查单元格是否显示“hi”，然后转到另一个名为“hi”的工作表上的命名范围，并将该范围内的值带入列表框中。

这是我到目前为止所拥有的：

Private Sub UserForm_Initialize()

'Populate Combobox Based on Cell Value
Dim celltxt As String
celltxt = ActiveSheet.Range("cellTest").Text

    If InStr(1, celltxt, "hi") Then
        'Code to bring in routes from named range called "hi"
        ListBox1.RowSource = Worksheets("Sheet4").Range("hi").Value
    End If

End Sub

我会根据其他单元格值（例如“嘿”或“怎么了”）多次重复“if-end if”代码段。

我不断收到运行时 1004 错误。帮助！！

标签： excelvbalistboxconditional-statements

解决方案

问题是我将“Sheet 4”重命名为“DropDown”，因为它是我存储所有下拉菜单的地方。代码应为：

Private Sub UserForm_Initialize()

'Populate Combobox Based on Cell Value
Dim celltxt As String
celltxt = ActiveSheet.Range("cellTest").Text

    If InStr(1, celltxt, "hi") Then
        'Code to bring in routes from named range called "hi"
        ListBox1.RowSource = Worksheets("DropDown").Range("hi").Value
    End If

End Sub

这很好用！

推荐阅读