条件が満たされた場合にコンボボックスに項目を追加します。

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 

私は仕事に...「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