|
>>すでにComboBoxどもに、アイテムがAddItem されていて、
>>そこに Sheet1 からアイテムを追加したい(重複せずに)ということであれば、
> Sheet1 からアイテムを追加したい(重複せずに)のです
> 追加した後重複したアイテムを削除する などの方法は
> あるのでしょうか
> また
> ( 新規リスト作成か/すでにあるリストに追加か)の確認は
> どのようにするのでしょうか
ComboboxのValue値にセットしてみて、ListIndex > -1 なら既に設定済みと判断してはどうですか?
例です。
Dim r As Range, c As Range
Dim v As Variant
Set r = Sheets("Sheet1").Range("A1").CurrentRegion.Resize(, 1)
With ComboBox1
For Each c In r
v = c.Value
.Value = v
If .ListIndex < 0 Then
.AddItem v
End If
Next
.ListIndex = -1
End With
(注意)
ただ、ComboboxのChangeイベントが書いている場合には、再帰に注意してください。
|
|