Question

我一直在尝试根据单元格值创建一个带有选项的下拉菜单，但是却收到了错误消息。

我有：带有＆＃34; 0＆＃34;和不同文本项目的表格，即＆＃34; ABC＆＃34;或＆＃34; DEF＆＃34; 我想：只有文本项的下拉列表，没有零

到目前为止我尝试过：

Private Sub Submit_Click() 'CommandButton to reset and fill Combobox
    Me.Combobox1.Clear
For Each cell In ["range name"]
    If Range(cell).Value <> 0 THen
    Me.Combobox1.AddItem cell
    End If
Next Cell

End Sub

我得到了正常的＆＃34;为每个＆＃34; ...＆＃34; additem＆＃34;命令工作，但后来我将所有＆＃34; 0＆＃34; s作为下拉菜单中的项目。

Answer 1

这是你在尝试的吗？

Private Sub Submit_Click()
    Dim aCell As Range

    Me.Combobox1.Clear

    For Each aCell In ["range name"]
        If aCell.Value <> 0 Then Me.Combobox1.AddItem aCell.Value
    Next aCell
End Sub

如果符合条件，则将项目添加到组合框

1 个答案: