質問

終了

excelについての質問です

Sub TEST()
With ActiveSheet
Dim page As Long
page = Range("AN1").Value

With ActiveCell.Worksheet
For Each hpg In .HPageBreaks
MsgBox page & "ページ目の最下セルは" & hpg.Location.Row - 1 & "です。"
page = page + 1
Next
lastpg = Range(.PageSetup.PrintArea).Cells(Range(.PageSetup.PrintArea).Count).Row
MsgBox "最終ページの最下行は" & lastpg & "行目です。"
End With
End With
End Sub
上のマクロに行ではなく改ページの最終セル(左端)を取得しそのセルに開始ページ番号を入力したセルを代入し最終回ページまで+1ずつするマクロに変更したいのですが上手くいきません。
回答お願いいたします。

質問者：srtyy
質問日時：2017-05-19 19:06:13
0

この機能は、特定のユーザーとの接触を避け、トラブルを防止するためにご用意しております。ブロックされたユーザーは、今後あなたの質問に回答ができなくなり、またそのユーザーの質問に対して、あなたも回答を投稿できなくなるという、重大な機能です。一度設定すると簡単に解除することができませんので、以下の点にご注意ください。

あなたがブロック設定していることは相手にも伝わる可能性があります。
ブロック設定ができるユーザーは20人までです。

本当にこのユーザをブロックしますか？

通報完了しました。ご協力ありがとうございました。

ご連絡いただきました内容は、当サイトの禁止事項に基づいて、事務局にて確認後、適切な対応をとらせていただきます。場合によっては、検討・対応に多少お時間を頂戴する場合もございます。

なお、誠に恐れ入りますが、今回のご連絡に関する対応のご報告は、結果をもって代えさせていただきます。対応の有無や判断基準に関しましては悪用を避けるため、事務局宛にお問合せいただきましても、ご回答およびメールのご返信はいたしかねますので、予めご了承くださいませ。

ベスト回答を選ぶと回答受付が終了します。
引き続き募集したい場合はベスト回答は確定しないでください。
この回答をベスト回答に確定しますか？

質問

関連する質問・相談

Sooda!からのお知らせ