
No.5ベストアンサー
- 回答日時:
こんばんは。
VBAのコードを求めていらっしゃるのなら、回答者側としては、
ComboBox のList に、どこのシートからどのように重複を許してImport するコードを見せてほしいと言っているわけですね。最近、コードは見せられない、だから文章の説明的な質問の人が増えてきたと思うのです。画像添付でも、相手に伝えられる情報ではないです。
#3/#4さんの話も、#1/#2さんの話も熱心に正答をいただいているのに、解決に向かわないのは、残念です。
>シートにリストを予め用意しておくと膨大なリストからたくさんスクロールしてから選択するようにになってしまう為
2007のコマンドで、重複を排除する方法もありますし、両方なら関数で解く方法もあります。ComboBox に入れる以上は、千件以上のものを入れるというのは常識的にありえません。
それに、掲示板の回答は、必ずしも、コピー&ペーストで動くコードを提供してくれるとは限りません。それだけは心得ておいてください。
'//'UserForm モジュール
Private Sub UserForm_Initialize()
ComboBox1.List = MakeUniqueList
End Sub
Function MakeUniqueList()
Dim objDic As Object 'New Scripting.Dictionary
Dim i As Long, j As Long
j = 1
Set objDic = CreateObject("Scripting.Dictionary")
With Worksheets("Sheet1")
'2行目から
For i = 2 To .Cells(Rows.Count, 1).End(xlUp).Row
If Not objDic.Exists(.Cells(i, 1).Value) Then
objDic.Add .Cells(i, 1).Value, j
j = j + 1
End If
Next
End With
MakeUniqueList = objDic.keys
End Function
No.4
- 回答日時:
ANo3です
>シートにリストを予め用意しておくと~~選択するようにになってしまう為
>1対になっているsheet1に1行づつレコードが足され累積していった
結局のところ、「シートにあるリスト」を表示する方式なんですよね?
元データとは別に、整理されたリストが用意されているものとして考えるなら・・・
>には重複せず佐藤、鈴木、田中が出るようなコードとしたいです。
実行時に重複を省くのではなくて、そのシートに登録する時(何らかのタイミングで転記をしているのでしょうから)に重複しないようにすれば良いだけではないでしょうか?
・・・っていうことを、ANo3で書いたつもりなんですけど。
No.3
- 回答日時:
こんにちは
コンボボックスの表示内容のリストは、配列を指定したり、AddItemで個々に設定する方法と、シートの範囲をリストとして指定する方法があると思います。
個別に設定する場合は、設定する際に重複を省けば良いでしよう。
シートの範囲等で指定する場合は、重複の存在するリストをそのまま利用するのではなく、一旦、重複を省いたリスト(または配列)を作成して、そちらを参照するようにすれば良いだけではないでしょうか?
項目数が非常に多い場合は、毎回ゼロから重複を省く処理をしていたのでは効率が悪いので、元のリストにアイテムを追加(?)した時に、同時に「重複を省いたリスト」にもバックグラウンドで反映するなどというようにしておくのが良いかもしれません。(重複している場合は追加されない)
とはいっても、コンボボックスでリスト表示する程度の数であれば、それほどの数とも思えませんので、毎回処理したところで大したことはなさそうですね。
フォローの回答有難う御座います。
シートにリストを予め用意しておくと膨大なリストからたくさんスクロールしてから選択するようにになってしまう為1対になっているsheet1に1行づつレコードが足され累積していった「氏名」だけがユーザーフォームの追加入力可能なコンボボックスにリストとして表示させるようにしたいです。
画像の「氏名」は例えば1対になっているsheet1、A列、A1は見出し「氏名」としてA2,佐藤、A3,鈴木、A4,田中、A5,佐藤、A6,鈴木と1行づつレコードとして追加されていきます。
ユーザーフォーム、コンボボックスの選択リストには重複せず佐藤、鈴木、田中が出るようなコードとしたいです。
多分A列をEndxlupでデータを拾ってフィルターして表示させるのかなと思っています宜しく御願いします。
No.2
- 回答日時:
#1です。
結局「どこに」「何が」「どのように」の説明がないので何ともいえません。
同じ説明を繰り返してやりたいことを書くばかりでは話が前に進みません。
> 同じ氏名の場合があった時にコンボボックスリストが重複して表示されな
> いように
マスタ情報を持たずに 入力したデータをリストとして利用しようと考えるか
ら上手くいかないのでは? 何故マスタを作るという大事な作業を 省こうと
しているのでしょうか。
Excel2003でも使うなら 重複を省くためには連想配列を使う必要があります。
Excel(エクセル)VBA入門:重複なしのデータを抽出するいろいろな方法
http://www.eurus.dti.ne.jp/yoneyama/Excel/vba/vb …
マスタなしでやるなら 入力の度に 重複なしリストを抽出し直すということに
なるかと思います。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Access(アクセス) Accessにインポートした複数のテーブルを表示させる方法が分かりません。 1 2023/01/30 20:22
- Access(アクセス) access フォーム 大分類、小分類 1 2022/08/11 18:03
- Excel(エクセル) エクセルで重複データを行ごとに抽出したい 4 2022/12/05 08:18
- Visual Basic(VBA) ユーザーフォーム「frm_基本❶」を立ち上げると新規で入力する行数を右下のNoとして表示しています。 1 2023/03/16 19:02
- JavaScript セレクトを全て選択されていないと、文字によるエラーメッセージを表示させるコードを調べています 2 2023/06/22 15:48
- Visual Basic(VBA) VBA ComboBoxについて 2 2022/10/21 12:15
- Excel(エクセル) EXCELピボットテーブル(複数アイテム) 1 2023/04/27 12:15
- Access(アクセス) Accessフォーム 一部のレコードだけを抽出する方法について 1 2022/06/28 18:45
- Visual Basic(VBA) VBAリストボックスで選択した後 5 2022/11/07 17:50
- Access(アクセス) Accessの参照フィールドの列がずれてしまいます 1 2023/07/19 15:00
このQ&Aを見た人はこんなQ&Aも見ています
-
見学に行くとしたら【天国】と【地獄】どっち?
みなさんは、一度だけ見学に行けるとしたら【天国】と【地獄】どちらに行きたいですか? 理由も聞きたいです。
-
いちばん失敗した人決定戦
あなたの「告白」での大失敗を教えてください。
-
コンビニでおにぎりを買うときのスタメンはどの具?
コンビニでおにぎりを買うとき、何の具材を選ぶことが多いですか?
-
テレビやラジオに出たことがある人、いますか?
テレビやラジオに取材されたり、ゲスト出演したことある方いますか?
-
一番好きなみそ汁の具材は?
みんなで大好きなみそ汁の具材について語り合おうよっ!
-
アクセスのコンボボックスのデータについて
Access(アクセス)
-
アクセスのコンボボックスの重複をなくすには?
Access(アクセス)
-
フォーム上のリストボックスに重複して表示しています
Visual Basic(VBA)
-
-
4
エクセルのラベルの値(文字列)を垂直方向で中央揃えにするには?
Excel(エクセル)
-
5
コンボボックスの中身を任意順で並べ替え VBA
Excel(エクセル)
-
6
エクセルVBA テキストボックスに3桁ごとにコンマ
Visual Basic(VBA)
-
7
エクセルVBAでUserFormを起動した時
Excel(エクセル)
-
8
Excel vba でコンボボックスの絞り込みで重複リストをなくしたい
Visual Basic(VBA)
-
9
エクセルVBA オプションボタンのチェックを外したい
Excel(エクセル)
-
10
VBAのコマンドボタンの文字列の改行方法は?
Visual Basic(VBA)
-
11
VBA コンボボックスで選んだ値を取得するには
その他(Microsoft Office)
-
12
【VBA】【ユーザーフォーム_ListBox】オートフィルタで絞りこんだ値だけを取り出したい
Visual Basic(VBA)
-
13
VBAコンボボックスで選択した値をシートに転記したい
Visual Basic(VBA)
-
14
ユーザーフォームを表示中にシートの操作をさせるには
Excel(エクセル)
-
15
ListBoxにAddItemする際、重複しないようにしたい
Visual Basic(VBA)
-
16
コンボボックスにリストが表示されません・・・
Excel(エクセル)
-
17
ExcelのVBAでフォームが表示されない
Excel(エクセル)
-
18
エクセルVBA ユーザーフォーム 複数のコンボボックス 同一リスト
Excel(エクセル)
-
19
エクセルVBAでテキストボックスに入力があった場合のみ、ワークシートに転記したい
Visual Basic(VBA)
-
20
VBAから変更した時だけイベントを発生させない方法
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・一番好きなみそ汁の具材は?
- ・泣きながら食べたご飯の思い出
- ・「これはヤバかったな」という遅刻エピソード
- ・初めて自分の家と他人の家が違う、と意識した時
- ・いちばん失敗した人決定戦
- ・思い出すきっかけは 音楽?におい?景色?
- ・あなたなりのストレス発散方法を教えてください!
- ・もし10億円当たったら何に使いますか?
- ・何回やってもうまくいかないことは?
- ・今年はじめたいことは?
- ・あなたの人生で一番ピンチに陥った瞬間は?
- ・初めて見た映画を教えてください!
- ・今の日本に期待することはなんですか?
- ・集中するためにやっていること
- ・テレビやラジオに出たことがある人、いますか?
- ・【お題】斜め上を行くスキー場にありがちなこと
- ・人生でいちばんスベッた瞬間
- ・コーピングについて教えてください
- ・あなたの「プチ贅沢」はなんですか?
- ・コンビニでおにぎりを買うときのスタメンはどの具?
- ・おすすめの美術館・博物館、教えてください!
- ・【お題】大変な警告
- ・洋服何着持ってますか?
- ・みんなの【マイ・ベスト積読2024】を教えてください。
- ・「これいらなくない?」という慣習、教えてください
- ・今から楽しみな予定はありますか?
- ・AIツールの活用方法を教えて
- ・最強の防寒、あったか術を教えてください!
- ・歳とったな〜〜と思ったことは?
- ・モテ期を経験した方いらっしゃいますか?
- ・好きな人を振り向かせるためにしたこと
- ・スマホに会話を聞かれているな!?と思ったことありますか?
- ・それもChatGPT!?と驚いた使用方法を教えてください
- ・見学に行くとしたら【天国】と【地獄】どっち?
- ・これまでで一番「情けなかったとき」はいつですか?
- ・この人頭いいなと思ったエピソード
- ・あなたの「必」の書き順を教えてください
- ・14歳の自分に衝撃の事実を告げてください
- ・人生最悪の忘れ物
- ・あなたの習慣について教えてください!!
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
「取組」と「取り組み」の違い
-
「初め」か「始め」どちら?
-
”ギリギリ” を丁寧に言うには
-
この文字の変換方法を教えて
-
「~していただきまして、あり...
-
「時間がたつ」の「たつ」は、...
-
「基礎」の熟語の構成を 1 同じ...
-
対策を採る?取る?
-
「基」と「元」の使い方
-
「お客様お一人おひとり」と書...
-
次頁はなんと読みますか?
-
「所要時間は1時間程度です」は...
-
「50万円を超える」は50万円以...
-
文章にする時、ひらがなの「と...
-
魚へんの下の点々が大
-
0(ゼロ)とO(オー)の書き分け...
-
文章で対象者を「人」というか...
-
日差しが差す(陽射しが射す)...
-
名前に「之」があるんですがこ...
-
「皆んな」という表記に違和感...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
「おまちどおさま」「おまちど...
-
「取組」と「取り組み」の違い
-
「初め」か「始め」どちら?
-
”ギリギリ” を丁寧に言うには
-
この文字の変換方法を教えて
-
「時間がたつ」の「たつ」は、...
-
「~していただきまして、あり...
-
対策を採る?取る?
-
「お客様お一人おひとり」と書...
-
「基」と「元」の使い方
-
次頁はなんと読みますか?
-
「50万円を超える」は50万円以...
-
日差しが差す(陽射しが射す)...
-
文章にする時、ひらがなの「と...
-
文章で対象者を「人」というか...
-
木へんに夕に卩ってどう読みま...
-
魚へんの下の点々が大
-
エクセルでセルの中身が漢字か...
-
「皆んな」という表記に違和感...
-
新人から上司へ飲みの誘い
おすすめ情報