移入コンボボックス

コンボボックスを移入しながら、私はエラーに移入コンボボックス

「必要なファイル名を指定して実行時エラー424オブジェクト」を取得しています。

以下は私のコードであり、コンボボックスに国のリスト（国としての範囲名）を入力しようとしています。

Sub Country() 
    Dim Count As Range 
    Dim ws As Worksheet 

    Set ws = Worksheets("sheet2") 

    For Each Count In ws.Range("countries") 
     With ComboBox1 
      .AddItem Count.Value 
     End With 
    Next Count 
End Sub

エラーを解決する際にご協力ください。事前

出典

2017-08-29 ankit

？これはユーザーフォーム上にありますか？ –

いいえ、それはuseformではありません。エラーは、 "With ComboBox1" .AddItem Count.Value " – ankit

コードにはどこですか？ ComboBox1を参照しているだけで、そのシート上にあるComboBox1を参照してみてください。範囲（ "A2：A10"）。値 ' –

でおかげで、それが理由ではなくループよりも、これを行うには.ListFillRangeプロパティを使用しないで、やっているようなあなたのコードが見えるものから、CountからもnCount

出典

2017-08-29 12:42:39 braX

何も問題ありません。変数名（スタイル以外）としてcountを使用する。これは予約されたキーワードではなく、多くのオブジェクトの単なるプロパティです。 – CallumDA

ような何かにあなたの変数名を変更してみてください。

Dynamically set ListFillRange in Excel ComboBox using VBA

またコードはどこにありますか？ ComboBox1を参照しているだけで、そのシート上にあるComboBox1を参照してみてください。行がエラーしているような

With Sheets(1).OLEObjects("ComboBox1").Object.AddItem

または

Sheets(1).ComboBox1.List = Sheets("countries").Range("A2:A10").Value

出典

2017-08-29 13:02:36

もう一度同じエラーが発生しました – ankit

答えて

関連する問題