Excel VBA質問箱 IV

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

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


8548 / 76732 ←次へ | 前へ→

【73754】Re:複数ソートして別々に印刷
発言  UO3  - 13/2/8(金) 20:00 -

引用なし
パスワード
   ▼nonoka さん:

こんばんは

申し上げた手順そのものが少し間違っていました。
(そちらの操作も、申し上げた手順とは、少し違っていたようですが)

作業用シートを準備するのはやめ、printシートの O列を作業列に使います。

Sub Sample()
  Const wCol As String = "O" '"print" シート上の作業列
  Dim shTo As Worksheet
  Dim c As Range
  Dim r As Range
  Dim a As Range
  
  Application.ScreenUpdating = False
  
  Set shTo = Sheets("print")
  shTo.Cells.ClearContents
  
  With Sheets("Schedule")
    Set a = .Range("A9:M2000")   'リスト領域
    .AutoFilterMode = False   'オートフィルターがかかっていた場合もいったん解除
    
    a.Columns("L").AdvancedFilter Action:=xlFilterCopy, _
                  CopyToRange:=shTo.Range(wCol & 1), Unique:=True
    shTo.Columns(wCol).Hidden = True
    Set r = shTo.Range(wCol & 1).CurrentRegion
    a.AutoFilter        'あらためてオートフィルターセット
    
    For Each c In r.Offset(1).Resize(r.Count - 1)
      a.AutoFilter Field:=12, Criteria1:=c.Value
      .Range("A1", a).Copy shTo.Range("A1")
      shTo.PrintOut 'Preview    '最終的には PrintOut に変更
    Next
    
    .AutoFilterMode = False
    
  End With
  
  shTo.Cells.ClearContents
  Application.ScreenUpdating = True
  
End Sub
287 hits

【73747】複数ソートして別々に印刷 nonoka 13/2/8(金) 11:28 質問
【73750】Re:複数ソートして別々に印刷 UO3 13/2/8(金) 12:36 発言
【73752】Re:複数ソートして別々に印刷 nonoka 13/2/8(金) 15:13 回答
【73753】Re:複数ソートして別々に印刷 nonoka 13/2/8(金) 16:14 回答
【73754】Re:複数ソートして別々に印刷 UO3 13/2/8(金) 20:00 発言
【73755】Re:複数ソートして別々に印刷 UO3 13/2/8(金) 20:02 発言
【73796】Re:複数ソートして別々に印刷 nonoka 13/2/15(金) 22:50 回答
【73798】Re:複数ソートして別々に印刷 UO3 13/2/16(土) 5:12 発言
【73805】Re:複数ソートして別々に印刷 nonoka 13/2/16(土) 20:47 回答
【73807】Re:複数ソートして別々に印刷 UO3 13/2/16(土) 22:27 発言
【73819】Re:複数ソートして別々に印刷 nonoka 13/2/17(日) 15:37 質問
【73820】Re:複数ソートして別々に印刷 UO3 13/2/17(日) 16:14 発言
【73821】Re:複数ソートして別々に印刷 nonoka 13/2/17(日) 16:29 回答
【73823】Re:複数ソートして別々に印刷 UO3 13/2/17(日) 17:31 発言
【73824】Re:複数ソートして別々に印刷 nonoka 13/2/17(日) 17:54 回答
【73826】Re:複数ソートして別々に印刷 UO3 13/2/18(月) 9:45 発言
【73827】Re:複数ソートして別々に印刷 nonoka 13/2/18(月) 10:32 お礼

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