2017-11-19 4 views
0

2つのコンボボックスでExcelフォームを作成しています。 1つのcomboxは、 "CompaniesandSubsidiaries"という名前のsheet3(列A)からデータを取得します。次に、第1のコンボボックスに基づいて、第2のコンボボックスがサブカテゴリデータを検索する。しかし、問題は列Aにデータの繰り返しがあることです。私はイメージを付けました。私がしようとしています何重複のないユーザーフォームコンボボックスにシートデータを挿入する - Excel Vba

sampleimage

です:

Private Sub Combobox1_DropButtonClick() 

    Dim rng As Range 

    Dim ws As Worksheet 

    Set ws = Worksheets("CompaniesandSubsidiaries") 

    For Each rng In ws.Range("Companies") 

     Me.ComboBox1.AddItem rng.Value 

    Next rng 

End Sub 

Private Sub ComboBox2_DropButtonClick() 

    Dim rng As Range 

    Dim ws As Worksheet 

    Set ws = Worksheets("CompaniesandSubsidiaries") 

    For Each rng In ws.Range("Providers") 

     Me.ComboBox2.AddItem rng.Value 

    Next rng 
End Sub 

私は、それぞれの企業やプロバイダの名前 "欄A及びB" の両方式を行いました。しかし、それは値を繰り返す。私は望んでいない。

最初のコンボボックスのデータをsheet3から動的に取得し、重複しないようにして、次のコンボボックスが有効になり、会社名に対応するプロバイダリストが表示されます。

簡単でわかりやすいコードを入力してください。おかげ

+0

あなたが試したことと出会った場所を示すことによって、具体的な問題を明確にしたり、必要なものを正確に強調する詳細を追加してください。より良い回答を得るには、How to Askページをご覧ください。 – suvartheec

+0

@suvartheecコードを今すぐチェックしてください。 – SHEIKH

+0

代わりに見たいものを表示できますか?私はまだ希望の結果が何であるかを理解していません。 – Hambone

答えて

1

あなたが重複する値を削除するためのコードの下にコンボボックス にそれを埋める前に、重複データを削除することができます

ActiveSheet.Range("Companies").RemoveDuplicates Columns:=1, Header:=xlNo 

あなたはまた、手動で各項目に反復、配列変数への企業データを格納することができますその配列が重複しているかどうかをチェックします。ここでは、アレイ上の各データを評価し、独自の/独自の値を作成する方法をデモストするリンクビデオがあります。 https://www.facebook.com/excelfuneasy/videos/693150624214021/

関連する問題