Ｐａｇｅ 372 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼続・オートフィルタのオン/オフを繰り返すとオブジェクトが消える・・・。 Taka-mk2 02/11/21(木) 15:48 ─────────────────────────────────────── ■題名 ： 続・オートフィルタのオン/オフを繰り返すとオブジェクトが消える・・・。 ■名前 ： Taka-mk2 ■日付 ： 02/11/21(木) 15:48 -------------------------------------------------------------------------
| こんにちはぁ。 すっかり寒くなった東京から。 以前にもこの話をこちらに書かせていただきました。 あの後、いろいろ試してみたところ、オートフィルタのオン/オフを一定数繰り返すと、シート上に張りつけたオブジェクトが消える現象が必ず起きるようになりました。 新しいブックに、コマンドボタンなどのいくつかのオブジェクトを貼り付けて、 6行目に適当な文字を100列目まで書き込みます。 で、以下のコードを実行すると・・・。 大体、650回前後でオブジェクトが消えてしまうのですね。 これは、私のエクセルだけの現象なのでしょうか？ ちなみにエクセルは2000のSR-1です。 OSはWindows2000のSR-2です。 現状、困ってはいませんが不思議なもので発言させていただきました。 仕様、なのでしょうかね・・・？ もしよろしければ、同じようになるのかならないのか、お教えいただきたいと思います。 以上、よろしくお願いします。 Public Sub AutoFilterTest() Dim whtSheet As Excel.Worksheet Dim lngLoop As Long On Error GoTo AutoFilterTest_ERR: Set whtSheet = ThisWorkbook.Worksheets(1) With whtSheet ' Application.ScreenUpdating = False For lngLoop = 1 To 100 'AutoFilterの解除 If .AutoFilterMode Then .AutoFilterMode = False End If .Range(.Cells(6, 1), .Cells(6, 100)).AutoFilter .Cells(10, 1).Value = .Cells(10, 1).Value + 1 Next ' Application.ScreenUpdating = True End With Set whtSheet = Nothing Exit Sub AutoFilterTest_ERR: MsgBox Err.Description End Sub |