No.1
- 回答日時:
具体的にレポートに使うグループを説明していただけないと説明できません。
第1グループ 組 (改ページ)
第2グループ 性別 (改段)
でいいのですか?
宜しくお願いします。
この回答への補足
そうです、組と性別でグループ分けをしています。
組で改ページ、性別で改段です。
改段を止めると、最後に空白のページは出ません。
そこで、女子では改段をしなければいいのかと思ったのですが。
印刷イメージは次のようになります。
3年B組
佐々木小次郎 倉木麻衣
宮本武蔵 歌田光
丹下作善 人戸用
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回目が無理
-
付き合って1ヶ月でヤった後別れ...
-
彼女とのセックスに新鮮味を感...
-
30代前半男性の性欲
-
セックス前にAV
-
胸が揺れるくらい激しいセック...
-
未成年同士でラブホに行った際...
-
セフレや遊びでスローセックス...
-
彼氏が私の性格も見た目も褒め...
-
彼女をイかせたい
-
おじさんになってから若い女性に
-
仕事が決まるまでは会わない彼
-
弘前市でセックスがしたいです...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
週1ペースで会うカップルでデー...
-
セックスについて。 彼が正常位...
-
セックスする度に胸が大きくな...
-
初めて泊まりにきてくれる彼女...
-
性欲と、人を好きになるって別...
-
恋人とセフレの違いはなんです...
-
彼女とのセックスに新鮮味を感...
-
彼女が噛んできます。 歯型がつ...
-
セックスの2回目が無理
-
男性の性欲
-
30代前半男性の性欲
-
彼氏が私の性格も見た目も褒め...
-
彼氏の性欲とセックス
-
昨日久々に元セフレ(元々頻繁...
-
セックス前にAV
-
おじさんになってから若い女性に
-
胸が揺れるくらい激しいセック...
-
マッチングアプリで知り合った...
-
彼氏とお泊まり旅行
-
彼女とのセックスの頻度につい...
おすすめ情報