シートデータを重複せずにユーザーフォームコンボボックスに挿入します-ExcelVba
シェイク
私は2つのコンボボックスでExcelユーザーフォームを作成しています。1つのcomboxは、「CompaniesandSubsidiaries」という名前のsheet3（列A）からデータを取得します。次に、最初のコンボボックスに基づいて、2番目のコンボボックスがサブカテゴリデータを取得します。しかし、問題は列Aにデータの繰り返しがあることです。画像を添付しました。
私が試しているのは：
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から会社名として動的に取得し（重複なし）、次のコンボボックスが有効になり、会社名に対応するプロバイダーリストが表示されます。
シンプルでわかりやすいコードを提供してください。ありがとう
Cheries Mewengkang
重複する値を削除するには、コードの下のComboBoxに入力する前に重複するデータを削除できます。
ActiveSheet.Range("Companies").RemoveDuplicates Columns:=1, Header:=xlNo
また、Companiesデータを配列変数に手動で保存し、その配列の各項目を反復処理して、重複しているかどうかを確認することもできます。ここに、配列上の各データを評価し、明確な/一意の値を作成する方法を説明するリンクビデオがあります。https://www.facebook.com/excelfuneasy/videos/693150624214021/
この記事はインターネットから収集されたものであり、転載の際にはソースを示してください。
侵害の場合は、連絡してください[email protected]
編集
関連記事
Related 関連記事
- 1
ExcelVBAユーザーフォームチェックボックスを使用して複数の行にデータを入力する
- 2
Excelvbaユーザーフォームコンボボックスで選択した行の列からデータを抽出します
- 3
ExcelVBAユーザーフォームのさまざまなコンボボックスで.PASSWORDを使用する
- 4
ExcelVBA複数のユーザーフォームコンボボックスの複数列のデータ一致基準に基づいて行を選択します
- 5
ExcelVBAのユーザー入力ボックスデータから複数のフィルターを使用してコピーする方法
- 6
ExcelVBAユーザーフォームリストボックスの列形式
- 7
ExcelVBA-別のコンボボックスを選択してコンボボックスにデータを入力します
- 8
ExcelVBAユーザーフォームオプションボタン
- 9
ExcelVBAデータ検証リストをコンボボックスに置き換えます
- 10
別のテキストボックス入力に応じて、ワークシートからユーザーフォームのExcelVBA塗りつぶしテキストボックス
- 11
ExcelVBAユーザーフォームのテキストボックス内のテキストが水平方向に展開されます
- 12
。データをリストボックスにコピーするときのオフセット-ExcelVBA
- 13
ExcelVBAユーザーフォームボタンでハイパーリンクを開く
- 14
ExcelVBA-ユーザーフォームに入力された文字列を数値に変換します
- 15
ボタンのクリックに応じて複数の行をコピーして次の行に挿入するExcelVBA
- 16
ExcelVBAで複数列のリストボックスにSQLレコードセットを入力する
- 17
ExcelVBAがIEページの入力ボックスに値を追加します
- 18
Excelvbaを使用してユーザーフォームの下にブックを非表示にする
- 19
フィルター処理されたデータの範囲をコピーしてExcelVBAの新しいワークシートに貼り付ける方法（クリップボードを使用せずに）
- 20
ElseステートメントがExcelVBAユーザーフォームのデータの最後の行に対してのみ機能する場合
- 21
Excelvbaを使用したユーザーフォームデータの検証
- 22
ExcelVBAユーザーフォーム-同じフォームを使用して連続データを生成する
- 23
TypeOfオブジェクトがExcelvbaユーザーフォームでラベルとテキストボックスを検出しない
- 24
「FOR」ループを使用してデータの複数の列を計算し、それをユーザーフォームに表示するExcelVBA関数
- 25
ExcelVBAユーザーフォームで複数列のリストボックスの選択したプロパティを設定できませんでした
- 26
ExcelVBAを使用してInnerTextに複数の範囲データをコピーまたは挿入する方法
- 27
ExcelVBA-コンディクショナルフォーマットのユーザー定義関数
- 28
ワークシートセルへのExcelVBAユーザーフォーム画像
- 29
ExcelVBA-フォームコントロールチェックボックスをループするが機能しない
コメントを追加