Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
11507 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【15732】15726の続き 日曜日よりの使者 04/7/4(日) 17:59 質問[未読]
【15733】Re:15726の続き IROC 04/7/4(日) 18:10 回答[未読]
【15740】Re:15726の続き 日曜日よりの使者 04/7/5(月) 11:11 お礼[未読]
【15736】Re:15726の続き kein 04/7/4(日) 21:14 回答[未読]
【15741】Re:15726の続き 日曜日よりの使者 04/7/5(月) 11:14 お礼[未読]
【15732】15726の続き
質問  日曜日よりの使者 E-MAIL  - 04/7/4(日) 17:59 -
引用なし
パスワード
   下のようなエクセルﾃﾞｰﾀをマクロで個人名単位で区切って印刷したいのですが、うまくできません。どのようにすれば良いでしょうか？

170　　　　安藤　　　　　2004/6/1　　　　8:52　　　　23:22　　　　　　　　
170　　　　安藤　　　　　2004/6/2　　　　8:41　　　　1:32　　　　　　　　
170　　　　安藤　　　　　2004/6/3　　　　8:49　　　　23:21　　　　　　　　
170　　　　安藤　　　　　2004/6/4　　　　8:51　　　　0:12　　　　　　　　
172　　　　片山　　　　　2004/6/1　　　　9:09　　　　　　　　　　　　
172　　　　片山　　　　　2004/6/2　　　　　　　　　　　　　　　　
172　　　　片山　　　　　2004/6/3　　　　12:53　　　　　　　　　　　　
172　　　　片山　　　　　2004/6/4　　　　21:01　　　　19:35　　　　　　　　
187　　　　小澤　　　　　2004/6/1　　　　　　　　　　　　　　　　
187　　　　小澤　　　　　2004/6/2　　　　8:43　　　　18:22　　　　　　　　
187　　　　小澤　　　　　2004/6/3　　　　8:37　　　　18:18　　　　　　　　
187　　　　小澤　　　　　2004/6/4　　　　8:47　　　　　　　　　　　　
189　　　　中森　　　　　2004/6/1　　　　8:33　　　　17:13　　　　　　　　
189　　　　中森　　　　　2004/6/2　　　　8:38　　　　18:58　　　　　　　　
189　　　　中森　　　　　2004/6/3　　　　8:16　　　　18:24　　　　　　　　
189　　　　中森　　　　　2004/6/4　　　　　　　　　　　　　　　　
191　　　　牧野　　　　　2004/6/1　　　　　　　　　　　　　　　　
191　　　　牧野　　　　　2004/6/2　　　　　　　　　　　　　　　　
191　　　　牧野　　　　　2004/6/3　　　　9:07　　　　18:27　　　　　　　　
191　　　　牧野　　　　　2004/6/4　　　　8:55　　　　18:13
【15733】Re:15726の続き
回答  IROC  - 04/7/4(日) 18:10 -
引用なし
パスワード
   下の行と名前が違う行に
改ページを設定すればよいと思います。

マクロで行うなら
FOR〜nextでループさせて、
if文で判別すればよいと思います。

改ページの設定は、
マクロの記録が参考になると思います。
【15736】Re:15726の続き
回答  kein  - 04/7/4(日) 21:14 -
引用なし
パスワード
   続きなら元の質問に繋げて書いて下さい。初めからそのように表のサンプルを
書いていれば、回り道しなくて済んだはずですよ。

Sub Test_Print()
　 Application.ScreenUpdating = False
　 Rows(1).Insert xlShiftDown
　 Range("A1:E1").Value = Array("a", "b", "c", "d", "e")
　 Range("A1").Subtotal 1, xlSum, Array(5), , True
　 Columns(5).SpecialCells(3).EntireRow.ClearContents
　 Cells.RemoveSubtotal
　 Rows(1).Delete xlShiftUp
　 With ActiveSheet
　　　.PrintOut Copies:=1
　　　.DisplayAutomaticPageBreaks = False
　 End With
　 Application.ScreenUpdating = True
End Sub
【15740】Re:15726の続き
お礼  日曜日よりの使者  - 04/7/5(月) 11:11 -
引用なし
パスワード
   ありがとうございました。
【15741】Re:15726の続き
お礼  日曜日よりの使者  - 04/7/5(月) 11:14 -
引用なし
パスワード
   助かりました。おかげさまで解決致しました。あと次回からは続けて書くようにします、ありがとうございました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
11507 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free