Excel VBA質問箱 IV

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

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


275 / 13645 ツリー ←次へ | 前へ→

【81225】複数項目 オートフィルターについて みも 20/3/12(木) 12:44 質問[未読]
【81226】Re:複数項目 オートフィルターについて γ 20/3/12(木) 13:18 発言[未読]
【81227】Re:複数項目 オートフィルターについて みも 20/3/12(木) 13:27 発言[未読]
【81228】Re:複数項目 オートフィルターについて γ 20/3/12(木) 14:08 発言[未読]
【81229】Re:複数項目 オートフィルターについて γ 20/3/12(木) 15:06 発言[未読]
【81230】Re:複数項目 オートフィルターについて みも 20/3/12(木) 16:58 お礼[未読]

【81225】複数項目 オートフィルターについて
質問  みも  - 20/3/12(木) 12:44 -

引用なし
パスワード
   オートフィルターのVBAで教えていただきたく質問させて頂きます。

複数の項目でフィルターをかけたく、
コード内で指定した場合はフィルタされるのですが
エクセルに同じ内容を記載して実行した場合フィルターできません。

MAT=シート名

KAKUNIN=シート名

MAT.Rows(8).AutoFilter Field:=3, Criteria1:=Array("321618001", "321618005"), Operator:=xlFilterValues
→結果問題なし


KAKUNIN.Cells(4, 5)に記載の内容=>"321618001", "321618005"

MAT.Rows(8).AutoFilter Field:=3, Criteria1:=Array(KAKUNIN.Cells(4, 5)), Operator:=xlFilterValues
→何も選択されず

特にエラーはでません。
色々と試行錯誤して実験してみたのですが
どうしても解決できず、ご教授頂きたくおねがいいたします。

【81226】Re:複数項目 オートフィルターについて
発言  γ  - 20/3/12(木) 13:18 -

引用なし
パスワード
   >MAT=シート名
>MAT.Rows(8).AutoFilter Field:=3, Criteria1:=Array("321618001", "321618005"), Operator:=xlFilterValues

MATをワークシート変数とするなら、
Set MAT = シート名
としないといけない。

文字列として使うなら、
Worksheets(MAT)という使い方になります。

このあたりを検討されたらいかがですか?
それ以外のところは見ていません。

【81227】Re:複数項目 オートフィルターについて
発言  みも  - 20/3/12(木) 13:27 -

引用なし
パスワード
   説明不足で失礼いたしました。
シートのセットはしており、autofilterのコードのみ抜粋しております。

説明がないと分かりにくいかと思ったので
MATはシート名ですという説明のつもりでいれさせていただきました。

紛らわしく申し訳ありませんでした。
よろしくお願い申し上げます。

【81228】Re:複数項目 オートフィルターについて
発言  γ  - 20/3/12(木) 14:08 -

引用なし
パスワード
   Array(KAKUNIN.Cells(4, 5))は、無効です。
Array("100,200")などと書いているのと同じですから。

(1)Arrayの要素にセルを指定するか,
または、
(2)複数のセルに入れて置いて
a = Application.Index(Cells(4, 5).Resize(1,2).Value, 1, 0)
などとして、Criteria1:=a とするかです。

【81229】Re:複数項目 オートフィルターについて
発言  γ  - 20/3/12(木) 15:06 -

引用なし
パスワード
   ああそうかSplit関数を使う場面だったかな。
試して見てください。

【81230】Re:複数項目 オートフィルターについて
お礼  みも  - 20/3/12(木) 16:58 -

引用なし
パスワード
   ▼γ さん:
>ああそうかSplit関数を使う場面だったかな。
>試して見てください。


Splitでうまく作動しました!
教えて頂き、誠にありがとうございました。

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