|
▼あいんすと さん:
こんばんは。
>質問ばかりでスイマセン。
>コンボボックスで選択した項目をリストボックスにアップしていく
>というマクロを作成したのですが、以下の場合だと、一度選択した
>項目をダブってリストボックスに入力してしまいます。
>リストボックスに同じものをリストアップしない良い方法ってありますか?
>ちなみにコンボボックスには同じものはありません。
32件ぐらいなら一つ一つ調べていってみたらどうでしょうか?
'=================================
Private Sub ComboBox1_Change()
Dim ret As Boolean
Dim compvalue As Variant
With ListBox1
If .ListCount >= 32 Then
MsgBox "入力可能なデータ数は最大32です"
Exit Sub
End If
'ラベルをリストに追加
If ComboBox1.Value <> "" Then
compvalue = ComboBox1.Value
ret = True
For idx = 0 To .ListCount - 1
If .List(idx) = compvalue Then
ret = False
Exit For
End If
Next idx
If ret = True Then
.AddItem ComboBox1.Value
Label1.Caption = "現在" & (.ListCount)
End If
End If
End With
End Sub
|
|