|
▼awu さん:
Range("A1").AutoFilter Field:=2, Criteria1:=Range("C1").Value
Valueプロパティの省略と関係がありませんでした。98やMEでは、この現象が
出てきません。
・・・多分MEか98で2000で試しましたが、オートフィルターが上手く働かないです。
フィルターをかけたところが全て何も無しの状態になります。
日付の処理は一工夫が必要な感じです。
Range("A3").AutoFilter Field:=2, _
Criteria1:=Format(Range("C1").Value, Range("B4").NumberFormat)
のコードが分かりやすように思います。このコードですと、正しくフィルターが
かかります。
>こちらでは、.Value が無ければ何も抽出されませんが・・・
ME,89ともに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)
>
> のようになりますが・・・
>
>
|
|