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

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

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


¦p¤W¹Ï©Ò¥Ü¡A©ó¦P¤@¤u§@¦Cªí¤¤¡A¦p²Ä¤@­¶¤¤B(2¡B9¡B16)¨ä¤¤¤§¤@¦³¼Æ­È´N¦C¦L²Ä¤@­¶!
¦p²Ä¤@­¶¤¤B(2¡B9¡B16)¨ä¤¤¤§¤@&²Ä¤G­¶¤¤B(24¡B31¡B38)¨ä¤¤¤§¤@¤]¦³¼Æ­È¡A´N¦C¦L1~2­¶......¥H¦¹Ãþ±À!½Ð°Ý¦¹¥¨¶°­n¦p¦ó³]©w!

¦^´_ 1# ´Ñ»y³¾»ï
Ãú¨F¨Fªü

TOP

¦^´_ 2# GBKEE


    ·N«ä´N¬O!¦b¹Ï¤¤(1~3­¶)¦³¥´1¡B2¡B3ªºÀx¦s®æ¤¤¡A¦pªG¦³¼Æ­È(3­ÓÀx¦s®æ¥u­n¦³¤@­ÓÀx¦s®æ¦³¼Æ­È§Y¥i)´N¦C¦L·í­¶¡A¦pªG³£¨S¦³¼Æ­È¨º­¶´N¤£­n¦L!

TOP

EXCEL¥»´N¦p¦¹³]©wªº
¨S¸ê®Æªº´N¤£·|¦L¤F
§A·|¦L¥XªÅ¥Õ­¶¶Ü¡H

TOP

¦^´_ 4# chin15



¦]¬°§ÚªºÀɮפ¤¨C­¶³£¦³¤å¦r¡A¦]¬°¬O³]­p¦nªºªí®æ¡A¸ê®Æ¬O¦Û°Ê±a¤Jªº¡A©Ò¥H¦³ªº­¶¼Æ¨S¼Æ­È¡A¦ý¦³¨ä¥Lªº¤å¦r¡A¨ººØ´N·|¦h¦L¡AÅܦ¨¼o¯È= =

TOP

¬Ý§A¨C­¶­n¨Ì­þ¨ÇÀx¦s®æ§@§PÂ_¬O§_¦C¦L
°µ­Ó³æ´`Àô
§â­n¦Lªº­¶½Æ»s¨ì¥t¤@¤u§@ªí¡A¦A¹ï¸Óªí¦C¦L

TOP

¨Ì·Ó¹Ï¤ùªºÄæ¦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

¦^´_ 7# Hsieh


    ·PÁ¤j¤jªº¦^ÂÐ~§Ú¥h¸Õ¸Õ¬Ý!

TOP

        ÀR«ä¦Û¦b : ¤H­n¦Û·R¡A¤~¯à·R´¶¤Ñ¤Uªº¤H¡C
ªð¦^¦Cªí ¤W¤@¥DÃD