![](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ランキング
-
IEではこのページは表示出来ません
-
海外のホテルで検索ページが開...
-
ワードのページ番号が消せません。
-
Microsoft Office Word 2003 ...
-
128ビットの接続セキュリティー
-
wordの差し込み印刷で文字...
-
TreeViewのChild Node
-
header と session の順番
-
Windowsのマクロプログラムで、...
-
「ページネーション」で検索キ...
-
PHPで訪問回数を表示するカウン...
-
PHPでのパスワード制限のセキュ...
-
Yahoo! JAPAN IDを新規取得でき...
-
ps3で久しぶりにCDの音楽情報取...
-
syntax error, unexpected 'ech...
-
php に関して質問です。 各ユー...
-
どういうプログラムを関数化を...
-
Google chart API 、PHP、MySQL...
-
CSSのLicense
-
プライバシーマーク取得に際し...
マンスリーランキングこのカテゴリの人気マンスリー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はページフッターセクションに配置しています。