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

[µo°Ý] ¥´¦L¤U©Ô¦¡¿ï³æ¤¤©Ò¦³±i¼Æ

[µo°Ý] ¥´¦L¤U©Ô¦¡¿ï³æ¤¤©Ò¦³±i¼Æ

¦bEXCEL¤¤, ¦³¤@­¶¬ODATA(¬ù6¤d­Ó¶µ¥Ø), ¥t¥~¤@­¶¬Oªí®æ, ªí®æ¤¤²Ä¤@¦æ¥Î¤F¤U©Ô¦¡¿ï³æ, ¦Ó²Ä¤G¤Î²Ä¤T¦æ·|¦]À³²Ä¤@¦æ¬J¿ï¾Ü¦ÓÅܤÆ, ¦pªG§Ú·Q¥´¦L³o6¤d¦h¥÷ªí®æ, ¦³¦ó¤èªk¤£¥Î³v­Ó¦b¿ï³æ¤¤¿ï¾Ü¤§«á«ö¥´¦L¦Ó¥i¥H«ö¤@­Ó¨î¥i¥H¦Û¦æ¿ï¦n¤Î¦Û°Ê¥´¦L³o6¤d¥÷???

¦^´_ 1# kennet
  1. Sub ex()
  2. Set d = CreateObject("Scripting.Dictionary")
  3. With Sheets("Data")
  4.    For Each a In Range([A2], [A2].End(xlDown))
  5.       d(a.Value) = "" '¬ö¿ýData¤u§@ªíAÄ涵¥Ø
  6.    Next
  7. End With
  8. With Sheets("Print")
  9.    For Each ky In d.keys
  10.       .[A1] = ky '¦C¦L­¶ªºA1¼g¤J¶µ¥Ø
  11.       .PrintOut '¦C¦L¦¹­¶
  12.    Next
  13. End With
  14. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¥»©«³Ì«á¥Ñ Hsieh ©ó 2013-4-24 17:47 ½s¿è
¦^´_  kennet
Hsieh µoªí©ó 2013-4-23 23:22



ÁÂÁª©¥D, ¦ý¥»¤H¤ñ¸û²Â, ÁÙ¬O¤£¤Ó©ú, ²{ªþ¤Wªþ¤W, ¥i§_À°­Ó¦£?

¤£ºÉ·P¿E!

TOP

¦^´_ 3# kennet
  1. Sub ex()
  2. With Sheets("Classification Sheet")
  3.   With .Range("C4")
  4.   Set ar = Evaluate(.Validation.Formula1) '±NÅçÃÒ¤½¦¡Âন½d³ò
  5.   For Each a In ar
  6.     .Value = a
  7.     .PrintOut
  8.   Next
  9.   End With
  10. End With
  11. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦¨¥\¤F, ¦hÁª©¥D, ¦ý¦³°ÝÃD¬O, ¦pªG¤@¦¸¹L¥´¦L¨º»ò¦h·|¥O¦Lªí¾÷·í¾÷, ¦p¦ó¥i¥H¦Û¦æ³]©w¥´¦L¦h¤Ö¥÷? (¦p²Ä1¦Ü200, ¦p¦¹Ãþ±À)

TOP

¦^´_ 5# kennet
  1. Sub ex()
  2. Dim s&, n&
  3. With Sheets("Classification Sheet")
  4.   With .Range("C4")
  5.   Set ar = Evaluate(.Validation.Formula1) '±NÅçÃÒ¤½¦¡Âন½d³ò
  6.   s = InputBox("Input start number", , 1)
  7.   n = InputBox("Input printed pages", , 10)
  8.   Do Until x = n
  9.     .Value = ar(s + x)
  10.     x = x + 1
  11.     .PrintOut
  12.   Loop
  13.   End With
  14. End With
  15. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

ÁÂÁª©¥D, ¤j¦¨§i¦¨¤F~ ¦ý¥i§_§â§Ú¤W¸üªºªþ¥ó§R°£???

TOP

½Ð°Ý¤@¤U, «ö·Ó¥Hªº½X, ¦¨¥\¥´¦L«á¨C¤@±i¥u¦³¤@­Ó¤p®Ø¦L¥X¨Ó,  ¨ä¥L³£¬OªÅ¥Õªº, ½Ð°Ý°ÝÃD¥X¦b¨º?

TOP

        ÀR«ä¦Û¦b : ¨ü¤HÂI¤ô¤§®¦¡A¶··í´é¬u¥H³ø¡C
ªð¦^¦Cªí ¤W¤@¥DÃD