|
あれっ! 何か変ですね。 Komaさんと質問者の雨男さんは、同じ方ですか?
>>「だめでした・・・」とは、どうなることなのでしょうか?
> オートフィルターがかからず、全てフィルラターの中に隠れて、一切文字が
> 隠れた状態になっていると思います。
ちょっと表現が、変ですね。
フィルターが、掛かっている状態では?
> Range("A3").AutoFilter Field:=2, _
> Criteria1:=Format(Range("C1").Value, Range("B4").NumberFormat)
> のコードが分かりやすように思います。このコードですと、正しくフィルターが
> かかります。
何でA3なの? まぁ、いいけど・・・
それにFormat関数は、内部処理形式 String の Variantになりますので、B列が日付形式
になっていないのでは??
他のセルの NumberFormat を使うということは、形式があっていないのでは??
肝心のB列データが、日付形式になっているかについて応えていませんが・・・
新しいブックの任意のシートでシート名タブを右クリックして、「コードの表示」で
開いたコードウィンドに次のコードを貼り付けて実行してみてください。
今日の日付だけ抽出されませんか?
Sub test()
Dim Rw As Long
ActiveSheet.AutoFilterMode = False
Cells.Delete
Range("A1:B1").Value = Array("商品名", "日付")
For Rw = 2 To 12
Cells(Rw, 1).Value = Chr(63 + Rw)
Cells(Rw, 2).Value = Date - 5 + Rw
Next Rw
Range("C1").Value = Date
Range("A1").AutoFilter Field:=2, Criteria1:=Range("C1").Value
'Range("A1").AutoFilter Field:=2, Criteria1:=Date ' こちらでもいいけど
End Sub
|
|