| |
>＞すでに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イベントが書いている場合には、再帰に注意してください。
|
|
teian
- 11/3/9(水) 23:43 -
