![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?5a7ff87)
よろしくお願いします。
見出しのとおりのことを実現しようと考え,以下のようなコードを書きました。
するとページヘッダーセクションに配置した「ページ表示」には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
アクセスのレポートのヘッダーを2ページ以降にもつけるには?
Access(アクセス)
-
7
Access2003レポート:最終ページへ移動
その他(プログラミング・Web制作)
-
8
Accessでグループフッターの非表示
Access(アクセス)
-
9
AccessでPDFを複数ファイルにして出力
Visual Basic(VBA)
-
10
accessのレポートを20行固定にする方法
Access(アクセス)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Google scholarがひらけなくな...
-
Dosブロンプトでtabを出力したい
-
wordの差し込み印刷で文字...
-
「取得先」という表現について
-
DTOとEntityの差は何ですか。
-
shシェルスクリプト 空白行の...
-
【C#】DataGridViewの最大列数...
-
VBA コレクションに2次元配列...
-
format関数について
-
findstrのerrorlevel
-
switch()文で値の大小比較
-
ファイル名に日付の挿入
-
URLのパラメータをGETのままで...
-
classの再定義エラーについて
-
Yahoo! JAPAN IDを新規取得でき...
-
バッチファイルでpingの結果を...
-
VBAで重複チェックの仕方を教え...
-
mktimeについて教えてください
-
GridViewからチェックボックス...
-
PDFLibで解像度取得
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Google scholarがひらけなくな...
-
Access グループごとのページ...
-
EZwebが使用できませんっ!
-
アクセス 総ページについて
-
DB Error:+syntax+errorとは?
-
IEではこのページは表示出来ません
-
なぜか英語表記になってしまい...
-
Microsoft Office Word 2003 ...
-
大至急お願いします ページのソ...
-
検索結果のリンクを開くと、元...
-
インターネットの閲覧履歴を時...
-
crammediaにつながらない
-
この教えて!GOOで
-
証明書が期限切れか有効ではな...
-
MAC OSX Safari で特定のページ...
-
詳細ウインドウを下に表示
-
ワードのページ番号が消せません。
-
Dosブロンプトでtabを出力したい
-
DTOとEntityの差は何ですか。
-
「取得先」という表現について
おすすめ情報
回答ありがとうございました。
残念ながらできませんでした。
ちなみにページ設定2はページフッターセクションに配置しています。