リストビューに条件による表示

いつもお世話になっております。
リストボックス3
リストボックス4
があります。
2022年４月1日から2023年3月31日まで
リストボックス3には月初め
リストボックス4には月の終わり

各リストボックスを選択して　コマンド実行で
リストビューに表示させたいのですが、
エクセルのシートの抽出はうまくいっているのですが
リストビューには何も表示されません。
どこが　わるいのか　わかる方おしえてくれませんでしょうか

Private Sub CommandButton8_Click()


With Range("B1").CurrentRegion
.AutoFilter Field:=5, Criteria1:=">=" & ListBox3, Operator:=xlAnd, Criteria2:="<=" & ListBox4

End With



With ListView1
.ListItems.Clear
.ColumnHeaders.Clear
End With


With ListView1
.View = lvwReport
.FullRowSelect = True
.AllowColumnReorder = True
.Gridlines = True
.AllowColumnReorder = True
.CheckBoxes = True
.ForeColor = vbBlue

.ColumnHeaders.Add , , "NO", 70
.ColumnHeaders.Add , "B", "名前", 100
.ColumnHeaders.Add , "C", "性別", 50
.ColumnHeaders.Add , "D", "血液型", 50
.ColumnHeaders.Add , "F", "生年月日", 100

For R = 2 To LR
If Rows(R).Hidden = False Then

With ListView1.ListItems.Add
.Text = Range("B" & R).Value
.SubItems(1) = Range("C" & R).Value
.SubItems(2) = Range("D" & R).Value
.SubItems(3) = Range("E" & R).Value
.SubItems(4) = Range("F" & R).Value


End With
End If
Next
End With

AutoFilterMode = False


For i = 0 To Me.ListBox3.ListCount - 1
ListBox3.Selected(i) = False
Next

For i = 0 To Me.ListBox4.ListCount - 1
ListBox4.Selected(i) = False
Next
End Sub

No.1 ベストアンサー 回答者： KenKen_SP 回答日時： 2022/06/01 20:53

LRを取得するコードが見当たらないですけど、0でループが実行されてないのでは？

最終行の取得

この回答へのお礼

LR = Range("B" & Rows.Count).End(xlUp).Row 'B列最終行
ありがとうございました。

お礼日時：2022/06/01 20:57