[[20100123152239]]　『ページ番号を取得する関数』（スイカ）　ページの最後に飛ぶ

『ページ番号を取得する関数』（スイカ）

Excelの改ページで下についたページ番号を取得する関数があるのでしょうか？もしあったら教えて下さい？
エクセルのバージョン:Excel2004
OSのバージョン:WindowsXP

 ご質問の回答ではないかもしれませんが、アクティブセルが印刷したときに何ページ目
 になるかを表示するマクロです。

 Sub GetPageInfo()
    Dim c, r, h, v, pc, cc
    cc = 0
    pc = 0
    With ActiveSheet
        If Intersect(ActiveCell, Range(.PageSetup.PrintArea)) Is Nothing Then
            MsgBox "指定範囲は印刷範囲ではありません｡"
            Exit Sub
        End If
        Debug.Print "--------------------------------------------"
        If .PageSetup.Order = xlOverThenDown Then ' 上から下
            For h = .HPageBreaks.Count To 0 Step -1
                For v = .VPageBreaks.Count To 0 Step -1
                    If v = 0 Then
                        c = 1
                    Else
                        c = Range(.VPageBreaks(v).Location.Address).Column
                    End If

                    If h = 0 Then
                        r = 1
                    Else
                        r = Range(.HPageBreaks(h).Location.Address).Row
                    End If
                    pc = pc + 1
                    If cc = 0 And r <= ActiveCell.Row And c <= ActiveCell.Column Then cc = pc
                Next
            Next
        Else ' xlDownThenOver ： 左から右
            For v = .VPageBreaks.Count To 0 Step -1
                For h = .HPageBreaks.Count To 0 Step -1
                    If v = 0 Then
                        c = 1
                    Else
                        c = Range(.VPageBreaks(v).Location.Address).Column
                    End If

                    If h = 0 Then
                        r = 1
                    Else
                        r = Range(.HPageBreaks(h).Location.Address).Row
                    End If
                    Debug.Print Cells(r, c).AddressLocal
                    pc = pc + 1
                    If cc = 0 And r <= ActiveCell.Row And c <= ActiveCell.Column Then cc = pc
                Next
            Next
        End If
    End With
    cc = pc - cc + 1
    MsgBox cc & "/" & pc
 End Sub
 (Mook)

コメント返信：

[ 一覧(最新更新順) ]

[[20100123152239]] 『ページ番号を取得する関数』（スイカ） ページの最後に飛ぶ

[[20100123152239]]　『ページ番号を取得する関数』（スイカ）　ページの最後に飛ぶ