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

[µo°Ý] ¼Ï¯Ã¤ÀªRªíµLªk±Æ§Ç¥Ñ¤p¨ì¤j?

[µo°Ý] ¼Ï¯Ã¤ÀªRªíµLªk±Æ§Ç¥Ñ¤p¨ì¤j?

½Ð°Ý ¨Ï¥Î¼Ï¯Ã¤ÀªRªí®É

¿z¿ï¥X¨Óªºµ²ªG¬°¤°»òµLªk¨Ï¥Î"±Æ§Ç"¤j¤p ?

§Ú·Q§â¿z¿ï¥X¨Óªºµ²ªG¨Ï¥Î"±Æ§Ç"¥h¾ã²z¸ê®Æ¥Ñ¦­¦Ü«áªº¤é´Á,¦ý¬O«oµLªk¦Û°Ê±Æ§Ç

¬O§_±N±zªº¸ê®Æpo¥X¨Ó~
¤~¯à¤F¸Ñ±z¬°¤°»òµLªk±Æ§Ç~
¾Ç²ß¤~¯à´£¤É¦Û¤v

TOP

©Î³\§A¥i¥H¥ý±Æ§Ç¦A籂¿ï
YTT

TOP

¼Ï¶s¤¤ÂùÀ»¤é´ÁÄæ¦ìªº¼ÐÃD¡A¦b¹ï¸Ü®Ø¸Ì¿ï"¶i¶¥"¡A¸Ì­±¦³±Æ§Çªº¿ï¶µ
¨Ì«ü¥Ü¾Þ§@§Y¥i¡C

TOP

¦^´_ 2# hugh0620

ªþ¤WÀÉ®×
³øªí.rar (32.63 KB)

¦^´_ 3# YTT

¸ê®Æ®wªº¤é´Á±Æ§Ç¬O¥¿½Tªº¡A¦ý¬O¦b¼Ï¯Ã¤ÀªRªí¿z¿ï«á±Æ§Ç´N·|¿ù¶Ã

¦^´_ 4# oobird

¨Ï¥Î¹L¤@¯ë±Æ§Ç¡A¤]¸Õ¹L¶i¶¥±Æ§Ç
¦ý¬O³£µLªk§ïÅÜ¡A¤£¾å±o¬O­þ­ÓÀô¸`¥X°ÝÃD

---------
¥Ø«e¨Ï¥Î¼Ï¯Ã¤ÀªRªí«ö¤U­«·s¾ã²z«á,¤ÀªRªí·|¥X²{¤U­±´XºØª¬ªp,§Æ±æ«e½ú­Ì¥i¥HÀ°¦£¸Ñµª

1.®Ø½u·|¥X²{Â_ºI,µLªk¦Û°Ê¶ñº¡®Ø½u,»Ý¤â°Êø»s¯Ê¾lªº
2.ª©­±°t¸m­«½Æªº¶µ¥Ø¼ÐÅÒ,¨C¦¸¦³·s¸ê®Æ,¦A­«·s¾ã²z«á³£­n¦b¤â°Ê¨Ï¥Î[­«½Æ©Ò¦³¶µ¥Ø¼ÐÅÒ]
3.¦³¨ÇµL¸ê®Æªº®Ø®æ·|¥X²{(ªÅ¥Õ)¦r¼Ë,¦³¸Õ¹L¦b¼Ï¯Ã¤ÀªRªí¿ï¶µ¤¤¨Ï¥Î,ª©­±°t¸m»P®æ¦¡>­Y¬°ªÅ¥ÕÅã¥Ü"-"¡A¦ý¦n¹³µL§@¥Î
4.°£¤F³Ì«e¦Cªº¼ÐÅÒ¥i¥H±Æ§Ç,¨ä¾l«á­±³£µLªk¥¿±`¨Ï¥Î±Æ§Ç§@¥Î,­«ÂI·Q¨Ï¤é´Á¨Ì·Ó¦­¦Ü±ßªº±Æ¦C

¥H¤W´XÂI©Î³\»¡±o¦³¨Ç§t½k,¦p¦³¤£©úªº¦a¤è½Ð§iª¾

TOP

a.gif

TOP

¦^´_ 5# jackson7015


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

TOP

¦^´_ 6# oobird
¦^´_ 7# Hsieh
­º¥ý·PÁ¨â¦ì¤jª©¥Dªº¸Ô²Ó¹Ï¸Ñ

¹ï©ó°ÝÃDªº1.2ÂI¥Ø«e¥u¯à¤â°Ê¸Ñ¨M¶Ü?
¦]¬°¨C¦¸¦³¸ê®Æ»Ý­n§ó·s«á,³£»Ý­n¦A­«·sÂI¿ï
¦Ó¥B¶µ¥Ø¤u§@­¶¦³10´X­¶,©Ò¥H·Q½Ð°Ý¦³¨S¦³¯àÅý¥¦¦b¿z¿ï«áª½±µ¬O¤w¸g§¹¦¨ª©­±°t¸m©M®Ø¬[µe½uªº°Ê§@

¹ï©ó²Ä3ÂI¥Ø«e¤]¬O"¤â°Ê"¦b¿z¿ï«áªº­¶­±(ªÅ¥Õ)®æ¤¤,Áä¤J"-"

