![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?8acaa2e)
いつもお世話になっております
下記のコードを実行すると 型が一致しませんと
でてしまいます。
間違って言ところ
わかる方おしえてくれませんでしょうか
.AutoFilter field:=6, Criteria1:=">=" & DateSerial(ListBox4, ListBox5, 1), _
Operator:=xlAnd, _
Criteria2:="<=" & DateSerial(ListBox6, ListBox7.Value + 1, 0)
field:=7 は担当
field:=6 は契約予定日
となっています。
ListBox4には
2022
2023
ListBox5には
4/1
5/1
6/1
ListBox6には
2022
2023
ListBox7には
4/30
5/31
6/30
となっています。
Dim a() As String
Dim d As Long
Dim Cnt As Long
With Me.ListBox1
For d = 0 To .ListCount - 1
If .Selected(d) Then
Cnt = Cnt + 1
ReDim Preserve a(1 To Cnt)
a(Cnt) = .List(d)
End If
Next
If Cnt = 0 Then Exit Sub
End With
With Range("B1")
.AutoFilter field:=7, Criteria1:=a(), Operator:=xlFilterValues
.AutoFilter field:=6, Criteria1:=">=" & DateSerial(ListBox4, ListBox5, 1), _
Operator:=xlAnd, _
Criteria2:="<=" & DateSerial(ListBox6, ListBox7.Value + 1, 0)
End With
![「Dateserialで データ抽出」の質問画像](http://oshiete.xgoo.jp/_/bucket/oshietegoo/images/media/e/543034290_62b84b0d8ee86/M.png)
With ListBox5
.AddItem "4"
.AddItem "5"
.AddItem "6"
.AddItem "7"
.AddItem "8"
.AddItem "9"
.AddItem "10"
.AddItem "11"
.AddItem "12"
.AddItem "1"
.AddItem "2"
.AddItem "3"
End With
に修正してうまくいきました。
ありがとうございました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) Sheet2の日付をキーにオートフィルターで2023年1月のデータを抽出し、Sheet3へ書き出すた 2 2023/03/06 23:57
- Visual Basic(VBA) 前回ご教授いただいたコードに覚えたてのループ処理で品名りんごAから順に20回for nextでループ 7 2023/01/13 22:01
- Visual Basic(VBA) 配列の勉強をしています。使用する変数の意味、検索条件の書き方が難しいです。 2 2022/09/15 14:06
- Visual Basic(VBA) Sheet3から2つの条件でオートフィルターで抽出した個数をSheet2へ入力するマクロで、一つ目の 4 2023/01/12 23:40
- Visual Basic(VBA) ①ExcelVBAでカレンダーを作り、別のユザーフォームで日付を入力したいのですがエラーになります。 1 2023/02/17 18:39
- Excel(エクセル) VBAで組み合わせ算出やCOUNTIFSの処理を高速化したいです。 4 2022/04/07 02:38
- Visual Basic(VBA) 稀に1円合いません? Sheet1から金額と個数を貼り付ける下記コードで、金額を切り上げるコードを何 3 2022/09/05 15:11
- Visual Basic(VBA) いつもお世話になっております、VBAで教えて頂きたいのですが 2 2022/05/05 22:20
- Excel(エクセル) VBAの指示の内容 昨日こちらでご教示頂いたのですが初心者な為、一つ一つの指示が何をやっているのかわ 2 2022/10/25 18:08
- Visual Basic(VBA) 今日の日付が過ぎたらその行を削除したい 1 2023/04/01 20:06
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
テキストボックスのvalueとtext...
-
VB.NETでコンボボックスの1行目...
-
Powershellのparamについて
-
変数名の取得
-
FlexGridで複数選択したセル、...
-
スタックポインタ取得 アセンブラ
-
ダブルクリックをした順番に数...
-
他のformのコントロールの値の...
-
代入したのに値が更新されない...
-
VB.NETでアクティブなformを知...
-
VBAでWEB上の入力項目に値をい...
-
マクロ 特定のセル値のみクリ...
-
Excel VBA 複数選択したリスト...
-
ASPの変数の値をJAVA Script内...
-
【C++/CLI.NET】コンボボックス...
-
VBで電卓のメモリー機能はどの...
-
if ( fp == NULL ){ を if ( f...
-
AccessVBA 帳票フォームの非連...
-
VB.NETのスクロールバーコント...
-
ISDBNULLをスルーしてDBNULLが...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
テキストボックスのvalueとtext...
-
マクロ 特定のセル値のみクリ...
-
Geogebraの操作方法について
-
VB.NETでコンボボックスの1行目...
-
VB初心者。小数点以下の表示で...
-
変数名の取得
-
値を返さないコード パス
-
【C++/CLI.NET】コンボボックス...
-
Excel VBAのリストボックスの値...
-
PL/SQLでのTO_DATEの時間取得に...
-
Powershellのparamについて
-
vbaの繰り返しで求める最大値に...
-
C#の質問です
-
VBA ドロップダウンリストを残...
-
VBA(自然数)
-
シーケンサで最小値を保持する
-
[VBA]選択範囲の下から上に処理...
-
vbscriptを使いexcelを参照して...
-
[VB.net] DataGridViewのコンボ...
-
変数に代入してある数値を表示...
おすすめ情報