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

[µo°Ý] ¦p¦ó¨Ì¿é¤J¤§µ§¼Æ¤Î¼Æ¶q ,¥H¥¨¶° ´_»s¸ê®Æ

[µo°Ý] ¦p¦ó¨Ì¿é¤J¤§µ§¼Æ¤Î¼Æ¶q ,¥H¥¨¶° ´_»s¸ê®Æ

¥»©«³Ì«á¥Ñ melvinhsu1105 ©ó 2011-5-4 17:45 ½s¿è

½Ð°Ý, ¦U¦ì¥ý¶i¤Î¥ý¶i,

¦bexcel  ¤@­Ówork sheets ¦p¦³ ¦h¦C¤£¦P¸ê®Æ, ¦Ó ¯à§_¥N¬°±Ð¾É©Î¼g­Óvba ¶}¤@¥¨¶°µøµ¡,

°²³]§Ú­n ²Ä1 ¤Î²Ä2 ¤Î²Ä5¦C¸ê®Æ, ¤À§O­n´_¨î ¦¨2µ§ / 3µ§/ 2µ§,,  ¦bµøµ¡¿é¤J ¹ïÀ³ ¦C¼Æ ¤Îµ§¼Æ, ¦Ó¦b¥t¤@­Óworksheets ¦Û°Ê²£¥Í.


¦p¦³¤£²M·¡¤§³B,¦A½Ð¦U¦ì ¥ý¶i,ªO¥D »¡©ú.

·PÁÂ, ¦U¦ì.

ps. ¦]¤p§Ì¨SÅv­­¤U¸üÀÉ, ¬G, ¥i§_¶K¤W µ{¦¡½X, ©Îemail µ¹ ¤p§Ì.   :   [email protected]

¼Ó¥D ±z¯àµy·L¼g­Ó²©öªºEXCELÀɮ׶Ü..
¤£µM³o¼Ë«ÜÃø°µ¸ÕÅç...
¦p ¤º®eÃþ«¬ ®æ¦¡ ¤Î­n¶Kªþ¦b­þ...

TOP

¦^´_ 1# melvinhsu1105
  1. Private Sub CommandButton1_Click()
  2. Dim Ar()
  3. d = InputBox("¿é¤J¦C¦ì", , 2)
  4. k = InputBox("¿é¤J¹ïÀ³¼Æ¶q", , 2)
  5. Do Until d = "" Or k = ""
  6.    ReDim Preserve Ar(s)
  7.    Ar(s) = Array(d, k)
  8.    s = s + 1
  9. d = InputBox("¿é¤J¦C¦ì", , 2)
  10. k = InputBox("¿é¤J¹ïÀ³¼Æ¶q", 2)
  11. Loop
  12. For i = 0 To UBound(Ar)
  13.    For j = 1 To Ar(i)(1)
  14.    r = IIf(Application.CountA(Sheet2.Columns("A")) = 0, 1, Sheet2.[A65536].End(xlUp).Row + 1)
  15.       Rows(Ar(i)(0)).Copy Sheet2.Cells(r, 1)
  16.    Next
  17. Next
  18. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 3# Hsieh

¦Ñ®v,

¤£¦n·N«ä, ¤p§Ì,¤Ó¤[¨S¥Î¤F, µ{¦¡½X«ç»ò¥Î¨ìªí³æ«öÁä¤v¤£¤Ó¼ô±x. ¥i§_¥N¬° ®M¦n. ±H¦Ü§Úªº«H½c. ¤£¦n·N«ä.

TOP

¦^´_ 4# melvinhsu1105


    test.gif
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 5# Hsieh


    ¦Ñ®v, ÁÂÁ±z. ½Ð°Ý§A¦³¶}¯Z±Â½Ò¶Ü. ¤£ª¾¦³¨S¦³¾÷·|¦V±z¾Ç²ß¦³ÃöVBAªº»yªk.

TOP

¦^´_ 5# Hsieh


    ½Ð°Ý¦Ñ®v, ¦³¥i¯à±N¿ï¾Üªº´_»s¤§¸ê®Æ, ¥á¤J ¨ä¥¦ ÀɦW¤ºªºworksheets .

ex. ¦p­ìÀɪºÀɦW ¥s:  ¾Ç¥Í¦W±ø (sheet 1) , ¦b¾Ç¥Í¦W±ø¬D¿ï«áªº¸ê®Æ, ¦A¶K¤W¦Ü ÀɦW¥s :  ¦C¦L²M³æ ªº (sheet 1)


½Ð¤£§[«ü±Ð.

TOP

        ÀR«ä¦Û¦b : ­n§åµû§O¤H®É¡A¥ý·Q·Q¦Û¤v¬O§_§¹¬üµL¯Ê¡C
ªð¦^¦Cªí ¤W¤@¥DÃD