Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


8183 / 13644 ツリー ←次へ | 前へ→

【34732】ページ番号について [名前なし] 06/2/10(金) 17:40 質問[未読]
【34737】Re:ページ番号について inoue 06/2/10(金) 20:50 発言[未読]
【34745】Re:ページ番号について Kein 06/2/10(金) 21:33 発言[未読]
【34755】Re:ページ番号について Koharu 06/2/11(土) 11:14 発言[未読]

【34732】ページ番号について
質問  [名前なし]  - 06/2/10(金) 17:40 -

引用なし
パスワード
   こんにちは。
質問ですが、あるシート内でページ番号を取得するような関数ってあるんでしょうか???
教えてください。

【34737】Re:ページ番号について
発言  inoue E-MAILWEB  - 06/2/10(金) 20:50 -

引用なし
パスワード
   こんにちは。

>あるシート内でページ番号を取得するような関数ってあるんでしょうか???
「シート内でページ番号」って何を指しているのでしょうか。
1シートでもデータの配置やページ設定によって
複数のページが発生するから「どこの」ページ番号?となるし、
そのシートだけを印刷するとは限らないので
印刷時のページ番号を事前に掴むことはでないと思いますが。

【34745】Re:ページ番号について
発言  Kein  - 06/2/10(金) 21:33 -

引用なし
パスワード
   もしかして「総ページ数」を取得したいのかな ? それならそのシートを開いたままで

Dim AllP As Integer

AllP = Application.ExecuteExcel4Macro("GET.DOCUMENT(50)")
MsgBox "総ページ数は " & AllP

というコードを実行すると分かりますが。

【34755】Re:ページ番号について
発言  Koharu  - 06/2/11(土) 11:14 -

引用なし
パスワード
   ▼[名前なし] さん:
>こんにちは。
>質問ですが、あるシート内でページ番号を取得するような関数ってあるんでしょうか???
>教えてください。

シートの特定セルに頁番号をつけるということでしょうか

Sub 頁番号()
Dim Ws As Worksheet
With Ws
For Each Ws In Worksheets
 i = Sheets.Count + 1 - (Sheets.Count - i)
Ws.Range("A1") = i
Next
End With
End Sub

8183 / 13644 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free