web上のエクセル実践塾で 指定したページだけを、とびとびで印刷したいhttps://excel.ohugi.com/071029.htm
web上のエクセル実践塾で 指定したページだけを、とびとびで印刷したいhttps://excel.ohugi.com/071029.htm を参考にさせていただいていますが、印刷頁をセルに連続で書き込まないとエラーになって停止してしまいます。(途中に空白のセルがある場合) 今、全部で200頁ぐらいあるシート中、印刷頁をその内容によって印刷するかしないかを自動で判断させています。 そうするとどうしても印刷しないページのセルは空白となります。 そこでご教示願いたいのですが、 セルの空白を無視して有効な数字の入っている部分を連続で印刷できるようにするにはどうすればよいでしょうか。 具体的にマクロをどのように書けばよいでしょうか。 よろしくお願いいたします。 画像は実際の印刷したいページです。データの変動によりその都度変わります。
Excel | Visual Basic・72閲覧・100
ベストアンサー
提示されたサイトのマクロをそのまま使っているのかな? For Each r In Selection ⇓ For Each r In Selection.SpecialCells(xlCellTypeConstants, 1) へ変更でどうかな?
早速ご回答ありがとうございます。 やってみましたが「該当するセルが見つかりません」とのエラーが出てしまいます。 頁指定のセルには式が入っています。式をやめ直接数字を入れると動くようです。でもこれでは自動化できません。 他に解決策あればご提示いただければ幸いです。 また印刷頁欄(BF2~FA4まで)を最初からマクロに入れることはできますでしょうか。本シート専用のマクロとしたいです。 併せてよろしくお願いいたします。
質問者からのお礼コメント
詳しく教えていただきありがとうございました。 目的のことが出来るようになりましたので喜んでおります。 次回質問が出ました祭には、またよろしくお願いいたします。
お礼日時:1/21 10:15