|
こんにちは。かみちゃん です。
>フィルターを実行し、フィルタをかけたいセルをアクティブにしてフォームに項目を入力しフィルターをかけるといったシンプルなものなのですが。
>実際にフィルタをかけたいのは、商品名(半角・全角・英数のものです)
>現在半角・全角それぞれ入力をわけないとフィルタがかからないので修正中です
「複数行の項目だとフィルタがかかりません。」とありましたが、ご提示いただいたコードでは、「RangeクラスのAutoFilterメソッドが失敗しました」というエラーになるのではないでしょうか?
また、「複数(10〜30ぐらい)の品番をテキストデーターからフォームのテキストボックスにコピーペーストして」とありましたが、AutoFilterは、Criteria1とCriteria2の抽出条件は2つまでです。つまり、2つを超える条件がある場合は、AutoFilterは使えないと思います。(手動でもできません。)
したがって、さきほども書きましたが、抽出条件をテキストボックスから転記するシートを用意して、各々のデータがその抽出条件に一致するかどうかをVlookup関数などで判断させ、一致したものだけをオートフィルタで抽出、他のシートへコピーするという方法か、もしくは、1行ずつ抽出条件に一致するかどうかをチェックして、一致したものだけを別のシートへコピーするというように考え方を変えたほうがいいかと思います。
どんなシートになっているかわかりませんので、もしよろしければメールでテストシートを送ってみてください。
|
|