No.1ベストアンサー
- 回答日時:
確信があるわけではありませんが、特定のファイルだけそのようになるのは、そのファイルが壊れている可能性もありそうです。
全データをコピーして、新しいファイルに移し替えてみてはどうでしょうか。
No.2
- 回答日時:
そのシートにシェイプを追加して名前を確認してみてください。
例えば四角形を追加した場合、『四角形 XXXXX』となり、XXXXXの部分はシートごとのシェイプの作成連番になります。
その連番が65536以上の場合、シェイプ連番が大きくなりすぎた事による不具合の可能性があります。
オートフィルタの▼(ドロップダウン)もシェイプの一種で、『Excel2002以前』では
オートフィルタのOn/Offの繰り返しの度に、ドロップダウンの作成削除を繰り返す事になります。
そのため広範囲のオートフィルタOn/Off繰り返しは、シェイプの連番加算が早くなります。
困った事に、オートフィルタOffの時、ドロップダウンの連番から65536を引いた番号を持つシェイプが
運悪くシート上に存在した場合、ドロップダウンが削除される替わりにそのシェイプが削除されます。
残ったドロップダウンは、オートフィルタ機能が無く、手動で選択削除ができません。
尤も、2002以前のオートフィルタの仕様なので、そのBookを前バージョンで操作した事がなければ該当しないかもしれません。
対処方法として、
新規シートを追加して、旧シート全体をコピーし、新シートに貼り付けすれば、ドロップダウン以外をコピーできます。
他シートから旧シートを参照している関数などがあった場合は、[置換]などで修正する必要があります。
参考までに、状況を再現するマクロを載せておきます。(ちょっと時間がかかります)
Sub test2000() 'xl2000用
Dim i As Long
Dim s As Shape
Application.ScreenUpdating = False
With Sheets.Add
.Buttons.Add 100, 30, 80, 20
.Buttons.Add 100, 60, 80, 20
With .Range("A1").Resize(, 254)
.Value = 1
For i = 1 To 258 'fix((65536-3)/254)
.AutoFilter
.AutoFilter
Next i
End With
.Range("G1:IT1").ClearContents
.Range("A1").AutoFilter
.Buttons.Add 200, 30, 80, 20
i = 1
For Each s In .Shapes
i = i + 1
.Cells(i, 1).Value = s.Name
Next
End With
Application.ScreenUpdating = True
End Sub
マクロを実行するとシートが追加され、いくつかのボタンとオートフィルタが設定されます。
その後、手動でオートフィルタを解除すると再現できます。
一応、2003でも似たような現象を起こせない事もないです。(こちらはもっと時間がかかります)
Sub test2003() 'xl2003用
Dim s As Shape
Dim i As Long
Application.ScreenUpdating = False
With Sheets.Add
.Buttons.Add 100, 30, 80, 20
.Buttons.Add 100, 60, 80, 20
With .Lines.Add(10, 10, 20, 10)
For i = 1 To 65531
.Duplicate.Delete
Next i
.Delete
End With
With .Range("A1:F1")
.Value = 1
.AutoFilter
End With
.Buttons.Add 200, 30, 80, 20
i = 1
For Each s In .Shapes
i = i + 1
.Cells(i, 1).Value = s.Name
Next s
End With
Application.ScreenUpdating = True
End Sub
2003からはオートフィルタのOn/Offはドロップダウンの表示/非表示に変わりましたので
シェイプ連番の加算度合はちょっと遅くなり、今回のような不具合が起きる確率は低いです。
ご回答ありがとうございます。
こんな不具合もあったのですね。勉強になります。
該当ファイルで確認しましたところ、連番の番号は722でした。
今回の場合は、別の要因ということでしょうか?
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
夏が終わったと感じる瞬間って、どんな時?
まだまだ暑い今日この頃。 しかしながら、もう夏は終わっている!……はず。 あなたが思う「夏が終わった!」エピソードを教えてください。
-
家・車以外で、人生で一番奮発した買い物
どんなものにお金をかけるかは人それぞれの価値観ですが、 誰もが一度は清水の舞台から飛び降りる覚悟で、ちょっと贅沢な買い物をしたことがあるはず。
-
ホテルを選ぶとき、これだけは譲れない条件TOP3は?
ホテルを探す時、予約サイトで希望条件の絞り込みができる便利な世の中。 あなたは宿泊先を決めるとき「これだけは譲れない」と思う条件TOP3を教えてください。
-
【大喜利】【投稿~10/21(月)】買ったばかりの自転車を分解してひと言
【お題】 ・買ったばかりの自転車を分解してひと言
-
14歳の自分に衝撃の事実を告げてください
タイムマシンで14歳の自分のところに現れた未来のあなた。 衝撃的な事実を告げて自分に驚かせるとしたら何を告げますか?
-
エクセルでオートフィルタのボタンの位置の変更について
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・14歳の自分に衝撃の事実を告げてください
- ・架空の映画のネタバレレビュー
- ・「お昼の放送」の思い出
- ・昨日見た夢を教えて下さい
- ・ちょっと先の未来クイズ第4問
- ・【大喜利】【投稿~10/21(月)】買ったばかりの自転車を分解してひと言
- ・メモのコツを教えてください!
- ・CDの保有枚数を教えてください
- ・ホテルを選ぶとき、これだけは譲れない条件TOP3は?
- ・家・車以外で、人生で一番奮発した買い物
- ・人生最悪の忘れ物
- ・【コナン30周年】嘘でしょ!?と思った○○周年を教えて【ハルヒ20周年】
- ・ハマっている「お菓子」を教えて!
- ・最近、いつ泣きましたか?
- ・夏が終わったと感じる瞬間って、どんな時?
- ・10秒目をつむったら…
- ・人生のプチ美学を教えてください!!
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・都道府県穴埋めゲーム
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルで時刻(8:00~20:00)...
-
エクセルのオートフィルタで最...
-
エクセルでオートフィルタのボ...
-
Excelのオートフィルタで非表示...
-
オートフィルタで未入力(空白...
-
エクセルにて、フィルタをかけ...
-
ACCESSでスペースの抽出
-
エクセルでオートフィルタの検...
-
excelオートフィルタの検索条件...
-
EXcelオートフィルタのオプシ...
-
オートフィルタで抽出したデー...
-
スプレッドシートのチェックボ...
-
オートフィルタで選択したデー...
-
Excelで西暦の日付から「和暦の...
-
時間の条件でオートフィルタを...
-
エクセル2010のソートには限界...
-
excelオートフィルタの▼が見にくい
-
関数で小数点以下を抽出したい
-
VBA オートフィルタで抽出した...
-
なぜShowAllDataだとうまく行か...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルのオートフィルタで最...
-
エクセルで時刻(8:00~20:00)...
-
エクセルでオートフィルタのボ...
-
Excelのオートフィルタで非表示...
-
エクセルの偶数行(奇数行)の抽出
-
エクセル関数で、数字の入った...
-
エクセルにて、フィルタをかけ...
-
access マクロでのフィルタの...
-
エクセル、オートフィルタで最...
-
Excel共有ブックのオートフィル...
-
なぜShowAllDataだとうまく行か...
-
関数で小数点以下を抽出したい
-
エクセルで検索窓のようなもの...
-
データの抽出を教えてください
-
ACCESSでスペースの抽出
-
エクセルで指定期間内に在職す...
-
オートフィルタで3つ以上の条...
-
Excelのフィルターで抽出した状...
-
可視セルを対象としたcountifが...
-
Excel2003 オートフィルタで「...
おすすめ情報