HOME > Q&A > Excel （VBA）

Excel （VBA）
Excel VBAに関するフォーラムです。
  • 解決済みのトピックにはコメントできません。
このトピックは解決済みです。
質問

 
(Windows 10 Pro : Microsoft 365)
日付以降のフィルターについて
投稿日時: 22/12/09 14:15:46
投稿者: takatada72

お世話になります。
 
今回、和暦で表示されている項目に対して、2023年04月以降のデータを
表示させたいと思っておりますが、下記のようなコードではだめでした。
 
他の項目(こちらは西暦表示)で、2022/12/1以降とフィルター設定できましたが、
和暦の項目は、フィルター適用されません。記載方法が間違っているのでしょうか
NG: Worksheets("data").Range("A2").AutoFilter 11, ">=2023年04月"
OK: Worksheets("data").Range("A2").AutoFilter 83, ">=2022/12/1"
 
お忙しいとは思いますが宜しくお願い致します。

回答
投稿日時: 22/12/09 14:31:27
投稿者: WinArrow
投稿者のウェブサイトに移動

和暦/西暦ということではなく
検索キーの指定に間違いがあると思います。
 
日付項目ですから、日まで指定してみてください。

投稿日時: 22/12/09 14:41:58
投稿者: takatada72

WinArrowさん
 
ご返信をありがとうございました。
 
日付は、無い場合、どのように指定するのでしょうか
 
2023年04月の項目で、下記のように設定してもだめでした。
 Worksheets("data").Range("A2").AutoFilter 83, ">=2023/04/01"
 
引き続き宜しくお願い致します。
回答
投稿日時: 22/12/09 15:16:22
投稿者: taitani
投稿者のウェブサイトに移動

一応確認ですが、"2023年04月の項目" 列は、文字列ではないでしょうか。
"和暦で表示されている項目"が文字列として和暦を入れているのではないかと。
私では再現できませんでした。
 
----
Worksheets("data").Range("A2").AutoFilter 83, ">=2023/04/01"
----
これでうまく動作しました。
投稿日時: 22/12/09 15:23:03
投稿者: takatada72

taitaniさん
WinArrowさん
 
ありがとうございました。
 
 
大変、言いにくいのですが、私が設定していた列がとなりの列だったことが
判明しました。
 
皆様の貴重な時間をとってしまい申し訳ありませんでした。
 
列を変えたところ、解決しました。
 
ありがとうございました。