²Ä4ÂI°ÝÃD,©M¦U¦ì¤j¤jªº¸Ñµª¨Ç·Lªº®t¶Z
¤p§Ì¥D­n¬O·Q¥H¤é´Á°µ±Æ§Ç,©Ò¥H¤£ºÞ¹q¸¹¦³§_¬Û¦P,¾ã­Ó¤u§@­¶³£¬O¥H¤é´Á°µ¥D­n±Æ§Ç
¦Ó¤j¤j­Ìªº¸Ñ»¡¬O¥H¹q¸¹¬°«eÀY¼ÐÅÒ,¤§«á±Æ§Ç¤é´Á

¥H¤U¬O¤p§Ì·Q­nªº¦¨«~


¦A¦¸·PÁ¦U¦ì¤j¤j­ÌªºÀ°¦£

TOP

¦^´_ 8# jackson7015


    §Aªº¥Øªº¤£¬O¥Î¼Ï¶s¤ÀªRªí¡A¼Ï¶s¤ÀªRªí¬O²Î¦XÂk¯Ç¡A§A­nªº¥u¬O±Æ¦C¬Y¨ÇÄæ¦ì
¥Î³o­Ó¥N½X¡G
  1. Sub yy()
  2.     Dim i%, j%, n%, c, arr, a
  3.     c = Array(3, 4, 5, 10, 1, 11, 12)
  4.     With Sheets("ºî¦X¸ê®Æ®w")
  5.         n = .[b65536].End(3).Row
  6.         a = .Range(.Cells(4, 2), .Cells(n, 13))
  7.     End With
  8.     ReDim arr(1 To UBound(a), 1 To 7)
  9.     For j = 1 To UBound(a)
  10.         For i = 1 To 7
  11.             arr(j, i) = a(j, c(i - 1))
  12.         Next i, j
  13.         With Sheets("¶µ¥Ø9")
  14.             .Cells(2, 1).Resize(j - 1, 7) = arr
  15.             .Cells(2, 6).Resize(UBound(a), 1).SpecialCells(4) = "-"
  16.             .UsedRange.Borders.LineStyle = 1
  17.         End With
  18.     End Sub
½Æ»s¥N½X

TOP

¥»©«³Ì«á¥Ñ jackson7015 ©ó 2012-3-3 21:11 ½s¿è

¦^´_ 9# oobird

§Ú¨Ï¥Î¤Foobird¤j´£¨Ñªº¥¨¶°,«o¥X²{¤F,°õ¦æ¶¥¬q¿ù»~'1004'

¿ù»~°T®§¬°
µLªk²¾°Ê¼Ï¯Ã¤ÀªRªíªº¤@³¡¤À¡A©Î¦b¼Ï¯Ã¤ÀªRªí¤¤´¡¤J¤u§@ªíÀx¦s®æ¡A¦C©ÎÄæ¡D­Y­n´¡¤J¤u§@ªíÀx¦s®æ¡A¦C©ÎÄæ¡A­n¥ý²¾°Ê¼Ï¯Ã¤ÀªRªí(¿ï¨ú¸Ó¼Ï¯Ã¤ÀªRªí¡A¦b[¿ï¶µ]¯Á¤Þ¼ÐÅÒªº[°Ê§@]²Õ¸s¤¤¡A«ö¤U[²¾°Ê¼Ï¯Ã¤ÀªRªí])¡D­Y­n¦b¼Ï¯Ã¤ÀªRªí¤¤·s¼W¡A²¾°Ê©Î²¾°£Àx¦s®æ¡A½Ð°õ¦æ¤U¦C°Ê§@¤§¤@:
¡D¨Ï¥Î¼Ï¯Ã¤ÀªRªíÄæ¦ì²M³æ¨Ó·s¼W¡A²¾°Ê©Î²¾°£Äæ¦ì


¿ù»~¦C¬°
  1. .Cells(2, 1).Resize(j - 1, 7) = arr
½Æ»s¥N½X
¥i¥H³Â·ÐÀ°¦£¦A¬Ý¬Ý¤@¤U¶Ü

PS.§Ú§â¤é´Á¦C´«¨ì³Ì«eÀY(¹q¸¹«e­±),´N¯à¥¿±`±Æ§Ç¤F,¦ý¬O¦b«á­±«oµLªk¨Ï¥Î±Æ§Ç¡F¼Ï¯Ã¤ÀªRªí¬O§_¥u¦³²Ä¤@¦C¥i¥H±Æ§Ç ?

TOP

        ÀR«ä¦Û¦b : ¦³Ä@©ñ¦b¤ß¸Ì¡A¨S¦³¨­Åé¤O¦æ¡A¥¿¦p¯Ñ¥Ð¤£¼½ºØ¡A¬Ò¬OªÅ¹L¦]½t¡C
ªð¦^¦Cªí ¤W¤@¥DÃD