皆様 こんばんは。
宜しくお願いします。
VBAはまだ本を参考にしているため初心者です。
ACCESS97を使用して作成しています。
上司の承認印がいるためレポートヘッダーにタイトル(例.在庫一覧レポート)とその横に承認印が押せるよう四角形ボックスを作成しました。
詳細行は、15行ごとに改ページするようVBAで作りました。
しかし、考えてみれば、最初の1ページ目はレポートヘッダー分があり15行ですが、2ページ以降は、レポートヘッダーがない分下に余白が多くなります。
ここで質問なんですが、2ページ以降は、17行で改ページしていくようなことができますか?
No.2ベストアンサー
- 回答日時:
If i Mod 15 = 0 Then
を
If i Mod 17 = 15 Then
にしてください。
bonaron 様
只今、確認しまして実際にやってみました。
できました!ありがとうございます。
助かりました。除雪を終えてちょうどパソコンを立ち上げたら回答メールがありまして本当に嬉しかったです。
No.1
- 回答日時:
>ここで質問なんですが、2ページ以降は、17行で改ページしていくようなことができますか?
結論からいえば可能です。
現在、15行で改ページはどのように制御していますか?
この回答への補足
内容を具体的に説明していませんでした。すいません。
15行改ページはVBAで
i = i + 1
If i Mod 15 = 0 Then
If i < j Then
Me!改ページ29.Visible = True
ElseIf i = j Then
Me!取引先CD.Visible = True
Me!商社名.Visible = True
Me!KINGAKU.Visible = True
Me!TKINGAKU.Visible = True
Me!NYUKIN1.Visible = True
Me!NYUKIN2.Visible = True
Me!工事CD.Visible = True
Me!略称工事名.Visible = True
Else
Me!取引先CD.Visible = False
Me!商社名.Visible = False
Me!KINGAKU.Visible = False
Me!TKINGAKU.Visible = False
Me!NYUKIN1.Visible = False
Me!NYUKIN2.Visible = False
Me!工事CD.Visible = False
Me!略称工事名.Visible = False
End If
Else
Me!改ページ29.Visible = False
If i < j Then
Me.NextRecord = True
Me!取引先CD.Visible = True
Me!商社名.Visible = True
Me!KINGAKU.Visible = True
Me!TKINGAKU.Visible = True
Me!NYUKIN1.Visible = True
Me!NYUKIN2.Visible = True
Me!工事CD.Visible = True
Me!略称工事名.Visible = True
ElseIf i = j Then
Me.NextRecord = False
Me!取引先CD.Visible = True
Me!商社名.Visible = True
Me!KINGAKU.Visible = True
Me!TKINGAKU.Visible = True
Me!NYUKIN1.Visible = True
Me!NYUKIN2.Visible = True
Me!工事CD.Visible = True
Me!略称工事名.Visible = True
Else
Me.NextRecord = False
Me!取引先CD.Visible = False
Me!商社名.Visible = False
Me!KINGAKU.Visible = False
Me!TKINGAKU.Visible = False
Me!NYUKIN1.Visible = False
Me!NYUKIN2.Visible = False
Me!工事CD.Visible = False
Me!略称工事名.Visible = False
End If
End If
iは行数カウント
jはデータ総数カウント
i,jともグループヘッダーにあります。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) VBAで重複データを合算したい(時間) 1 2022/12/08 23:06
- Excel(エクセル) エクセルの印刷範囲をページ単位で可変にする方法 3 2022/05/23 13:04
- MySQL PHPとMySQLを使った掲示板の作り方 1 2022/06/02 13:00
- Access(アクセス) Accessで予定表を作成しようとしてます。 テーブル フィールド名 連番 オートナンバー型 年月日 2 2023/07/23 11:40
- その他(データベース) Accessフォームからパラメーターで表示したレコードを指定のExcelのセルへ転送する方法について 2 2022/08/22 18:04
- SEO googleサーチコンソールでの重複ページ(ダブルスラッシュ) 3 2023/06/12 15:00
- Excel(エクセル) Excelで在庫表(クエリ、ピボット) 2 2022/04/11 17:11
- Visual Basic(VBA) エクセルVBA 2 2022/04/27 13:29
- その他(プログラミング・Web制作) Accessの代わりのノンプログラムデータベース作成 4 2022/10/21 09:26
- Access(アクセス) Access DLookup vbaで条件を2件設定したい場合どうすればよいでですか? 現在 If( 1 2023/06/28 14:28
関連するカテゴリからQ&Aを探す
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
印刷用紙の中央に点線をいれた...
-
WORD ある縦線が消せない
-
エクセルで用紙の端から端まで...
-
jpegを出力する時にファイル名も
-
EXCELで「行のタイトル」に頁と...
-
EXCELで余白などのをmm単位で設...
-
illustrator(イラレ)での余白...
-
Wordでルーズリーフに綺麗に両...
-
WordのA3文書を縦分割
-
PDF化したファイルの一部を削除...
-
便箋(市販の分)に印刷したいの...
-
メールを印刷すると右端が切れ...
-
ワードの原稿用紙
-
エクセルのプレビューで見る一...
-
ワードのページ数が勝手に増え...
-
Excelの表を用紙の真ん中に印刷...
-
Access2000 レポートの印刷位置...
-
ワード2007:ページの中央が簡...
-
原稿用紙換算についての質問です。
-
A4用紙に写真を3枚印刷したい
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
印刷用紙の中央に点線をいれた...
-
WORD ある縦線が消せない
-
エクセルで用紙の端から端まで...
-
ページをまたぐ表を作ると罫線...
-
jpegを出力する時にファイル名も
-
ワード2007:ページの中央が簡...
-
EXCELで「行のタイトル」に頁と...
-
便箋(市販の分)に印刷したいの...
-
Wordでルーズリーフに綺麗に両...
-
EXCELで余白などのをmm単位で設...
-
ワードでヘッダー、フッターの...
-
PDF化したファイルの一部を削除...
-
メールを印刷すると右端が切れ...
-
ワードのページ数が勝手に増え...
-
A4用紙に写真を3枚印刷したい
-
WordのA3文書を縦分割
-
illustrator(イラレ)での余白...
-
エクセルのプレビューで見る一...
-
1ページごとに余白を変更できま...
-
Word2007で作った履歴書をPDFに...
おすすめ情報