Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
1050 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【76732】オートフィルタが急に動かなくなり実行できない さとちぃ 15/3/6(金) 9:54 質問[未読]
【76733】Re:オートフィルタが急に動かなくなり実行... さとちぃ 15/3/6(金) 10:13 質問[未読]
【76734】Re:オートフィルタが急に動かなくなり実行... さとちぃ 15/3/6(金) 11:06 発言[未読]
【76736】Re:オートフィルタが急に動かなくなり実行... kanabun 15/3/6(金) 13:52 発言[未読]
【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

です。
【76733】Re:オートフィルタが急に動かなくなり実...
質問  さとちぃ  - 15/3/6(金) 10:13 -
引用なし
パスワード
   先ほどの追記です。

当方の環境についてご説明いたします。

Excel 2003と2010を同時にインストールされている環境

C:\Program Files\Microsoft Office

この直下にOFFICE12、OFFICE14がインストールされている状態。

別のバージョンが同時にインストールされる状況は好ましくないということはすでに
確認済みですが、これまで正常に動いていたため、あえて無視してました。

なお、再インストールしてみましたが、状況は改善されてません。
【76734】Re:オートフィルタが急に動かなくなり実...
発言  さとちぃ  - 15/3/6(金) 11:06 -
引用なし
パスワード
   すみません、ご質問しておいてなんですが、解決できましたので
ご報告いたします。

（解決方法）
検索する一覧表のあるシートにて保存した状態で、ファイルを閉じる

ただ、上記の方法ですと、なんのためにワークシートを指示しているのか
という疑問が湧いてきました。

私のコードで、改善する点がありましたら、ご指摘いただけませんでしょうか？
【76736】Re:オートフィルタが急に動かなくなり実...
発言  kanabun  - 15/3/6(金) 13:52 -
引用なし
パスワード
   ▼さとちぃ さん：

>解決できましたので

よく分からないのですが、結局 何が原因で

> オートフィルタが、急に動かなくなった。

のでしょうか？
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
1050 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free