【VBA】 行非表示で、１度エラー 【Excel】

質問

いつもお世話になっております。
Excel2003を使用しています。

シート　TESTに、
グラフ２０個以上（２行目から）
ボタン２つがあります。（１行目、A1とH1）

ActiveSheet.Rows("2:20").Hidden = True

上記を実行すると、
”型が一致しません”
というエラーが出ます。

エラーが出て「F8」を押すと、進む事が多いです。
「F5」を押した場合でも、進む事が多いです。（たぶん関係ないですが）

ブレークポイントなどを設定しているわけでもないのに、
毎回上記プログラムの部分で
「型が一致しません」
というエラーで一旦止まってしまいます。

何か改善方法はありますでしょうか？
プログラムの改善点も教えて頂けるとうれしいです。

回答No.2

keithin · ベストアンサー

状況としては、グラフを選択した状態でそのマクロの一文を実行すると、ご相談のエラーが発生します。

ただしご質問に書かれている状況説明から推測して、「ボタン」に「その１行のマクロだけ」を登録して実行していれば、エラーは回避できます。
ご説明で割愛されている、その一行のマクロの他で（前で）行っている何かのマクロの命令が、問題の直接の原因になっている可能性があります。

とりあえず簡易な回避策としては
activesheet.select
activesheet.rows(2:20").hidden = true
のようにして、明示的にワークシートを選択した状態で問題の一行が実行されるようにしてみます。

お礼

回答ありがとうございます！
グラフを選択した状態だとそのエラーが出るのですか…

原因が分からなかったのでとても助かります！

色々と説明不足な点が多々あり、申し訳ないです。
フォーム上で、データの操作を行っており、
フォームの内容の通りにグラフを作成しております。
そして、フォームのマクロの最後に
ActiveSheet.Rows("2:20").Hidden = True
と記入していたのですが、
そこで上記エラーがでておりました。

読み返してみたら情報不足すぎて、
本当に申し訳ないです。

試してみたところ、出来ました！
in01280128様に教えて頂いた
プログラムではなぜ出来ないのか・・・
やっていることは同じだと思うのですが、
やはり、selectは重要なのでしょうかね？

keithin様、回答ありがとうございました！

回答No.1

in01280128

あまり関係ないかも知れませんが：

ActiveSheet で返されるオブジェクトがワークシートだとは限りませんので、
Worksheets("Test").Rows("2:20").Hidden = True
と書いておく方が無難であるような気がします。

お礼

in01280128様、回答ありがとうございました!
keithin様に教えて頂いたプログラムだと問題なく
動作し始めました。

プログラム内容？的にはほぼ同じだと思うのですが…
やはり、勉強不足なのでしょうね（笑

では、ありがとうございました！

補足

回答ありがとうございます！
グラフを選択した状態だとそのエラーが出るのですか…

原因が分からなかったのでとても助かります！

色々と説明不足な点が多々あり、申し訳ないです。
フォーム上で、データの操作を行っており、
フォームの内容の通りにグラフを作成しております。
そして、フォームのマクロの最後に
ActiveSheet.Rows("2:20").Hidden = True
と記入していたのですが、
そこで上記エラーがでておりました。

読み返してみたら情報不足すぎて、
本当に申し訳ないです。

試してみましたが、
まだ上記エラーが出ます。

難しいですね・・・