Excel VBA質問箱 IV

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

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


47457 / 76732 ←次へ | 前へ→

【34231】コンボボックスで重複読込をしないようにする
質問  かとぼん E-MAIL  - 06/1/29(日) 11:31 -

引用なし
パスワード
   みなさん、こんにちは。少し分からないところがあるので、どなたかご教授下さい

   A
3  ぞう
4  きりん
5  パンダ
6  ぞう
7  ライオン
8  ライオン
9  ねこ
.   .
.   .
.   .

というシートがあってA列の値をコンボボックスに読み込んでユーザーに選択させます。新しい動物を書く場合はコンボボックスに書かせてA列に登録します。
参照としてA列をコンボボックスに読み込ませていますが、上のそのままを
読み込んでしまいますので、ぞう・ライオンが2回出てきます。
私がしたいのは上の列をコンボボックスに読み込ませて、重複は省き、
ぞう・きりん・パンダ・ライオン・ねこ とコンボボックスに読み込ませたい
のですが、どうしたらいいでしょうか?

以下コードを記述します。

Private Sub UserForm_Initialize()


Dim dcunt As Integer
Dim drnge As Range
Dim rsoc As String

Set drnge = Sheet2.Range("A3").CurrentRegion
   dcunt = drnge.Rows(drnge.Rows.Count).Row
   rsoc = "アドレス帳!A3:A" & dcunt
   Combo業種.RowSource = rsoc
  
  
End Sub

Private Sub CommandOK_Click()


If Combo業種.Value = "" Then
  MsgBox "業種を選ぶか、新規の場合は記入して下さい"
  Exit Sub
  Else:
  
  Sheet2.Select
  
  Range("A3").Value = Combo業種.Value
  Unload Me
  
  Sheet1.Select
 
End If

End Sub
0 hits

【34231】コンボボックスで重複読込をしないようにする かとぼん 06/1/29(日) 11:31 質問
【34232】Re:コンボボックスで重複読込をしないよう... かみちゃん 06/1/29(日) 11:39 発言
【34256】ありがとうございました。 かとぼん 06/1/29(日) 20:45 お礼
【34242】Re:コンボボックスで重複読込をしないよう... Hirofumi 06/1/29(日) 17:42 回答
【34254】ありがとうございました。 かとぼん 06/1/29(日) 20:44 お礼

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