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

[µo°Ý] ¦p¦ó§PÂ_¤º®e¬O§_©Ò»Ý¥H¤Î¬O§_¦Û°Ê¦C¦L

[µo°Ý] ¦p¦ó§PÂ_¤º®e¬O§_©Ò»Ý¥H¤Î¬O§_¦Û°Ê¦C¦L

¥»©«³Ì«á¥Ñ starry1314 ©ó 2016-1-12 13:27 ½s¿è

¦@¦³¼Æ¤Q±i,½d³ò»P±ø¥ó³£¤@¼Ë ¦ý©¹¥k¦³ªÅ¤@¶¡¹jÄæ,©¹¤U«h¤@¶¡¹j¦C

1.¦C¦L½d³ò-¬õ®Ø¤º
2.¦C¦L¤è¦¡-¿ï¾Ü½d³ò&©Ò¦³¦C©ñ¤J
3.§PÂ_¤è¦¡-¤é´Á©³¤U(²Ä¤@¦C²Ä¤@®æ),¤º®e¥u­n¥]§t  ¤å¦r>>¡iªÅ¥Õ¡j<<¤å¦r «h¤£¦C¦L
2016-01-12_132205.jpg
2016-1-12 13:23

¦Û°Ê¦C¦L.rar (91.75 KB)

¦^´_ 1# starry1314

Àɮפº®e±Æ¦C¦³»~¡A½Ð¦Û¦æ§ó¥¿¡I¡I(¦h¤F2¦C)
"¨â°e(µæ²Õ)-1"ªº²Ä¤@®æ¬°ªÅ¥Õ¡A©Ò¥H³o±i¤£·|¦C¦L
"¦­À\(¦Û³Æ²Õ)-1"¡B"¤ÈÀ\(¦Û³Æ²Õ)-1"¡B"±ßÀ\(¦Û³Æ²Õ)-1"³o¸Ì­¶«h²Ä¤@®æ¦³¤å¦r¡A·|¦C¦L
  1. Option Explicit
  2. Sub ¦C¦L()
  3.     Dim I%, J%, X%, Y%, ades
  4.     For I = 1 To 9
  5.         For J = 1 To 6
  6.             X = I * 20 - 19: Y = J * 6 - 5
  7.             If Cells(X, Y).Offset(2).Value <> "" Then
  8.                 ades = Range(Cells(X + 1, Y), Cells(I * 20, J * 6 - 1)).Address
  9.                 'ActiveSheet.PageSetup.PrintArea = ades
  10.                 Range(ades).PrintOut Copies:=1, Collate:=True
  11.             End If
  12.         Next
  13.     Next
  14. End Sub
½Æ»s¥N½X

TOP

¦^´_ 2# lpk187


    Option Explicit
Sub ¦C¦L()
    Dim I%, J%, X%, Y%, ades
    For I = 1 To 9
        For J = 1 To 6
            X = I * 20 - 19: Y = J * 6 - 5
            If Cells(X, Y).Offset(2).Value <> "*ªÅ¥Õ*" Then  '½Ð°Ý³o¦p¦ó¥Î¸U¥Î¦r¤¸©O?  ·Q§ï¦¨ *ªÅ¥Õ*«h¤£¦L   
                ades = Range(Cells(X + 1, Y), Cells(I * 20, J * 6 - 1)).Address
                'ActiveSheet.PageSetup.PrintArea = ades
                Range(ades).PrintOut Copies:=1, Collate:=True
            End If
        Next
    Next
End Sub

TOP

¦^´_ 2# lpk187

§ï¬°³o¼Ë¦ý¹J¨ì¨S¦³ªÅ¥Õ¨â¦r ¦ý¬OªÅ¥ÕÀx¦s®æªº¸ÜÁÙ¬O·Ó¦L
¦³¿ìªk¨â­Ó±ø¥ó¨Ã¦s¶Ü?
¥X²{ªÅ¥Õ¨â¦r©Î¬O³æ¯ÂªÅ¥ÕÀx¦s®æ³£¤£¦L
  1. Sub ¦C¦L()
  2.     Dim I%, J%, X%, Y%, ades
  3.     For I = 1 To 9 '©¹¤U±i¼Æ
  4.         For J = 1 To 6 '¨C±iÄæ¼Æ
  5.             X = I * 20 - 19: Y = J * 6 - 5  '20=¦C¼Æ-19 ¦©°£¼ÐÃD 6=Äæ¼Æ-5¦©°£¶¡¹jÄæ
  6.             If InStr(Cells(X, Y).Offset(2).Value, ªÅ¥Õ) = 0 Then
  7.                 ades = Range(Cells(X + 1, Y), Cells(I * 20, J * 6 - 1)).Address
  8.                 'ActiveSheet.PageSetup.PrintArea = ades
  9.                 Range(ades).PrintOut Copies:=1, Collate:=True
  10.             End If
  11.         Next
  12.     Next
  13. End Sub
½Æ»s¥N½X

TOP

¦^´_ 4# starry1314
  1. Sub ¦C¦L()
  2.     Dim I%, J%, X%, Y%, ades, kk
  3.     For I = 1 To 9 '©¹¤U±i¼Æ
  4.         For J = 1 To 6 '¨C±iÄæ¼Æ
  5.             X = I * 20 - 19: Y = J * 6 - 5  '20=¦C¼Æ-19 ¦©°£¼ÐÃD 6=Äæ¼Æ-5¦©°£¶¡¹jÄæ
  6.             kk = InStr(Cells(X, Y).Offset(2).Value, "ªÅ¥Õ")
  7.             If InStr(Cells(X, Y).Offset(2).Value, "ªÅ¥Õ") = 0 And Cells(X, Y).Offset(2).Value <> "" Then
  8.                 ades = Range(Cells(X + 1, Y), Cells(I * 20, J * 6 - 1)).Address
  9.                 'ActiveSheet.PageSetup.PrintArea = ades
  10.                 Range(ades).PrintOut Copies:=1, Collate:=True
  11.             End If
  12.         Next
  13.     Next
  14. End Sub
½Æ»s¥N½X

TOP

¦^´_ 5# lpk187


    ÁÂÁÂ....¸£³U¯uªº¥´µ²¤F,¨S·Q¨ìAND
¥u·Q¨ì¦h¼g¤@¦æ

TOP

        ÀR«ä¦Û¦b : ±o²z­nÄǤH¡A²zª½­n®ð©M¡C
ªð¦^¦Cªí ¤W¤@¥DÃD