Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

9157 / 76732

←次へ　｜　前へ→


	【73141】Re:AdvancedFilteで日付を検索

masui - 12/11/20(火) 9:40 -


	引用なし

	パスワード

▼kanabun さん：
以下でうまく実行できました
一つ教えていただきたい点がでました

１）Worksheets("検索条件").Range("E1")に"作成日"
　　の項目名を入れておきたいのですが
　　下記では消えてしまいます
２）Worksheets("検索条件").Range("E2")及び("E3")にはFALSE
　　が表示されます
　　 With Worksheets("検索条件").Range("E1")
　　　　　 .ClearContents
　　　　　 .Offset(1).Formula = "=Year(一覧!A4)=" & 作成日　　　　
　　　　　 .Offset(2).Formula = "=Left(一覧!A4,4)=" & 作成日
　　　End With

１）を解消しようと.Offset(0).Formula = "作成日"を
　　加えました
２)これで実行しましたが今度はヒットしませんでした
　　　　　With Worksheets("検索条件").Range("E1")
　　　　　 .ClearContents
　　　　　 .Offset(0).Formula = "作成日"
　　　　　 .Offset(1).Formula = "=Year(一覧!A4)=" & 作成日　　　　
　　　　　 .Offset(2).Formula = "=Left(一覧!A4,4)=" & 作成日
　　　End With
Range("E1")に文字を入れてはダメなでしょうかよろしくお願いします

1 hits

▼

【73128】AdvancedFilteで日付を検索 masui 12/11/19(月) 13:07