質問タイトルのようにフィルターで翌日を選んで転記したいです。フィールド3の抽出条件を翌日のDateAdd("m", 1, Date)としても抽出されません。フィールド5として抽出条件を”営業”とすると抽出されるんですが。フィールド3に翌日に予定が無ければ、無記入でかまわないのですが実際にあるのに転記されません。
Private Sub CommandButton8_Click()
ScreenUpdating = False
'フィルター
Set ws = Worksheets(Range("C2") & Range("D2"))
ws.Select
Sheet4.Cells.ClearContents
With ActiveSheet
ws.Range("A2:L2").Select
Selection.AutoFilter
Selection.AutoFilter Field:=3, Criteria1:=DateAdd("m", 1, Date)
.Range("A2").CurrentRegion.SpecialCells(xlCellTypeVisible).Copy Sheet4.Range("A1")
.AutoFilterMode = False
End With
Sheet4.Activate
Sheet1.Range("D5").Value = Sheet4.Range("E3") & Sheet4.Range("F3")
Sheet1.Range("D6").Value = Sheet4.Range("C3")
Sheet1.Range("D9").Value = Sheet4.Range("I3")
Sheet1.Range("E9").Value = Sheet4.Range("J3")
'カウント
Sheet1.Range("M3").Value = Application.WorksheetFunction.Count(Sheet4.Range("A1:A10"))
Sheet1.Select
ScreenUpdating = True
End Sub
何が違うんでしょうか?
No.10
- 回答日時:
こちらの下の方に
この「日付フィルタ」で絞り込むときには、引数Criteria1に次の定数を指定し、引数Operatorに定数xlFilterDynamicを指定します。
多分 11 が定数xlFilterDynamic なのでしょうね。
No.9ベストアンサー
- 回答日時:
補足を見て。
どうやらそのようですね。
何で翌日を検索条件にしようとしているのにその手段を用いるとか、やりたい事が重複しているだけではないかな?
Selection.AutoFilter Field:=3, Criteria1:=DateAdd("m", 1, Date)
↓
Selection.AutoFilter Field:=3, Criteria1:=3, Operator:=11, Criteria2:=0, SubField:=0
で良かったのでは?
翌日を調べる必要はなかっただけの事。
No.8
- 回答日時:
>Criteria1:=3 は条件が3つ目?Operator:=11 はどういう意味でしょうか?
逆に私が知りたいです。
No.7で記録を取ると
ActiveSheet.Range("$A$2:$D$9").AutoFilter Field:=3, Operator:= _
xlFilterValues, Criteria2:=Array(2, "4/13/2021")
となります。(セル範囲は適当にデータを作ったので気にしないで)
すみません。ありがとうございます。
xlfilterdynamic 定数11 動的フィルターと調べたら出てきました。動的フィルターとはどういう動作をするのかわからないです。
すみません。今日は別件の仕事が入ったのでこれ以降、今日はコメントできません。
No.6
- 回答日時:
正直そちらのbookを直接確認しないとわからない(こちらでは同様の事態が起こせない)感じですね
手動で抽出する際の選択画面を画像にして挙げてもらえればヒントになるのかも?
先にも書きましたが 3 って何のことなのかわからないです
No.5
- 回答日時:
With ActiveSheet
ws.Range("A2:L2").Select
Selection.AutoFilter
Selection.AutoFilter Field:=3, Criteria1:=DateAdd("m", 1, Date)
↓
With ActiveSheet
ws.Range("A2:L2").AutoFilter Field:=3, Operator:=xlFilterValues, _
Criteria2:=Array(2, Format(DateAdd("d", 1, Date), "m/d/yyyy"))
ありがとうございます。
ご指示いただいたもので確かめるとアプリケーションの定義またはオブジェクトの定義エラーとでました。
Operator:=xlFilterValuesを削除するとデバックは消えるのですが、"m/d/yyyy"をmm"月"dd"日"やmm/ddなど色々確かめても転記されず、
Selection.AutoFilter Field:=3, Criteria1:=3 _
Operator:=11, Criteria2:=0 , SubField:=0 だといけるんです。何が違うんでしょうか?
No.4
- 回答日時:
補足を見て。
>Selection.AutoFilter Field:=3, Criteria1:=3 _
>Operator:=11
どうして日付を選んでいるはずなのに 3 となったり Operator:=11 ってどの組み合わせをしているのかサッパリですね。
そのフィールドには数式で日付を表し且つシリアル値ではない結果を表示している?
>セルの値がmm"月"dd"日"なのですが、
セルの値がってなら文字列ですよね?
セルの表示形式がってなら多分シリアル値?
どちらがセル(数式バーに表示される)にあるのか。
日付は数式ではなく、04月12日と直接入力しています。数式バーには2021/4/12となっていました。
再度、手動でマクロの記録をしてみました。どうやっても下のものが加わります。
Criteria1:=3 は条件が3つ目?Operator:=11 はどういう意味でしょうか?
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) Sheet「状況」から、分類の年齢別カウント数をSheet「D表」へ転記する下記マクロを作っています 7 2022/12/14 17:57
- Visual Basic(VBA) EXCELのVBAについて 2 2023/07/05 17:17
- Visual Basic(VBA) 3つのプロシージャをまとめたら実行時エラー発生で対応不能 6 2022/05/17 01:47
- Visual Basic(VBA) 前回質問の続きになりますが、下記マクロでシート1からシート2の抽出項目セルB3「りんご」とセルC2「 2 2022/12/02 17:37
- Visual Basic(VBA) Sheet3から2つの条件でオートフィルターで抽出した個数をSheet2へ入力するマクロで、一つ目の 4 2023/01/12 23:40
- Excel(エクセル) エクセル 値をコピペした時に、条件付き書式で塗られた背景色もペーストさせる 2 2023/04/05 17:21
- 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) vbaのvlookup関数エラー原因を教えていただけないでしょうか。 3 2022/04/25 16:16
- Visual Basic(VBA) Sheet2の日付をキーにオートフィルターで2023年1月のデータを抽出し、Sheet3へ書き出すた 2 2023/03/06 23:57
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excelのマクロについて教えてく...
-
Vba 実数および実数タイプの変...
-
ユーザーフォームに別シートか...
-
VBA レジストリの値の読み方に...
-
エクセルVBAについて
-
VBA listBoxから
-
ExcelのVBAコードについて教え...
-
VBA 複数条件の分岐処理の上手...
-
ExcelのVBAです。フォルダ内の...
-
VBAの計算で@が出てしまう件
-
VB.net(VB)で、フォームにExcel...
-
エクセルのマクロについて教え...
-
エクセルのマクロについて教え...
-
エクセルのマクロについて教え...
-
VBAの質問になります Userform内で
-
VBAの質問になります メッセー...
-
Excel マクロについての相談
-
Vba SelStart、SelLen教えてく...
-
エクセルのマクロについて教え...
-
エクセルのマクロについて教え...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excel VBA 定義されたプロージ...
-
Excel-VBAのmsgBox()の不思議
-
【VBA】マクロの入ったファイル...
-
VBA 複数条件の分岐処理の上手...
-
現在のブックを閉じないで、マ...
-
VBAで各列の"+"と"o"の合計数を...
-
VBAに詳しい方教えてください。
-
エクセルのマクロについて教え...
-
エクセルのマクロについて教え...
-
エクセルのマクロについて教え...
-
エクセルのマクロについて教え...
-
エクセルのマクロについて教え...
-
エクセルのマクロについて教え...
-
ユーザーフォームに別シートか...
-
エクセルのマクロについて教え...
-
ExcelVBA シート名を複数セルか...
-
エクセルのマクロについて教え...
-
VBA listBoxから
-
Excelのマクロについて教えてく...
-
エクセルのマクロについて教え...
おすすめ情報
日付フィルターを見つけて手動のマクロ記録でやってみました。
手動のマクロ記録でやってみました。
Selection.AutoFilter Field:=3, Criteria1:=3 _
Operator:=11, Criteria2:=0 , SubField:=0に修正したらできたのですが意味がわかってません。どういう事なのでしょうか?
画像を添付いたします。
日付フィルターで”明日”を選んでいます。ファイルを開くとき特定の日付ではなくその日の”明日”としたいからです。
これがOperator:=3ということになるのでしょうか?