Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

4049 / 13646 ﾂﾘｰ

←次へ　｜　前へ→

▼

【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


	【58590】オ－トフィルターについてお願いします。

ユーザーフォーム - 08/10/30(木) 19:45 -


	引用なし

	パスワード

オ－トフィルターについて相談お願いいたします。

まずは構文です。
Worksheets("DATA").Range("A1:AM500").AutoFilter 5, "=*" & UserForm1.TextBox47.Value & "*"
・・Ｅ列上のデータをTextbox47に投入した文字により検索を行っています。
ここで、複数の列、
Ｅ列以外にＧ,Ｉ,Ｋ,Ｍ,Ｏ列の６列のデータを検索するにはどうしたらよいでしょうか？
また、３列までなら簡単に出来ると聞いたのですが、ご指導お願いたします。


	【58599】Re:オ－トフィルターについてお願いしま...

kanabun - 08/10/30(木) 22:21 -


	引用なし

	パスワード

▼ユーザーフォームさん：
>オ－トフィルターについて相談お願いいたします。

>ここで、複数の列、
>Ｅ列以外にＧ,Ｉ,Ｋ,Ｍ,Ｏ列の６列のデータを検索するにはどうしたらよいでしょうか？

それはＥ列かつＧ列,かつＩかつＫかつＭかつＯ列ということでしょうか？
それなら、
フィルタ範囲.AutoFilter Field:=5, Criteria1:="*あ*"
フィルタ範囲.AutoFilter Field:=7, Criteria1:="*え*"
フィルタ範囲.AutoFilter Field:=9, Criteria1:="*aaa*"
　　:　　　　　　:　　　　 :　　　　　　　 :
と、一斉に各列に検索値でフィルタをかければいいです。

そうではなく、
Ｅ列またはＧ列またはＩまたはＫまたはＭまたはＯ列のいずれか
がヒットする行を抽出ということでしょうか？

その場合には、フィルタオプションを使います。
どこか空いている列に検索列の見出しと、検索条件を書き込むわけです。


	【58609】Re:オ－トフィルターについてお願いしま...

ユーザーフォーム - 08/10/31(金) 10:36 -


	引用なし

	パスワード

▼ユーザーフォームさん：
>オ－トフィルターについて相談お願いいたします。
>
>まずは構文です。
> Worksheets("DATA").Range("A1:AM500").AutoFilter 5, "=*" & UserForm1.TextBox47.Value & "*"
>・・Ｅ列上のデータをTextbox47に投入した文字により検索を行っています。
>ここで、複数の列、
>Ｅ列以外にＧ,Ｉ,Ｋ,Ｍ,Ｏ列の６列のデータを検索するにはどうしたらよいでしょうか？
>また、３列までなら簡単に出来ると聞いたのですが、ご指導お願いたしま

ご指導ありがとうございます。
すなわち

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 & "*"

と要った様に単純でよいのでしょうか？
よろしくお願いします。


	【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のヘルプでフィルタオプションでの検索条件の書き方を調べてください。


	【58674】Re:オ－トフィルターについてお願いしま...

お困りです - 08/11/4(火) 15:20 -


	引用なし

	パスワード

▼kanabun さん：
>▼ユーザーフォームさん：
>>すなわち
>>
>>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のヘルプでフィルタオプションでの検索条件の書き方を調べてください。

お礼が遅れてすません。
上記のアドバイスで調べてみます。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

4049 / 13646 ﾂﾘｰ

←次へ　｜　前へ→

ページ：

┃

記事番号：

(SS)C-BOARD v3.8 is Free