EXCEL2003でチェックボックスを大量に

EXCEL2003のマクロで、
１シート内に、大量のチェックボックスを
作成したいのですが、途中で止まります。

エラーメッセージは、
”オートメーションエラーです。要素が見つかりません”
です。

マクロの内容は、データベースを読み
1レコードずつ、シートの１行に転記した後
横に、チェックボックスを、7個作ります。

500レコードぐらいあるのですが
170レコード目の6個目を作成するところで
先ほどの　エラーになります。

一度、その現象になると
Worksheet(対象シート名).～～
の、プロパティみたり、メソッド実行したりしようとすると
”オートメーションエラーです。要素が見つかりません”
になります。
シート名を認識できなくなっているのでしょうか。

チェックボックスを、2,000行分（14,000個）作りたいのですが
無理でしょうか？

ちなみに、Excel2010　ですが
http://support.microsoft.com/kb/980528/ja
で、レジストリを変更することを
書かれていましたが
やってみてもダメでした。

オブジェクト数に限界があるのでしょうか？
どんな小さなヒントでもかまいません。

なにとぞよろしくお願いします。

No.2 ベストアンサー 回答者： DreamyCat 回答日時： 2011/12/06 14:14

どこの板だったか忘れましたが

先日も１０００個にチェックというのがありました。
どのような事情かわかりませんが
１０００～１００００個もチェックボックスがあったら腹がたちますね。

当方のＰＣ（古いＶｉｓｔａ、２ＭＢ、Ｅｘｃｅｌ２０１０）では１２００個くらいでエラーになりました。フォームのだと１０００個は何秒かでできるのですが数が増えるにつれてものすごく時間がかかるようになり、やがて５０００個あたりで、進行しているのかどうかわからなくなり、操作もできなくなりました。

下記のようにセルを使えば何の負荷もかからずに瞬時に処理できますがどうでしょう。

Private Sub CommandButton1_Click()
CommandBars("cell").Enabled = Not CommandBars("cell").Enabled
End Sub

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Target.Value = Not Target.Value
End Sub

この回答へのお礼

回答ありがとうございます。
調査不足で想定外のデータ量となり
このような事態になってしまいました。

早速　ご提案の方法をちょっと試しましたが
非常に軽いですね。
ソースを変更してみようと思います。

ありがとうございました。

お礼日時：2011/12/07 09:26

No.1 回答者： imogasi 回答日時： 2011/12/06 13:29

http://okwave.jp/qa/q7174276.html
で２０００個でやってみたら時間は多少かかるがエラーは出なかった。
チェックボックスを１シートに何千個も使って、（多分他人にエクセルを使わせる工夫なんだろうが）、初心者のプロット・設計・
が（思いつきで）適当でないと思うよ。
自分のしたい路線を前提に固執して（初心者に多い）、全体的に何をしたいのかも明確にせず、答えてくれということだが、反省して、やりたいことをするための方法で、良いものはどういうのか、やりたいことを（コントロールレベルに拘らず）記述して、別質問して経験者の批判や知恵を借りたら。
また、エクセルは開発用のアプリとして適してない。
１行に７個作って何をするのか？

この回答へのお礼

耳が痛いご指摘、ありがとうございます。
イメージ通り完成したと思ったら、
予想以上にデータが多く、
このような事態になり、簡単に解決できないものかと
ここにすがったしだいです。

反省いたします。ありがとうございました。

お礼日時：2011/12/07 09:14