Excel VBA質問箱 IV

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

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


8144 / 76732 ←次へ | 前へ→

【74165】Re:AdvancedFilterでOR条件の入力方法について
質問  masami  - 13/4/23(火) 10:22 -

引用なし
パスワード
   ▼kanabun さん
有難うございました
以下の方法で試算しました
Sub 検索Test()
  ThisWorkbook.Activate
  With Worksheets("条件").Range("D2").CurrentRegion
     .ClearContents
     .Offset(0).Value = "住所"
     .Offset(0, 1).Value = "日時"
     .Offset(1).Formula = "=OR(COUNTIF(ADDRESS!F3,""*南*"")>0," _
                & "COUNTIF(ADDRESS!F3,""*湖*"")>0)"
     .Offset(1, 1).Formula = "=OR(YEAR(ADDRESS!H3)=2012," _
                & "LEFT(ADDRESS!H3,4)=""2012"")"
  End With
  Sheets("ADDRESS").Range("D2").CurrentRegion.AdvancedFilter _
  Action:=xlFilterCopy, _
  CriteriaRange:=Worksheets("条件").Range("D3").CurrentRegion, _
  CopytoRange:=Sheets("検索結果").Range("D2"), _
  Unique:=True
End Sub

 Sheet[ADDRESS]
1行  D  E   F       G     H
2行  1 氏名  住所     TEL    期日
3行  2 abc  東京都文京区 123-4567  2010/11/2
4行  3 efg  大阪市浪速区 234-5678  2011/2/12
5行  4 hij  南京市太平区 345-6789  2012/10/23
6行  5 xyz  北京市東西区 456-7890  2011/12/23
7行  6 abb  伊東市西町  567-8901  2013/1/5
8行  7 cdd  湖東市柱町  678-9010  2012/9/20
9行  8 nnn  西大路市北町 789-0123  2010/11/15
10行  9 kkk  東京都三宅島 890-1234  2010/9/23

 Sheet[条件]
   D    E
2  住所      日時
3  FALSE      #VALUE!

 Sheet[検索結果]
D  E    F       G      H
4 hij  南京市太平区  345-6789    2012/10/23
7 cdd  湖東市柱町   678-9010    2012/9/20

いろいろ試した結果それなりの結果はでました
Sheet[条件]で住所    がFALSE
       日時が#VALUE!
ですが 結果は正しく検索されています
Trueのみが検索されると理解していました
この点が気になりまして質問させていただきました
度々で申し訳ありません


>▼masami さん:
>
>"*南*" のような すでに "・" があるばあいは それをダブルにした
>""・"" とするのが正解です。
>
>あと
>>>   With Worksheets("条件").Range("F3")
>>>      .ClearContents
>>>      .Offset(0).Formula = "住所"
>>>      .Offset(1).ClearContents
>>>      .Offset(1).Formula = "=OR(COUNTIF(ADDRESS!F4," & "*南*)>0," _
>>>                 & "COUNTIF(ADDRESS!F4," & "*湖*)>0)"
>>>   End With
>はそこのところを直しただけではうまくないと思います。
>
>  With Worksheets("条件").Range("F3").CurrentRegion
>     .ClearContents
>     .Range("A1").Value = "条件1"
>     .Range("B1").Value = "条件2"
>     .Range("A2").Formula = "=OR(COUNTIF(ADDRESS!F4,""*南*"")>0," _
>                & "COUNTIF(ADDRESS!F4,""*湖*"")>0)"
>     .Range("B2").Formula = "=OR(YEAR(ADDRESS!H4)=2012," _
>                & "LEFT(ADDRESS!H4,4)=""2012"")"
>  End With
>
>こんなふうに書かないと。
>(もちろん、F2 F3 は空白だと仮定しています)

0 hits

【74117】AdvancedFilterでOR条件の入力方法について masami 13/4/19(金) 9:22 質問
【74122】Re:AdvancedFilterでOR条件の入力方法につ... kanabun 13/4/19(金) 14:32 発言
【74126】Re:AdvancedFilterでOR条件の入力方法につ... masami 13/4/19(金) 22:11 質問
【74127】Re:AdvancedFilterでOR条件の入力方法につ... kanabun 13/4/19(金) 22:25 発言
【74128】Re:AdvancedFilterでOR条件の入力方法につ... masami 13/4/19(金) 22:39 質問
【74129】Re:AdvancedFilterでOR条件の入力方法につ... kanabun 13/4/19(金) 23:23 発言
【74130】Re:AdvancedFilterでOR条件の入力方法につ... masami 13/4/20(土) 8:51 質問
【74131】Re:AdvancedFilterでOR条件の入力方法につ... kanabun 13/4/20(土) 9:47 発言
【74134】Re:AdvancedFilterでOR条件の入力方法につ... kanabun 13/4/20(土) 10:45 発言
【74144】Re:AdvancedFilterでOR条件の入力方法につ... masami 13/4/21(日) 12:47 質問
【74145】Re:AdvancedFilterでOR条件の入力方法につ... kanabun 13/4/21(日) 15:16 発言
【74148】Re:AdvancedFilterでOR条件の入力方法につ... masami 13/4/21(日) 22:16 お礼
【74149】Re:AdvancedFilterでOR条件の入力方法につ... kanabun 13/4/21(日) 22:16 発言
【74150】Re:AdvancedFilterでOR条件の入力方法につ... kanabun 13/4/22(月) 8:20 発言
【74152】Re:AdvancedFilterでOR条件の入力方法につ... masami 13/4/22(月) 11:18 質問
【74153】Re:AdvancedFilterでOR条件の入力方法につ... kanabun 13/4/22(月) 12:26 発言
【74154】Re:AdvancedFilterでOR条件の入力方法につ... masami 13/4/22(月) 13:02 質問
【74155】Re:AdvancedFilterでOR条件の入力方法につ... kanabun 13/4/22(月) 14:38 発言
【74156】Re:AdvancedFilterでOR条件の入力方法につ... masami 13/4/22(月) 16:09 質問
【74157】Re:AdvancedFilterでOR条件の入力方法につ... kanabun 13/4/22(月) 17:16 発言
【74160】Re:AdvancedFilterでOR条件の入力方法につ... kanabun 13/4/22(月) 17:39 発言
【74161】Re:AdvancedFilterでOR条件の入力方法につ... kanabun 13/4/22(月) 17:41 発言
【74165】Re:AdvancedFilterでOR条件の入力方法につ... masami 13/4/23(火) 10:22 質問
【74166】Re:AdvancedFilterでOR条件の入力方法につ... kanabun 13/4/23(火) 10:39 発言
【74167】Re:AdvancedFilterでOR条件の入力方法につ... masami 13/4/23(火) 11:54 お礼
【74158】Re:AdvancedFilterでOR条件の入力方法につ... UO3 13/4/22(月) 17:19 発言
【74159】Re:AdvancedFilterでOR条件の入力方法につ... UO3 13/4/22(月) 17:22 発言
【74132】Re:AdvancedFilterでOR条件の入力方法につ... UO3 13/4/20(土) 10:04 発言
【74133】Re:AdvancedFilterでOR条件の入力方法につ... masami 13/4/20(土) 10:44 お礼
【74125】Re:AdvancedFilterでOR条件の入力方法につ... kanabun 13/4/19(金) 22:03 発言

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