Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


20112 / 76732 ←次へ | 前へ→

【62043】Re:フィルターでOR抽出するには
発言  kanabun  - 09/6/18(木) 19:37 -

引用なし
パスワード
   ▼にしもり さん:
こんにちは。

>どうにか下記のロジックを作って使っています。
>
>   Range("A10689").Select
>  ActiveCell.FormulaR1C1 = "名前1"
> 
>  Range("A10690").Select
>  ActiveCell.FormulaR1C1 = "=""トム"""
>  
>  Range("B10689").Select
>  ActiveCell.FormulaR1C1 = "名前2"
>
>  Range("B10691").Select
>  ActiveCell.FormulaR1C1 = "=""トム"""
>
>  Range("A1").Select
>  Range(Selection, Selection.End(xlToRight)).Select
>  Range(Selection, Selection.End(xlDown)).Select
>
>  With Selection
>      .AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
>      Range("A10689:B10691"), Unique:=False
>  End With

条件範囲は A列とかでなくて シートの右のほうの空いている列に書くのが
ふつうです。

また、抽出範囲は [A1]セルの表領域のようなので、Select、Selection を使わず
CurrentRegionプロパティを使って表せます。

>全然フィルターが機能しません。
>条件は2つまでなのですか?

いいえ、いくつでも可能です。だから 「Advanced」フィルタなのです(^^
書き方がちょっと適切ではないのでは?

たとえば、
その「名前1」「名前2」「名前3」の列が仮に D列、J列、L列のことだとしますと
条件 Criteria は こんな風に書けます。

Sub Try2()
  With Range("AA1")
    .CurrentRegion.ClearContents
    .Range("A1").Formula = "=D1"
    .Range("B1").Formula = "=J1"
    .Range("C1").Formula = "=L1"
    .Range("A2,B3,C4").Value = "'=トム"  'ダブルクォートを使わない
  End With
  
  Range("A1").CurrentRegion.AdvancedFilter _
   xlFilterInPlace, _
   CriteriaRange:=Range("AA1").CurrentRegion
   
End Sub

98 hits

【61531】フィルターでOR抽出するには にしもり 09/5/14(木) 17:46 質問
【61532】Re:フィルターでOR抽出するには kanabun 09/5/14(木) 18:23 発言
【61533】Re:フィルターでOR抽出するには にしもり 09/5/14(木) 18:41 質問
【62042】Re:フィルターでOR抽出するには にしもり 09/6/18(木) 18:43 質問
【62043】Re:フィルターでOR抽出するには kanabun 09/6/18(木) 19:37 発言
【62044】Re:フィルターでOR抽出するには kanabun 09/6/18(木) 19:54 発言
【62046】Re:フィルターでOR抽出するには にしもり 09/6/18(木) 20:12 質問
【62047】Re:フィルターでOR抽出するには kanabun 09/6/18(木) 20:56 発言
【62048】Re:フィルターでOR抽出するには にしもり 09/6/18(木) 21:12 質問
【62051】Re:フィルターでOR抽出するには kanabun 09/6/18(木) 21:43 発言
【62053】Re:フィルターでOR抽出するには にしもり 09/6/18(木) 23:05 質問
【62054】Re:フィルターでOR抽出するには kanabun 09/6/18(木) 23:48 発言
【62055】Re:フィルターでOR抽出するには kanabun 09/6/19(金) 0:24 発言
【62056】Re:フィルターでOR抽出するには にしもり 09/6/19(金) 1:06 質問
【62062】Re:フィルターでOR抽出するには kanabun 09/6/19(金) 9:05 発言
【62063】Re:フィルターでOR抽出するには にしもり 09/6/19(金) 9:35 お礼
【62045】Re:フィルターでOR抽出するには kanabun 09/6/18(木) 20:05 発言

20112 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free