EXCELでのページ番号の取得

質問

excelにて改ページプレビューで表示されるページ数を
例えば1～29行目までが１ページの場合はA1に1を入れて、30行～60行目が
２ページの場合はA30に2を入れて・・・といった風にはできないものでしょうか？
ご指導のほどよろしくお願いします

回答No.2

meron_ · ベストアンサー

こんにちは。
こういう事でしょうか？
Sub ページ番号()
Dim i As Long
Dim n As Long
Dim pRow 'As Long
Dim Str As String

Application.ScreenUpdating = False

pRow = 0
Str = ActiveSheet.PageSetup.PrintArea

If Str = "" Then Exit Sub
ActiveSheet.PageSetup.PrintArea = Str

'１ページ目
pRow = Range(Left(Str, InStr(Str, ":") - 1)).Row
ActiveSheet.Range("A" & pRow).Value = 1

'２ページ以降
pRow = 0
n = ActiveSheet.HPageBreaks.Count '改ページ数取得
For i = 1 To n
pRow = ActiveSheet.HPageBreaks(i).Location.Row
ActiveSheet.Range("A" & pRow).Value = i + 1
Next

Application.ScreenUpdating = True

End Sub

お礼

ありがとうございます。
できました。

回答No.1

Ce_faci

こんばんわ
１．改ページプレビューを使用すれば見た目にページがわかります。
［表示］-［改ページプレビュー］
２．セルA1に１と入れた後、セルA1からA２９をドラッグしてオートフィルをする。（セルA２からA２９に何か入っている場合は不可）
３．マクロする
SUB　マイ頁（）
FOR　I=１　TO　１００’１００ページ分
ACTIVEWORKSHEET.CELLS(I*29-28，１）.VALUE=I
NEXT
END SUB