Excel VBA質問箱 IV

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

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


70115 / 76734 ←次へ | 前へ→

【11130】Re:フィルタについて
回答  かみちゃん E-MAIL  - 04/2/28(土) 23:32 -

引用なし
パスワード
   こんにちは。かみちゃん です。

>フィルターを実行し、フィルタをかけたいセルをアクティブにしてフォームに項目を入力しフィルターをかけるといったシンプルなものなのですが。
>実際にフィルタをかけたいのは、商品名(半角・全角・英数のものです)
>現在半角・全角それぞれ入力をわけないとフィルタがかからないので修正中です

「複数行の項目だとフィルタがかかりません。」とありましたが、ご提示いただいたコードでは、「RangeクラスのAutoFilterメソッドが失敗しました」というエラーになるのではないでしょうか?

また、「複数(10〜30ぐらい)の品番をテキストデーターからフォームのテキストボックスにコピーペーストして」とありましたが、AutoFilterは、Criteria1とCriteria2の抽出条件は2つまでです。つまり、2つを超える条件がある場合は、AutoFilterは使えないと思います。(手動でもできません。)

したがって、さきほども書きましたが、抽出条件をテキストボックスから転記するシートを用意して、各々のデータがその抽出条件に一致するかどうかをVlookup関数などで判断させ、一致したものだけをオートフィルタで抽出、他のシートへコピーするという方法か、もしくは、1行ずつ抽出条件に一致するかどうかをチェックして、一致したものだけを別のシートへコピーするというように考え方を変えたほうがいいかと思います。
どんなシートになっているかわかりませんので、もしよろしければメールでテストシートを送ってみてください。

2 hits

【11100】フィルタについて などなど 04/2/28(土) 4:32 質問
【11104】Re:フィルタについて かみちゃん 04/2/28(土) 11:01 回答
【11124】Re:フィルタについて などなど 04/2/28(土) 20:49 質問
【11130】Re:フィルタについて かみちゃん 04/2/28(土) 23:32 回答
【11133】Re:フィルタについて などなど 04/2/29(日) 2:18 質問
【11105】Re:フィルタについて Jカーター 04/2/28(土) 11:13 回答
【11125】Re:フィルタについて などなど 04/2/28(土) 20:50 質問
【11164】Re:フィルタについて アイエネス 04/3/1(月) 19:42 回答
【11166】Re:フィルタについて などなど 04/3/1(月) 23:46 お礼

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