| |
▼ロシツキー さん：
>顧客データのシートAとBがあり、別のシートで、検索条件を入力し
>検索ボタンを押して、該当するデータを表示させています。
>検索ボタンはA用とB用二つあり、それを一つに統合したい
>（AとBを同時に検索・抽出させたい）のですが、
>上手くできません。大変恐縮ですがご教示願います。
>
> Sheets("A").Range("A1:M65536").Cells.AdvancedFilter Action:=xlFilterCopy, CriteriaRange:= _
> Range("A3:F5"), CopyToRange:=Range("C10:O10"), Unique:=False
>
>このあたりを変えれば良いと思うのですが・・・。
簡単方法は
１．シートAにシートBの検索ボタンを作成する
２．シートBの検索ボタン対応コードは１．のボタンのイベントにコピーする
３．２のコートにRange("A3:F5")などの位置相関ソース前に「Sheets("B").」追加する
４．３の修正後ソースはシートAのボタンのソースの最後に追加する
５．シートBのソースを削除する、２．３．のソースを削除する
６．コンパイル修正後のシートAソース
|
|
呉
- 08/10/29(水) 16:05 -
