質問タイトルのようにフィルターで翌日を選んで転記したいです。フィールド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.9ベストアンサー
- 回答日時:
補足を見て。
どうやらそのようですね。
何で翌日を検索条件にしようとしているのにその手段を用いるとか、やりたい事が重複しているだけではないかな?
Selection.AutoFilter Field:=3, Criteria1:=DateAdd("m", 1, Date)
↓
Selection.AutoFilter Field:=3, Criteria1:=3, Operator:=11, Criteria2:=0, SubField:=0
で良かったのでは?
翌日を調べる必要はなかっただけの事。
No.10
- 回答日時:
こちらの下の方に
この「日付フィルタ」で絞り込むときには、引数Criteria1に次の定数を指定し、引数Operatorに定数xlFilterDynamicを指定します。
多分 11 が定数xlFilterDynamic なのでしょうね。
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で質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Web画面の文字をVB6で取得したい
-
【ExcelVBA】インデックスが有...
-
VBA 別ブックから条件に合うも...
-
Excel VBA 文字列のセルを反映...
-
VB.net(VB)で、フォームにExcel...
-
配列のペースト出力結果の書式...
-
エクセルのマクロについて教え...
-
[VB.net] ボタン(Flat)のEnable...
-
vbaにてseleniumを使用したedge...
-
メールの件名をデコードしたい
-
VBA 別ブックからコピペしたい...
-
VBA実行後に元のセルに戻りたい
-
エクセルのマクロについて教え...
-
エクセルのマクロについて教え...
-
エクセルのマクロについて教え...
-
エクセルのマクロについて教え...
-
Excel-VBAのmsgBox()の不思議
-
郵便番号検索APIにてget Elemen...
-
VBA 入力箇所指定方法
-
エクセルのマクロについて教え...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
VBA 別ブックからコピペしたい...
-
Vba ファイル書き込み時に書き...
-
Excel_VBAについて質疑です。(...
-
VBAの間違い教えて下さい
-
VBA コードどこがおかしいですか?
-
VBA 円グラフ 特定条件に一致し...
-
VBA 別ブックから条件に合うも...
-
pdfファイルの複数添付 引数の型
-
【ExcelVBA】インデックスが有...
-
ExcelVBAマクロで実行した時の疑問
-
Vba UserformからExcelシートの...
-
VBA初心者です。次のVBAコード...
-
Outlookの「受信日時」「件名」...
-
Excel 範囲指定スクショについ...
-
vbs ブック共有を解除
-
配列のペースト出力結果の書式...
-
Excel VBAで値を変えながら、pd...
-
VB.net(VB)で、フォームにExcel...
-
vbaにてseleniumを使用したedge...
-
ExcelVBA シート名を複数セルか...
おすすめ情報
日付フィルターを見つけて手動のマクロ記録でやってみました。
手動のマクロ記録でやってみました。
Selection.AutoFilter Field:=3, Criteria1:=3 _
Operator:=11, Criteria2:=0 , SubField:=0に修正したらできたのですが意味がわかってません。どういう事なのでしょうか?
画像を添付いたします。
日付フィルターで”明日”を選んでいます。ファイルを開くとき特定の日付ではなくその日の”明日”としたいからです。
これがOperator:=3ということになるのでしょうか?