Excel VBA質問箱 IV

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

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


1029 / 13644 ツリー ←次へ | 前へ→

【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 -

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

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


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


(プログラム例 )

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

 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

です。

【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 -

引用なし
パスワード
   ▼さとちぃ さん:

>解決できましたので

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

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

のでしょうか?

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