すべてのカテゴリ » インターネット・パソコン » 技術・プログラミング

質問

終了

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
ソーシャルブックマークに登録する:

とくネタ総合ランキング

すべてを見る

トクネタを投稿する

Sooda!からのお知らせ

一覧を見る