過去ログ

                                Page     387
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
   通常モードに戻る  ┃  INDEX  ┃  ≪前へ  │  次へ≫   
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
 ▼オートフィルターにて複数条件での検索  kawata 02/11/25(月) 10:45
   ┗複雑な検索条件の場合、  ichinose 02/11/25(月) 11:43
      ┗Re:複雑な検索条件の場合、  kawata 02/11/25(月) 14:51

 ───────────────────────────────────────
 ■題名 : オートフィルターにて複数条件での検索
 ■名前 : kawata
 ■日付 : 02/11/25(月) 10:45
 -------------------------------------------------------------------------
   いつもお世話になっております、kawataです。よろしくお願いします。
(Windows2000/Excel2000)

ユーザーフォームに10個ほどのテキストボックスを作成し、それぞれ入力
された値で検索をしたいのですが、
1つだけ入力されている場合の検索は処理できるところまで作成できたのですが
2つ、3つ入力されたときの抽出の記述がわかりません。
(入力個数は、ときどきによって変わります)
自動記録で書き出してみても、それをテキストボックスの値に置き換える段階で
つまずいております。

ご指導ください、よろしくお願いします。
 ───────────────────────────────────────  ■題名 : 複雑な検索条件の場合、  ■名前 : ichinose  ■日付 : 02/11/25(月) 11:43  -------------------------------------------------------------------------
   ▼kawata さん:
こんにちは。
>いつもお世話になっております、kawataです。よろしくお願いします。
>(Windows2000/Excel2000)
>
>ユーザーフォームに10個ほどのテキストボックスを作成し、それぞれ入力
>された値で検索をしたいのですが、
>1つだけ入力されている場合の検索は処理できるところまで作成できたのですが
>2つ、3つ入力されたときの抽出の記述がわかりません。
>(入力個数は、ときどきによって変わります)
>自動記録で書き出してみても、それをテキストボックスの値に置き換える段階で
>つまずいております。
>
>ご指導ください、よろしくお願いします。
私もついさっき、デモプロで使ったんですが、
複雑なフィルタの場合、オートフィルタではなく、アドバンスフィルタを使ったらどうでしょうか?

rane("a1:z100").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=range("aa1:ac4"), copytorange:=worksheets("sheet3").Cells(1, 1), Unique:=False

上記は、一例ですが、Helpで「AdvancedFilter」メソッドを調べてみたらどうですか?
 ───────────────────────────────────────  ■題名 : Re:複雑な検索条件の場合、  ■名前 : kawata  ■日付 : 02/11/25(月) 14:51  -------------------------------------------------------------------------
   ichinose さん、こんにちわ、いつもお世話になってます。

>複雑なフィルタの場合、オートフィルタではなく、アドバンスフィルタを使ったらどうでしょうか?
>
> rane("a1:z100").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=range("aa1:ac4"), copytorange:=worksheets("sheet3").Cells(1, 1), Unique:=False
>
>上記は、一例ですが、Helpで「AdvancedFilter」メソッドを調べてみたらどうですか?

ありがとうございます、早速、ヘルプ見ながら、やってみます。
ヘルプの有益性は分かっていても、何を調べたらの指針がないと先へ進まないん
ですよね。だから、こういうアドバイスは非常に助かります。

完成するまで、アレコレやってみます(^^;。
ありがとうございました。また、よろしくお願いします。
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━    通常モードに戻る  ┃  INDEX  ┃  ≪前へ  │  次へ≫    ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━                                 Page 387