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