Excel (VBA)

Excel VBAに関するフォーラムです。
  • 解決済みのトピックにはコメントできません。
このトピックは解決済みです。
質問

 
(Windows 10 Home : Excel 2013)
VBAでのフィルタオプションを使用したフィルタについて
投稿日時: 20/07/20 21:35:33
投稿者: OkabeS

VBAでのフィルタオプションを使用したフィルタについて
検索元にフィルタをかけた状態で、実行することは出来ますか?
以下で作成しましたが、エラーが出てしまいます。
 
■目的
シート1のB列は、シート2の(フィルタをかけたB列)にて検索条件範囲としたい。
("100"、"300"だけをフィルタしたい)
■コード
Worksheets("Sheet1").Range("A1:B4").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
Sheets("Sheet2").Range("B1:B5").Rows.SpecialCells(xlCellTypeVisible), Unique:=False
 
■Sheet1
  A    B
1 果物   値段   
2 りんご  100
3 ばなな  200
4 なし   300
 
■Sheet2
  A      B
1 生産     値段(100、300でフィルタ済)
----------------------
3 日本     100
----------------------
5 フランス   300
※2、4は条件に合わない記載のためフィルタで除外したい
 
■エラーメッセージ
実行時エラー1004
検索条件範囲が正しくありません。

回答
投稿日時: 20/07/20 22:03:51
投稿者: simple

そういうことはできませんので、
検索条件範囲は、普通に連続したセル範囲にしてください。

投稿日時: 20/07/20 22:21:07
投稿者: OkabeS

simple様
早速のご回答ありがとうございます。
そういうことは出来ないのですね。