| |
日付の検索について教えていただきたいのです
納入日 場所 納入先 受注日 金額
3月10日 神田 神田商店 2/9 \15000
3月20日 神田 神田商店 2/15 \25000
のような表があります
2/9 を検索しようとしていますが 検索されません
2/9を検索文字値としましたが抽出条件表には2月9日となっていました
抽出条件表
納入日 場所 納入先 受注日 金額
2月9日
よろしくおねがいします
Dim 検索文字 As String
検索文字 =Userform.TextBox受注日 ---検索文字値 =2/9
Set Ran = sht3.Range("B" & Mgyou).CurrentRegion
Set Ran = Intersect(Ran, Ran.Offset(, 1))
Ran.AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=sht2.Range("B" & Mgyou & ":" & "M" & Mgyou1), _
CopyToRange:=sht1.Range("B" & WriteGyou), Unique:=False
|
|
AoYasu
- 12/3/1(木) 8:58 -
