よろしくお願いします。
見出しのとおりのことを実現しようと考え,以下のようなコードを書きました。
するとページヘッダーセクションに配置した「ページ表示」には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も見ています
-
プロが教える店舗&オフィスのセキュリティ対策術
中・小規模の店舗やオフィスのセキュリティセキュリティ対策について、プロにどう対策すべきか 何を注意すべきかを教えていただきました!
-
ACCESS レポートでグループごとのページ数表示
その他(データベース)
-
Access2007 総ページ数が狂う
Excel(エクセル)
-
Accessのレポートでグループごとに改頁とページ数のクリア
Access(アクセス)
-
-
4
アクセスのレポートのヘッダーを2ページ以降にもつけるには?
Access(アクセス)
-
5
ACCESSのレポートフッターをグループフッターの下に出したい。
Access(アクセス)
-
6
accessのレポートを20行固定にする方法
Access(アクセス)
-
7
ACCESSのレポートでのグループページ数表示
Access(アクセス)
-
8
Accessのフォーマット時イベント
その他(データベース)
-
9
レポート中の文字を自動縮小したい (ACCESS 2003)
Access(アクセス)
-
10
メッセージボックスに表示する文字を大きくしたい
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Google scholarがひらけなくな...
-
EZwebが使用できませんっ!
-
Access グループごとのページ...
-
Dosブロンプトでtabを出力したい
-
「取得先」という表現について
-
Yahoo! JAPAN IDを新規取得でき...
-
PHP一覧表示した項目にリンクを...
-
switch()文で値の大小比較
-
DMMの動画を全件取得したのです...
-
自分の掲示板にアクセス解析を...
-
DTOとEntityの差は何ですか。
-
ps3で久しぶりにCDの音楽情報取...
-
php 入力画面から確認表示画面...
-
小数点以下0の非表示
-
IEを使わないでhtmlテキストを...
-
format関数について
-
ローカルのコンピュータ名を取...
-
動的にhtmlテーブルを表示
-
shシェルスクリプト 空白行の...
-
PHPでのパスワード制限のセキュ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Google scholarがひらけなくな...
-
「このページは一部表示を制限...
-
Access グループごとのページ...
-
なぜか英語表記になってしまい...
-
証明書が期限切れか有効ではな...
-
MAC OSX Safari で特定のページ...
-
IEではこのページは表示出来ません
-
Microsoft Office Word 2003 ...
-
Dosブロンプトでtabを出力したい
-
wordの差し込み印刷で文字...
-
switch()文で値の大小比較
-
DTOとEntityの差は何ですか。
-
「取得先」という表現について
-
phpでcookieがうまく保存されない
-
バッチファイルでpingの結果を...
-
shシェルスクリプト 空白行の...
-
Let's Encryptで自動更新がされ...
-
IEを使わないでhtmlテキストを...
-
【C#】DataGridViewの最大列数...
-
VBA コレクションに2次元配列...
おすすめ情報
回答ありがとうございました。
残念ながらできませんでした。
ちなみにページ設定2はページフッターセクションに配置しています。