| |
▼Hirofumi さん：
>これ、コレクションを使って重複取りを行っているのですか？
>また、ComboBoxに登録する日付の総数は沢山在るのですか？（いくつぐらいですか？）
Dim リスト As New Collection
Dim セル範囲 As Range
Dim 各セル As Range
を使用しています。
数は50近くあります。
重複もたくさんあるので、行数的に420行ほどあります。
>
>以前、ComboBoxのListを降順に登録するコードを提示したと思いますが？
>あのコードは、降順に並べるだけで無く、重複も取っていた筈ですが
>遅くて使い物に成りませんか？
以前に教えてもらってものが使えますね。
ありがとうございます。
でも私が提示したものはなぜにだめなのでしょうか？
そこのところも教えていただけるとありがたいです。
With Sheets("対戦表").Columns("C")
Set c = .Find(What:="*/*", lookat:=xlPart)
If Not c Is Nothing Then
fAddress = c.Address
Do
vntDate = c.Value
For i = 0 To Cmb開催日.ListCount - 1
If Format(vntDate, "mmdd") <= Format(CDate(Cmb開催日.List(i, 0)), "mmdd") Then
Exit For
End If
Next i
If i <= Cmb開催日.ListCount - 1 Then
If Format(vntDate, "m/d") <> Cmb開催日.List(i, 0) Then
Cmb開催日.AddItem Format(vntDate, "m/d"), i
End If
Else
Cmb開催日.AddItem Format(vntDate, "m/d")
End If
Set c = .FindNext(c)
If c.Address = fAddress Then Exit Do
Loop
End If
End With
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
