Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
8185 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【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 -
引用なし
パスワード
   こんにちは。

>あるシート内でページ番号を取得するような関数ってあるんでしょうか？？？
「シート内でページ番号」って何を指しているのでしょうか。
１シートでもデータの配置やページ設定によって
複数のページが発生するから「どこの」ページ番号？となるし、
そのシートだけを印刷するとは限らないので
印刷時のページ番号を事前に掴むことはでないと思いますが。
【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
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
8185 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free