Excel VBA質問箱 IV

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

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


23487 / 76732 ←次へ | 前へ→

【58611】Re:オ−トフィルターについてお願いします。
発言  kanabun  - 08/10/31(金) 10:50 -

引用なし
パスワード
   ▼ユーザーフォーム さん:
>すなわち
>
>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のヘルプで フィルタオプションでの 検索条件の書き方を調べてください。
4 hits

【58590】オ−トフィルターについてお願いします。 ユーザーフォーム 08/10/30(木) 19:45 質問
【58599】Re:オ−トフィルターについてお願いします。 kanabun 08/10/30(木) 22:21 発言
【58609】Re:オ−トフィルターについてお願いします。 ユーザーフォーム 08/10/31(金) 10:36 質問
【58611】Re:オ−トフィルターについてお願いします。 kanabun 08/10/31(金) 10:50 発言
【58674】Re:オ−トフィルターについてお願いします。 お困りです 08/11/4(火) 15:20 お礼

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