いつもお世話になっております。
リストボックス3
リストボックス4
があります。
2022年4月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
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) worksheets & rows メソッドは失敗しました。のエラー回避のやり方 1 2022/06/07 13:58
- Visual Basic(VBA) エクセルのマクロを使ってメールを送る方法について教えてください 2 2022/03/29 01:36
- Visual Basic(VBA) Worksheets メソッドは失敗しました。のエラー処理のやり方 4 2022/05/29 21:29
- Visual Basic(VBA) 動きっぱなしです。止め方とプロシージャの間違いを教えて下さい! 5 2022/08/15 23:08
- Visual Basic(VBA) Dateserialで データ抽出 2 2022/06/26 21:07
- Visual Basic(VBA) エクセル VBA メール本文に指定セルに記載されているURLをリンクとして記載する方法 8 2022/08/08 07:50
- Visual Basic(VBA) 配列の勉強をしています。使用する変数の意味、検索条件の書き方が難しいです。 2 2022/09/15 14:06
- Visual Basic(VBA) 前回ご教授いただいたコードに覚えたてのループ処理で品名りんごAから順に20回for nextでループ 7 2023/01/13 22:01
- Visual Basic(VBA) excel vbaでvlooupの変数がわかりません。 7 2022/05/30 09:35
- Visual Basic(VBA) 【Excel VBA】自動メール送信の機能追加 5 2022/09/29 12:53
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VB.NETで DataRow()を利用して...
-
VBA:小数点以下の数字を取得で...
-
ListView 項目の選択/選択解除...
-
count(*)で取得した値をJAVAの...
-
VBAでActiveDirectoryのユーザ...
-
JSP+Servletでのページングの常識
-
利用者側のMACアドレスを取得し...
-
javaで週の最初の日(例:月曜日...
-
VBA リストボックス内の値を複...
-
エクセルVBAで複数選択できるよ...
-
JavaScriptでWindowsログオンID...
-
NTPサーバから時刻を取得する
-
JavaScriptにおいてコンピュー...
-
EXCELのリストボックスを選択し...
-
タイマーオブジェクトを利用し...
-
javascriptのonclickで、ループ...
-
「Excel VBA」 Webクエリ マク...
-
Google Apps Script で、Web上...
-
Spreadの選択行の取得について
-
DateTimePicker
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
VB.NETで DataRow()を利用して...
-
count(*)で取得した値をJAVAの...
-
ListView 項目の選択/選択解除...
-
データ数をカウントしたいのですが
-
VBA:小数点以下の数字を取得で...
-
VBAでActiveDirectoryのユーザ...
-
Flexgridで選択行の列の値を取...
-
like演算子内に変数って使えな...
-
ListViewで複数選択された項目...
-
getParameter と getAttribut...
-
JSP+Servletでのページングの常識
-
JavaScriptでWindowsログオンID...
-
利用者側のMACアドレスを取得し...
-
Spreadの選択行の取得について
-
Excel VBA でログインしてい...
-
コンボボックス表示文字列を取...
-
C言語におけるコンピュータ名・...
-
「Excel VBA」 Webクエリ マク...
-
エクセルVBAで複数選択できるよ...
-
VBScriptで数値にコンマを付け...
おすすめ情報