如果满足条件，则将项目添加到combobox

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

我有：“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 

我得到了正常的“每个”…“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