123

view

失礼しました。B列で判定でしたね＾＾；
こんな感じでどうでしょうか？

Private Sub UserForm_Initialize()

Me.StartUpPosition = 0
Me.Left = 586
Me.Top = 138

'タイトルを設定
Me.Caption = "印刷フォーム"
Label1.Caption = "日付リスト"

Dim Rng As Range, fRng As Range
Dim lst As Variant, tmp As Variant
Dim i As Long, j As Long

With Worksheets("入出金帳簿")
Set fRng = .Range("L5,L25:L29")
lst = .Range("A4:B" & .Cells(Rows.Count, 1).End(xlUp).Row)
End With

'fRngを含むlstを削除
For Each Rng In fRng
For i = LBound(lst) To UBound(lst)
If lst(i, 2) = Rng.Value Then
tmp = lst(i, 1)
For j = LBound(lst) To UBound(lst)
If lst(j, 1) = tmp Then lst(j, 1) = Empty
Next j
End If
Next i
Next Rng

'重複を削除
With CreateObject("Scripting.Dictionary")
For i = LBound(lst) To UBound(lst)
If lst(i, 1) <> Empty Then .Item(lst(i, 1)) = .Item(lst(i, 1)) + 1
Next i
lst = .Keys
End With

'ソート
'バブルソートで配列を昇順に並べ替える
i = LBound(lst)
Do While i < UBound(lst)
j = UBound(lst)
Do While j > i
If lst(j) < lst(i) Then
tmp = lst(j)
lst(j) = lst(i)
lst(i) = tmp
End If
j = j - 1
Loop
i = i + 1
Loop

'リストボックスへ設定
ListBox1.List = lst
End Sub