| 
    
     |  | ▼ユーザーフォーム さん: >すなわち
 >
 >Worksheets("DATA").Range("A1:AM500").AutoFilter 5, "=*" & UserForm1.TextBox47.Value & "*"
 >
 >Worksheets("DATA").Range("A1:AM500").AutoFilter 7, "=*" & UserForm1.TextBox47.Value & "*"
 >
 >Worksheets("DATA").Range("A1:AM500").AutoFilter 9, "=*" & UserForm1.TextBox47.Value & "*"
 >
 >Worksheets("DATA").Range("A1:AM500").AutoFilter 11, "=*" & UserForm1.TextBox47.Value & "*"
 >
 >と要った様に単純でよいのでしょうか?
 
 それは、たとえば、TextBox47.Text が 「あいう」だったとすると、
 
 With Worksheets("DATA").Range("A1:AM500")
 .AutoFilter 5, "=*あいう*"
 .AutoFilter 7, "=*あいう*"
 .AutoFilter 9, "=*あいう*"
 .AutoFilter 11, "=*あいう*"
 End With
 
 ということをやっているわけです。
 つまり、5列目に「あいう」が含まれ、かつ、7列目にも、9列目にも、
 同時に、11列目にも 「あいう」が含まれる行 を抽出していることに
 なります。
 それがしたいことなら、それでいいです。
 でも、5列目か、 7列目か 9列目か 11列目かのいずれかに「あいう」が含まれる
 行を抽出するなら、AutoFilter は使えません。
 フィルタオプションの設定(AdvancedFilter)の方を使います。
 Excelのヘルプで フィルタオプションでの 検索条件の書き方を調べてください。
 
 |  |