excel - 如果满足条件，则将项目添加到组合框

Question

我一直在尝试创建一个下拉菜单，其中的选项取决于单元格值，但一直收到错误消息。

我有:一个包含“0”和不同文本项的表格，即“ABC”或“DEF”我想要:一个仅包含文本项的下拉列表，没有零

到目前为止我已经尝试过:

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

我得到了正常的“foreach”...“additem”命令，但随后我将所有“0”作为下拉菜单中的项目。

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