ExcelVBAのオートフィルター機能で「●●日/●●月/2021」以降の日付に絞るコードを書きたいです

前提・実現したいこと

ExcelVBAのオートフィルター機能で「●●日/●●月/2021」以降の日付に絞るコードを書きたいのですが、
自分が作成したコードでは絞ることができません。どなたか教えていただけないでしょうか？

Sub bo_report_t()
Dim yr, ye As String
Dim n As Integer

※途中のコードは省略しております。

Sheets("〇〇ツール").Select

ye = Cells(1, 28)　→こちらのセルに「20/09/2021」のように日付を記載しております。

Sheets("〇〇レポート").Select

ActiveSheet.Range("$A$1:$BI$2251").AutoFilter Field:=41, Criteria1:=">=" & ye, Operator:=xlAnd

※途中のコードは省略しております。

End Sub

hex309

2021/10/06 23:55

Operator:=xlAndがありますが、他にも抽出条件があるように見えます。すべてのコードを提示できないのは仕方ありませんが、前提条件はきちんと提示いただきたいと思います。

sa_world

2021/10/07 10:05

ご返信ありがとうございます。他の抽出条件も確認してみます。

行動規範の内容に同意します

回答2件

ExcelVBA
1Sub Macro2()
2    Dim dtmFrom As Double, dtmTo As Double
3    
4    With Worksheets("Sheet1")
5        dtmFrom = .Cells(1, 27).Value2
6        dtmTo = .Cells(1, 28).Value2
7    End With
8    
9    Worksheets("Sheet2").Range("A1").CurrentRegion.AutoFilter _
10        Field:=2, _
11        Criteria1:=">=" & dtmFrom, _
12        Operator:=xlAnd, _
13        Criteria2:="<=" & dtmTo
14End Sub

こんな感じ。
エクセルの検索する値は文字列（画面に表示されている文字列）で検索されるので、
書式を合わせるか、Value2プロパティでシリアル値を取得し、
以降と以前を指定して抽出します。
つまり、Range("A1")とかと言っても、
表示されている値かセルの中身の値か、
何を示すのかよくわからないです。
エクセル君は忖度して何かを返してくれますが、
プロパティを指定することを省略しては、
意図しない動作がでるようなコードになるかもしれませんのでご注意を。

気になるとこいろいろあるけど、人のコードをたくさん見て勉強してみてください。
分からないところは、いちいちこまごま聞いて解消してください。

投稿2021/10/07 02:19

mattuwan

総合スコア2163

sa_world

2021/10/07 10:10 編集

ご連絡ありがとうございます。以下のように修正してみましたがデッバクになりました。 Sub bo_report_t() Dim dtmFrom As Double, dtmTo As Double Dim n As Integer Worksheets("〇〇レポート").Activate '// オートフィルタが設定されている場合 If (ActiveSheet.AutoFilterMode = True) Then ActiveSheet.ShowAllData ActiveSheet.Range("A1").AutoFilter Field:=16, Criteria1:="N*" '// オートフィルタが解除されている場合 Else ActiveSheet.Range("A1").AutoFilter Field:=16, Criteria1:="N*" End If With Worksheets("検索ツール") dtmFrom = .Cells(1, 20).Value2 ★ここでデバックになります。 dtmTo = .Cells(1, 28).Value2 End With Sheets("〇〇レポート").Select Worksheets("〇〇レポート").Range("A1").CurrentRegion.AutoFilter _ Field:=2, _ Criteria1:=">=" & dtmFrom, _ Operator:=xlAnd, _ Criteria2:="<=" & dtmTo End Sub