|
▼雨男 さん:
>▼awu さん:
>>Range("A1").AutoFilter Field:=2, Criteria1:=Range("C1").Value
>>
>>Valueプロパティを省略しないようにしましょう。
>>これで、どうですか。
>
>aweさん、ありがとうございます。
>試してみましたが、だめでした・・・
>他にもあれば教えてください。
当方は、Win XP と Excel2003 SP1 を使っていますが、ちゃんと 動作しますよ。
念のため、お使いのOS とExcelのバージョンは、何ですか?。
こちらでは、.Value が無ければ何も抽出されませんが・・・
「だめでした・・・」とは、どうなることなのでしょうか?
あと、 Range("A1").AutoFilter とA1を指定していますので
・ 1行目が、「列見出し」になっていますか?
セルA1から連続したセル範囲にデータがあることが必要です。
つまり、セル A2、B1、B2 が、空きになっているとだめです。
ちなみに、B列だけにフイルタを掛けるのであれば、
Range("B:B").AutoFilter Field:=1, Criteria1:=Range("C1").Value
・ B列のデータおよびC1は、日付形式になっておりますか?
もし、セルC1が、文字列形式で、年月日を入力していた場合は、
Range("A1").AutoFilter Field:=2, Criteria1:=DateValue(Range("C1").Text)
のようになりますが・・・
|
|