Excel VBA質問箱 IV

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

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


65572 / 76734 ←次へ | 前へ→

【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
2 hits

【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 お礼

65572 / 76734 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free