No.2ベストアンサー
- 回答日時:
もしアクセスの操作だけで可能な問題で、見当はずれの場合は許してください。
エクセルに持ってきて、下記VBAでやれば出来ると思います。縦列順序に2列に印刷すると言うことは、結構プログラムが難しいことのようですが、男女別に振り分けるのは更にプログラムロジックを考える必要がある。
(テストデータ)
組 性別 名前(手抜き、本当は漢字名)
1男m1
1女f1
1女f2
1女f3
1男m2
1女f4
1男m3
1男m4
1男m5
1女f5
1男m6
1女f6
1男m7
1女f7
1女f8
2女f9
2女f10
2女f11
2男m8
2女f12
2男m9
2女f13
2男m10
2女f14
2男m11
3女f15
(結果)
第1ページ
m1f1
m2f2
m3f3
m4f4
m5f5
m6f6
m7f7
f8
第2ページ
m8f9
m9f10
m10f11
m11f12
f13
f14
(コード)VBA
Sub test01()
i = 1
j = 1
k = 1
Dim ws1 As Worksheet
Set ws1 = Worksheets("sheet1")
Dim ws2 As Worksheet
Set ws2 = Worksheets("sheet2")
m = ws1.Cells(1, "A")
'------
p00:
If ws1.Cells(i, "A") = "" Then End
If ws1.Cells(i, "A") > m Then
Range(ws2.Cells(1, 1), ws2.Cells(k, "B")).PrintOut
m = ws1.Cells(i, "A")
Range(ws2.Cells(1, 1), ws2.Cells(k, "B")).ClearContents
j = 1
k = 1
'-----
End If
If ws1.Cells(i, "B") = "男" Then
ws2.Cells(j, "A") = ws1.Cells(i, "C")
j = j + 1
Else
ws2.Cells(k, "B") = ws1.Cells(i, "C")
k = k + 1
End If
i = i + 1
GoTo p00
End Sub
アクセスVBAでやるならCellsが使えないので
1ページ分の、各列(フィールド)数だけの配列を用意して、まず組が変るまで配列にためて、変ったところで配列データを印刷すればできる。だからロジックはほぼそのまま使える。ただMDBのファイルを読む方法を勉強する必要がある(市販本に載ってますが)。
ありがとうございます。
VBAでやるという手もあるかもしれませんが、できれば、デザインのプロパティの設定でできれば助かるんですが。
なお、私の試行錯誤で、性別のヘッダーにこのセクション後改段を設定して、性別の詳細部分には何も設定しなければうまくいきました。
(以前はここに番号・氏名とか見出しを入れていたんですが、それをページヘッダーにもっていき、性別の詳細は高さを0にしました。また、以前は性別のフッターに改段を設定していました。)
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Word(ワード) Word2013 縦書き上下二段の表、改行を続けると次ページに情報が表示されるようにしたい 3 2022/06/16 09:24
- Chrome(クローム) Google chromeでクリックができない症状について 6 2023/02/12 16:55
- Visual Basic(VBA) VBAの改ページ設定について 7 2022/06/20 00:57
- UNIX・Linux テキストファイルをページ番号付きでコマンドラインから印刷したい 1 2023/02/22 12:47
- 実用・教育 文通って一ページに何文字書いたらいいの?改行と段落つけるのは、当たり前で 3 2023/04/21 09:52
- 政治 農地被買収者問題調査会設置法案を、参議院(旧貴族院)で審議することができなかったのはなぜ? 2 2022/10/30 08:19
- その他(恋愛相談) 彼女との付き合い方に不安があります。 4 2023/03/25 18:31
- 日本語 文章の書き方 3 2023/01/07 06:28
- Excel(エクセル) 請求書と領収書の作成 4 2022/11/10 16:13
- SEO googleサーチコンソールでの重複ページ(ダブルスラッシュ) 3 2023/06/12 15:00
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
彼氏とのセックスが全く気持ち...
-
セックスについて。 彼が正常位...
-
週1ペースで会うカップルでデー...
-
初めて泊まりにきてくれる彼女...
-
彼女とのセックスに新鮮味を感...
-
セックスする度に胸が大きくな...
-
セックスの2回目が無理
-
昨日久々に元セフレ(元々頻繁...
-
彼氏が私の性格も見た目も褒め...
-
男性の性欲
-
彼女が噛んできます。 歯型がつ...
-
性欲と、人を好きになるって別...
-
おじさんになってから若い女性に
-
セックスしたくないです。 21歳...
-
恋愛が上手くできないのでどう...
-
胸が揺れるくらい激しいセック...
-
セックス前にAV
-
週1ペースで彼女と会っている社...
-
マクロの実行途中で「応答なし...
-
マッチングアプリで知り合った...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
おすすめ情報