|
このサイトで、下のコードの「重複を除く」コードを記録させていただき、
活用させていただいています。私にとって大切なコードです。
今は、理屈も分からず丸暗記です。
しかし、今になっても、コードが理解できません。
特にComboBox1.List(i)の理解が出来ません。
何故重複した場合にList(i)のところで吸収して
動作するのかも理解できません。
理屈が分かるほうが・・・といつも思っていました。
Debug.Printでは結果が出て、結果だけは判るのですが・・・
解説をしていただければありがたいのですが、よろしくお願いします。
Private Sub UserForm_Initialize()
Dim k As Long
Dim i As Long
For k = 6 To Range("A65536").End(xlUp).Row
For i = 0 To ComboBox1.ListCount - 1
If Cells(k, 1).Value = ComboBox1.List(i) Then
Exit For
End If
Next i
If i = ComboBox1.ListCount Then
ComboBox1.AddItem Cells(k, 1).Value
End If
Next k
End Sub
|
|