Excel VBA質問箱 IV

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

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


20093 / 76732 ←次へ | 前へ→

【62062】Re:フィルターでOR抽出するには
発言  kanabun  - 09/6/19(金) 9:05 -

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

>みたいな。
>すみません、むちゃくちゃな聞き方とわかって質問しております。


'---[BB]----------------------------------
'  =B1     =P1    =R1
'  <>太郎   '=トム
'  <>太郎        '=*トム*
'-----------------------------------------
なら、

Sub Try4()
  With Range("BB1")
    .CurrentRegion.ClearContents
    .Range("A1").Formula = "=B1"
    .Range("B1").Formula = "=P1"
    .Range("C1").Formula = "=R1"
    .Range("A2:A3").Value = "<>太郎"
    .Range("B2").Value = "'=トム"
    .Range("C3").Value = "'=*トム*"
  End With

  Range("A1").CurrentRegion.AdvancedFilter _
   xlFilterInPlace, _
   CriteriaRange:=Range("BB1").CurrentRegion

End Sub


'----------------------------------------------------
'[CC1] (空白)
'[CC2] =AND(B2<>"太郎",OR(P2="トム",COUNTIF(R2,"*トム*")>0))
'---------------------------------------------------
なら

Sub Try5()
  Dim CR As Range
  Set CR = Range("CC1:CC2") '← CriteriaRange
  
  CR.Item(1, 1).ClearContents
  CR.Item(2, 1).Value = _
   "=AND(B2<>""太郎"",OR(P2=""トム"",COUNTIF(R2,""*トム*"")>0))"
  
  Range("A1").CurrentRegion.AdvancedFilter _
   xlFilterInPlace, CriteriaRange:=CR
  
End Sub

110 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 発言

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