Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


6864 / 13644 ツリー ←次へ | 前へ→

【42591】リストボックスへの表示について あきこ 06/9/15(金) 20:31 質問[未読]
【42592】Re:リストボックスへの表示について Blue 06/9/15(金) 21:02 発言[未読]
【42593】Re:リストボックスへの表示について Kein 06/9/15(金) 21:06 回答[未読]
【42594】Re:リストボックスへの表示について だるま 06/9/15(金) 21:13 回答[未読]
【42669】Re:リストボックスへの表示について あきこ 06/9/19(火) 0:48 お礼[未読]

【42591】リストボックスへの表示について
質問  あきこ  - 06/9/15(金) 20:31 -

引用なし
パスワード
   こんばんは。
いつもお世話になります。

Userform1にListbox1があり、リストとして、Sheet1のB列を表示させたいのですが、

Sheet1
A B C D
項 社 名 量
1 AAA ZZZ 10
2 AAA YYY  8
3 BBB WWW 20
4 CCC RRR  4
5 DDD QQQ  1
6 DDD GGG 17
: : : :

B列には各社の名前が重複して入力されているので、
これをリストボックスへは重複しないように表示させるには
どうしたらよいでしょうか?

Listbox
AAA
BBB
CCC
DDD
:

ご教授よろしくお願いします。

【42592】Re:リストボックスへの表示について
発言  Blue  - 06/9/15(金) 21:02 -

引用なし
パスワード
   コンボボックスですが参考になると思います。

コンボボックスの値を複数列から重複しないように設定するには?
http://excelfactory.net/excelboard/excelvba/excel.cgi?mode=all&namber=89470&rev=0

【42593】Re:リストボックスへの表示について
回答  Kein  - 06/9/15(金) 21:06 -

引用なし
パスワード
   重複を除く値をリストにする方法はいろいろありますが、一例として・・

Private Sub UserForm_Initialize()
  Dim C As Range
  Dim i As Long
  Dim MyV() As String

  ReDim MyV(i): MyV(i) = ""
  With Worksheets("Sheet1")
   For Each C In .Range("B2", .Range("B65536").End(xlUp))
     If IsError(Application.Match(C.Value, MyV, 0)) Then
      i = i + 1: ReDim Preserve MyV(i)
      MyV(i) = C.Value: ListBox1.AddItem C.Value
     End If
   Next
  End With
  Erase MyV
End Sub

【42594】Re:リストボックスへの表示について
回答  だるま WEB  - 06/9/15(金) 21:13 -

引用なし
パスワード
   私もひとつ。^d^

Private Sub UserForm_Initialize()
  Dim Dic As Object  'Dictionary
  Dim RR As Range
  Dim R As Range
  
  Set Dic = CreateObject("Scripting.Dictionary")
  Set RR = Sheets("Sheet1").Range("B2")
  Set RR = Range(RR, RR.End(xlDown))
  
  For Each R In RR
    Dic(R.Value) = Empty
  Next
  Me.ListBox1.List = Dic.Keys
  
  Set Dic = Nothing
End Sub

【42669】Re:リストボックスへの表示について
お礼  あきこ  - 06/9/19(火) 0:48 -

引用なし
パスワード
   To 皆さま

丁寧な回答ありがとうございました。
おかげさまで解決しましたv
もっと勉強します

6864 / 13644 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free