Excel VBA質問箱 IV

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

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


75537 / 76734 ←次へ | 前へ→

【5633】Re:通知したいのですが
回答  Kein  - 03/5/23(金) 2:17 -

引用なし
パスワード
   こんな感じで、どうでしょーか ?

Sub Test_Print()
  Dim MyR As Range, FlR As Range, C As Range
  Dim Pl As Long

  Set MyR = Range("A1").CurrentRegion
  Set FlR = Range("D1", Range("D65536").End(xlUp))
  FlR.AdvancedFilter xlFilterCopy, , Range("AA1"), True
  Application.ScreenUpdating = False
  Columns(4).Hidden = True
  On Error GoTo ErLine
  For Each C In Range("AA2", Range("AA65536").End(xlUp))
   Pl = WorksheetFunction.CountIf(FlR, C.Value)
   FlR.AutoFilter 1, C.Value
   MyR.PrintOut Copies:=Pl
  Next
ErLine:
  Columns(4).Hidden = False
  ActiveSheet.AutoFilterMode = False
  Columns(27).ClearContents
  Application.ScreenUpdating = True
  Set MyR = Nothing: Set FlR = Nothing
End Sub
0 hits

【5624】通知したいのですが koshimizu 03/5/22(木) 15:35 質問
【5632】Re:通知したいのですが ハマゾウ 03/5/23(金) 0:53 回答
【5633】Re:通知したいのですが Kein 03/5/23(金) 2:17 回答

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