|
みなさん 今日は。
正しいかどうかは別として、次の様な理解に達しました。
間違っていたら教えてください。
'-----同じ要素を追加しようとすると、エラーが発生するのを利用
On Error Resume Next
For Each c In Sheets("Sheet1").Range("A2", LastC)
mycoll.Add c, c '<=== '一意データ作成
'mycoll.Add c, "a" '<===おもしろい動きをしました
'mycoll.Add c, c.Value '<===
'mycoll.Add c, c.Text '<===
'mycoll.Add c, CStr(c.Value) '<===
'mycoll.Add [Collectionの要素], [Collectionの値(キー)](この値で同じか調べている)
'エラー内容
'このキーは既にこのコレクションの要素に割り当てられています
'
'
'[Collectionの要素], [Collectionの値(キー)]の言葉が正しいかどうかは別として、
'エラー内容といろいろな試行錯誤から、次のようなことが分かりました。
'Collectionには、[Collectionの要素]が格納されて、
'[Collectionの値(キー)]で、値が同じか調べているみたいだというのが分かりました。
Next
On Error GoTo 0
'-----
Application.EnableEvents = False
ComboBox1.Clear
For i = 1 To mycoll.Count
ComboBox1.AddItem mycoll(i).Value '<===
'ComboBox1.AddItem mycoll(i).Address '<===
Next
|
|