[[20040226113449]]　『コンボボックスにセットするリスト内に重複データ』（よ）　ページの最後に飛ぶ

『コンボボックスにセットするリスト内に重複データ』（よ）

コンボボックスにセットするリスト内に重複データがある場合。

 お世話になります。
 コンボボックスにセットするリスト内に重複データがある場合に、同じものが1つしか表示されないようにする方法はあるのでしょうか？
 例えば、
 1
 1
 2
 3
 3
 という表があった場合に、1、2、3のみセットしたいのです。
 今は隣の列に同じものをコピーして重複データを削除して、空白セルを詰めてコンボボックスにセットしています。
 我ながらすごい強引なやり方だと思っているのですが・・。
 上記の表はコンボボックスに表示させるごとに毎回異なるためこのような方法しか今のところ思いつきません。
 何とか工夫したいと思っておりますのでどなたかアドバイスください。よろしくお願い致します。

 フィルタオプションの重複無視で、適当な列にデータを抽出すればよいのでは？

  (INA)

 こんちわ。
 こんなんどうでっか？
 よ、さんのこっちゃからユーザーフォーム使うてはりますわなぁ。
 Initializeに書き込んでくだはい。
 コンボに転記する範囲は仮にA1からにしてありますけど、これはご自分で修正
 しておくんなはれ。（もう、腕前が上がってまっしゃろから出来ますわナ）
 　　　　ほな...（弥太郎）
 '--------------------
 Private Sub UserForm_Initialize()
    Dim i As Integer
    With ComboBox1
        .AddItem Cells(1, 1)
        For i = 2 To Range("a1").End(xlDown).Row
            n = Application.WorksheetFunction.CountIf(Range(Cells(1, 1), Cells _
                    (i - 1, 1)), Cells(i, 1))

            If n = 0 Then
                .AddItem Cells(i, 1)
            End If
        Next i
    End With
 End Sub

 INAさん、弥太郎さん、お礼が遅くなって申し訳ありません。
 昨日はINAさんのフィルターオプションに挑戦していました。初めてのことでしたので四苦八苦しながらも何とか自分なりに使えそうな状態になりました。
 弥太郎さんに教えていただいたもの先ほどから試しております。ぴったり希望通りのものができそうです。
 こちらでいろいろと質問させていただいて、全くのド素人から強引ながらも何とか動かせるマクロをボチボチと作れるようになってきました。
 本当に感謝しております。
 今回もまた新しいことを教えていただいて本当にありがたく思っております。（よ）

コメント返信：

[ 一覧(最新更新順) ]

[[20040226113449]] 『コンボボックスにセットするリスト内に重複データ』（よ） ページの最後に飛ぶ

[[20040226113449]]　『コンボボックスにセットするリスト内に重複データ』（よ）　ページの最後に飛ぶ