返回列表 上一主題 發帖

利用巨集自動選定列印範圍

回復 1# mmggmm
  1. ActiveSheet.ResetAllPageBreaks
  2.     For Each Rng In Intersect(Range("A:A"), ActiveSheet.UsedRange)
  3.         If WorksheetFunction.IsText(Rng.Value) Then
  4.             If Left(Rng.Value, 3) = "核數員" Then
  5.             If Rng.Offset(-1, 7) = 0 Then Exit For
  6.                 ActiveSheet.HPageBreaks.Add before:=Rng.Offset(1, 0)
  7.                 ActiveSheet.PageSetup.PrintArea = "A1:J" & Rng.Row
  8.             End If
  9.         End If
  10.     Next
複製代碼
學海無涯_不恥下問

TOP

        靜思自在 : 看別人不順眼,是自己修養不夠。
返回列表 上一主題