[[20171017202819]]　『マクロ　全シート特定場所に特定数値以上の数値の』（りょう）　ページの最後に飛ぶ

『マクロ　全シート特定場所に特定数値以上の数値の場合シート印刷』（りょう）

表題の通りシート毎で特定箇所に数値（数式は別）０以上を印刷
というマクロを組みたく頑張ってますが下記マクロでエラーを起こしてしまいます。
原因がわからず困っていますのでご教授いただければと思います。

 Sub 印刷()
    Dim i As Long
    For i = 2 To 100
        With Worksheets(i)
            If IsNumeric(.Range("I2")) And .Range("I2") > 0 And .Name <> "貼付け" Then .PrintOut
        End With
    Next
 End Sub

With Worksheets(i)の部分が黄色くなってデバック表示されます。

＜使用 Excel：Excel2007、使用 OS：Windows8 ＞

シートが100個も本当にあるのですか。

（マナ） 2017/10/17(火) 20:37

シートが100枚あるのですが実際使用するのは20ぐらいでたまに
そのほかのシートも使用するのでとりあえず100で設定しています。
（りょう） 2017/10/17(火) 20:39

９９枚でもエラーになりますよ。間違いないですか。
エラーがでたら、デバッグをクリックし
変数iのところにマウスをあててみてください。

（マナ） 2017/10/17(火) 20:46

全シートなら100としないで、
worksheets.count
とするとよいです。
そうすると、シート数が変わってもそのまま使えます。

（マナ） 2017/10/17(火) 20:50

ありがとうございました！
勉強になります。
（りょう） 2017/10/17(火) 21:52

コメント返信：

[ 一覧(最新更新順) ]

[[20171017202819]] 『マクロ 全シート特定場所に特定数値以上の数値の』（りょう） ページの最後に飛ぶ

[[20171017202819]]　『マクロ　全シート特定場所に特定数値以上の数値の』（りょう）　ページの最後に飛ぶ