|
すみません、当掲示板でお聞きすることではないかもしれませんが
ネットで検索しても解決方法が見つからず困っております。
皆様のご経験から思い当たる点について、ご指摘いただければ幸いです。
(困っていること)
これまで正常に動いたオートフィルタが、急に動かなくなった。
他のマクロで、オートフィルタを使用している物も同様の現象あり。
(プログラム例 )
拠点に関する一覧表があり、その中から青森県に関する企業を検出するために
オートフィルタを用いて表示させます。
1 2 3 4 5 6 7
A 担当者名 リンク 事業所名 職制 郵便番号 備考 住所(県)
B 赤城 リンク 八甲田 課長 111-3331 青森県
C 加賀 加賀美 部長 211-3254 石川県
拠点検索()
Workbooks.Open "C\エリア一覧.xls" ⇒アドレスはテキトウです。
Worksheets("拠点情報").Select
ActiveSheet.Unprotect
ActiveSheet.Range("A7").AutoFilter Field:=7, Criteria1:="*青森*"
ActiveSheet.Range("A7").AutoFilter Field:=2, Criteria1:="*リンク*"
エラー項目は、
ActiveSheet.Range("A7").AutoFilter Field:=7, Criteria1:="*青森*"
RangeクラスのAutofilterメソッドが失敗しました。 エラー1004
です。
|
|