いつもお世話になっております
下記のコードを実行すると 型が一致しませんと
でてしまいます。
間違って言ところ
わかる方おしえてくれませんでしょうか
.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
No.1ベストアンサー
- 回答日時:
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...
-
変数名の取得
-
ハッシュテーブル(連想配列)が...
-
VBAでWEB上の入力項目に値をい...
-
マクロ 特定のセル値のみクリ...
-
VB.netでRGB関数を使うには
-
変数に代入してある数値を表示...
-
Excel VBAのリストボックスの値...
-
C#の質問です
-
vb6のVSFlexGridで選択行、列の...
-
他のformのコントロールの値の...
-
ListBoxでオートフィルター表示
-
VB初心者。小数点以下の表示で...
-
ユーザーフォームのテキストボ...
-
Excel VBA 複数選択したリスト...
-
VBA(自然数)
-
DataTableに対するLINQについて
-
スタックポインタ取得 アセンブラ
-
PL/SQLでのTO_DATEの時間取得に...
-
エクセルユーザーフォームの日...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
テキストボックスのvalueとtext...
-
ハッシュテーブル(連想配列)が...
-
Excel VBAのリストボックスの値...
-
マクロ 特定のセル値のみクリ...
-
PysimpleGUIでデータベースを作る
-
VB.NETでコンボボックスの1行目...
-
変数名の取得
-
power BI クエリエディター 〇...
-
VB初心者。小数点以下の表示で...
-
PL/SQLでのTO_DATEの時間取得に...
-
【C++/CLI.NET】コンボボックス...
-
値を返さないコード パス
-
Powershellのparamについて
-
Excel VBA 複数選択したリスト...
-
DataTableに対するLINQについて
-
ユーザーフォームのテキストボ...
-
C# get set
-
変数に代入してある数値を表示...
-
VBAでWEB上の入力項目に値をい...
-
VB.NETでアクティブなformを知...
おすすめ情報