ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

¤À­¶¹wÄý

¤À­¶¹wÄý

¤@­Ó¦³Ãö"¤À­¶¹wÄý"°ÝÃD,¦P¤@囼¥¨¶°,¦b³øªíP2°õ¦æok,¦b³øªíP1¥¼¯à§¹¦¨.½Ð¦U¦ì¤j¤j«ü¥X¿ù¦b¨º¸Ì. 2323.rar (66.71 KB)

¦^´_ 1# mmggmm
  1. Public Sub ³øªíp1()
  2. ActiveSheet.ResetAllPageBreaks
  3.     For Each Rng In Intersect(Range("A:A"), ActiveSheet.UsedRange)
  4.         If WorksheetFunction.IsText(Rng.Value) Then
  5.             If Left(Rng.Value, 2) = "¤é´Á" Then
  6.          '  If Rng.Offset(-1, 7) = 0 Then Exit For     '³o¥y¬O§@¤°»ò¥Îªº,§â¥¦µù¸Ñ±¼
  7.            ActiveSheet.HPageBreaks.Add before:=Rng.Offset(1, 0)
  8.                 ActiveSheet.PageSetup.PrintArea = "A1:F" & Rng.Row
  9.                 ActiveWindow.View = xlPageBreakPreview
  10.                
  11.             End If
  12.         End If
  13.     Next
  14. End Sub
½Æ»s¥N½X

TOP

register313 ,¨Ì§Aªº°ÝÃD¤w¸Ñ¨M,¦hÁÂ.

TOP

        ÀR«ä¦Û¦b : «H¤ß¡B¼Ý¤O¡B«i®ð¤TªÌ¨ã³Æ¡A«h¤Ñ¤U¨S¦³°µ¤£¦¨ªº¨Æ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD