よろしくお願いします。
見出しのとおりのことを実現しようと考え,以下のようなコードを書きました。
するとページヘッダーセクションに配置した「ページ表示」には1/3 2/3 3/3と正しく表示されるのですが,ページフッターセクションに配置した「ページ表示2」には1/3 2/3 0/3となってしまします。(最終ページが0/* になります。)
どなたかご教授ください。
Dim gps(50) As Integer 'グループ毎のページ数を保存する配列
Dim i As Integer
Private Sub レポートヘッダー_Format(Cancel As Integer, FormatCount As Integer)
i = 0
End Sub
Private Sub グループフッター0_Format(Cancel As Integer, FormatCount As Integer)
If FormatCount = 1 Then
If Pages = 0 Then gps(i) = Page
i = i + 1
Page = 0
End If
End Sub
Private Sub ページヘッダーセクション_Format(Cancel As Integer, FormatCount As Integer)
If Pages > 0 Then ページ表示 = Page & "/" & gps(i)
End Sub
Private Sub ページフッターセクション_Format(Cancel As Integer, FormatCount As Integer)
If Pages > 0 Then ページ表示2 = Page & "/" & gps(i)
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) ①ExcelVBAでカレンダーを作り、別のユザーフォームで日付を入力したいのですがエラーになります。 1 2023/02/17 18:39
- Visual Basic(VBA) 標準モジュール Public mOnTime As Date Sub sample() '実行プロシ 1 2023/02/22 15:44
- Visual Basic(VBA) 【VBA】写真の貼り付けコードがうまく機能しません。 5 2022/09/01 18:43
- Visual Basic(VBA) エクセル マクロ(A1:A10)までの中で一番多く出た数字をB10に表示 6 2023/04/25 17:01
- Visual Basic(VBA) VBA Userformで一部別シートに転記がしたいのですが 2 2023/05/24 13:08
- Visual Basic(VBA) vbaの計算 if elseと範囲について 6 2022/11/26 01:49
- Visual Basic(VBA) VBAプログラミング 2 2022/11/27 12:07
- Visual Basic(VBA) 【前回の続き続きです、ご教示ください】VBAの記述方法がわかりません。 2 2022/08/24 20:49
- Excel(エクセル) VBAについて 3 2022/06/19 18:19
- Visual Basic(VBA) Excel vbaについての質問 3 2023/04/18 16:14
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
Access2007 総ページ数が狂う
Excel(エクセル)
-
ACCESS レポートでグループごとのページ数表示
その他(データベース)
-
Accessのレポートでグループごとに改頁とページ数のクリア
Access(アクセス)
-
-
4
ACCESSのレポートでのグループページ数表示
Access(アクセス)
-
5
ACCESSのレポートフッターをグループフッターの下に出したい。
Access(アクセス)
-
6
accessのレポートであとから他のテーブルのフィールドを追加する方法
Access(アクセス)
-
7
アクセス レポートの行数を固定したい
Access(アクセス)
-
8
アクセスのレポートのヘッダーを2ページ以降にもつけるには?
Access(アクセス)
-
9
Accessでグループフッターの非表示
Access(アクセス)
-
10
Access2003レポート:最終ページへ移動
その他(プログラミング・Web制作)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Google scholarがひらけなくな...
-
Access グループごとのページ...
-
EXCELの印刷指定でのページ数表示
-
Dosブロンプトでtabを出力したい
-
【C#】DataGridViewの最大列数...
-
バッチファイルでpingの結果を...
-
wordの差し込み印刷で文字...
-
shシェルスクリプト 空白行の...
-
ps3で久しぶりにCDの音楽情報取...
-
「取得先」という表現について
-
excel access連携 このテーブル...
-
Yahoo! JAPAN IDを新規取得でき...
-
DTOとEntityの差は何ですか。
-
EXCEL、マクロ-改ページ行番号...
-
phpでcookieがうまく保存されない
-
switch()文で値の大小比較
-
findstrのerrorlevel
-
URLのパラメータをGETのままで...
-
PDOを使った総レコード数(行数...
-
グローバルIPの取得方法を教え...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Google scholarがひらけなくな...
-
証明書が期限切れか有効ではな...
-
Access グループごとのページ...
-
128ビットの接続セキュリティー
-
ワードのページ番号が消せません。
-
なぜか英語表記になってしまい...
-
DB Error:+syntax+errorとは?
-
警告文が出る
-
MAC OSX Safari で特定のページ...
-
インターネットエクスプローラ...
-
インターネットの閲覧履歴を時...
-
crammediaにつながらない
-
Word2010でページ番号をいれれ...
-
Microsoft Office Word 2003 ...
-
アクセス 総ページについて
-
【困っています】Excelで出版物...
-
「このページは一部表示を制限...
-
IEのページ表示時のデスクトッ...
-
特定のHPが表示されず。windows...
-
IEではこのページは表示出来ません
おすすめ情報
回答ありがとうございました。
残念ながらできませんでした。
ちなみにページ設定2はページフッターセクションに配置しています。