| |
みなさん、こんにちは。少し分からないところがあるので、どなたかご教授下さい
A
3 ぞう
4 きりん
5 パンダ
6 ぞう
7 ライオン
8 ライオン
9 ねこ
. .
. .
. .
というシートがあってA列の値をコンボボックスに読み込んでユーザーに選択させます。新しい動物を書く場合はコンボボックスに書かせてA列に登録します。
参照としてA列をコンボボックスに読み込ませていますが、上のそのままを
読み込んでしまいますので、ぞう・ライオンが２回出てきます。
私がしたいのは上の列をコンボボックスに読み込ませて、重複は省き、
ぞう・きりん・パンダ・ライオン・ねこ とコンボボックスに読み込ませたい
のですが、どうしたらいいでしょうか？
以下コードを記述します。
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
|
|
かとぼん
- 06/1/29(日) 11:31 -
