Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

5609 / 76732

←次へ　｜　前へ→


	【76732】オートフィルタが急に動かなくなり実行できない

さとちぃ - 15/3/6(金) 9:54 -


	引用なし

	パスワード

すみません、当掲示板でお聞きすることではないかもしれませんが
ネットで検索しても解決方法が見つからず困っております。

皆様のご経験から思い当たる点について、ご指摘いただければ幸いです。

(困っていること)
これまで正常に動いたオートフィルタが、急に動かなくなった。
他のマクロで、オートフィルタを使用している物も同様の現象あり。

(プログラム例 )

拠点に関する一覧表があり、その中から青森県に関する企業を検出するために
オートフィルタを用いて表示させます。

　１　　　　　２　　　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

です。

288 hits

▼

【76732】オートフィルタが急に動かなくなり実行できない さとちぃ 15/3/6(金) 9:54