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

[µo°Ý] ©ó¦P¤@¤u§@ªí¤¤¡A¥u¦C¦L¬YÀx¦s®æ¤¤¦³¼Æ­Èªº­¶¼Æ?

¨Ì·Ó¹Ï¤ùªºÄæ¦C¦ì¨Ó§PÂ_
  1. Sub ex()
  2. Dim Ar(), A As Range
  3. Set A = [B1]: i = 1
  4. Do
  5. Do
  6. If Application.CountA(A.Offset(1), A.Offset(8), A.Offset(15)) > 0 Then
  7. ReDim Preserve Ar(s)
  8. Ar(s) = i
  9. s = s + 1
  10. End If
  11. Set A = A.Offset(22, k)
  12. i = i + 1
  13. Loop Until A.Row > UsedRange.Rows.Count
  14. k = k + 8
  15. Loop Until A.Column > UsedRange.Columns.Count
  16. If s > 0 Then
  17. For i = 0 To UBound(Ar)
  18.   ActiveSheet.PrintOut From:=Ar(i), To:=Ar(i)
  19. Next
  20. End If
  21. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

        ÀR«ä¦Û¦b : ¬°¦Û¤v§äÂǤfªº¤H¥Ã»·¤£·|¶i¨B¡C
ªð¦^¦Cªí ¤W¤@¥DÃD