ªð¦^¦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¦Û°Ê±Æ§Ç

¥»©«³Ì«á¥Ñ jackson7015 ©ó 2012-3-28 01:04 ½s¿è

¦^´_ 9# oobird

·Q¦A½Ð±Ðoobird¤j¤j
¦pªG§Ú·Q§ó§ï¸ê®Æ®wªº®æ¦¡¬°¤U¦CÀɮסA¸Ó¦p¦ó§ó¥¿¿é¥Xªº¶µ¥Ø¥¨¶°
¤é³øªí-1.rar (51.04 KB)

¶µ¥Ø1ªº¦³ÃC¦â³¡¤À¡A¬O¥u»Ý­n¿é¥X¸ê®Æ®w¸ê®Æªº³¡¤À
¨ä¥L³¡¤À¬O©T©w³¡¤À


¡Ð¡Ð¡Ð
¦]¬°¦b¨Ï¥Î¼Ï¯Ã¤ÀªRªí®É¡A­Y¸ê®Æ®w¨S¦³¸Ó¶µ¥Øªº¸ê®Æ¡A·|Åã¥ÜªÅ¥Õ¦C¡A©ÎªÌÅã¥Ü¨ä¥L¶µ¥Ø¸ê®Æ
©Ò¥H¨C¦¸³£»Ý­n­«·s¤â°Ê¤Ä¿ï¶µ¥Ø(µL¸ê®Æ«h¤Ä¿ïªÅ¥Õ)¡A¦Ó¿ý»s¥¨¶°µo²{¡A¦n¹³µLªk°»´ú¨ì"¤Ä¿ï¶µ¥Ø"³o­Ó°Ê§@
¦Ó¸ê®Æ®wªº¦ì¸m¦]¬°¨ä¥L¤u§@­¶­±ªºÃö«Y¡A©Ò¥HµLªk§ó§ï¦ì¸m
§Æ±æ¤j¤j¯àÀ°¦£¸Ñ¨M¡A·PÁÂ

TOP

¦^´_ 13# oobird

À³¸Ó¬O»¡,¼Ï¯Ã¤ÀªRªíªº¦C¼ÐÅÒ¤¤,¥u¦³²Ä¤@¦C¥i¥H°µ±Æ§Ç?

±µÄ²EXCELªº®É¶¡¤£ªø,¨Ï¥Î¼Ï¯Ã¤ÀªRªíªº®É¶¡§ó¬O«Üµu,©Ò¥H­ì²z©M¨Ï¥Î¤è¦¡«Ü¦h³£¤£ºc©ú¥Õ

«e½ú­Ìªº«ü±Ð¤p§Ì³£·|µê¤ß±µ¨ü,ÁÂÁ«ü±Ð

TOP

¦^´_  register313

ÁA¸Ñ¤F¡A±q¤@¶}©l´N¯Ç´e¬°¦ó³£¤£¯à±Æ§Ç¡A­ì¨Ó¬O³o­Ó­ì¦]

¤£¹Lª¾¹D¤F¥u¦³²Ä¤@¦C¥i ...
jackson7015 µoªí©ó 2012-3-3 22:01


³o¼Ë»¡·|»~¾É·sªº¾Ç²ßªÌ¡C
excel¨S¦³³W©w¼Ï¶s¤¤¥u¦³²Ä¤@¦C¥i±Æ§Ç¡A¦Ó¥BÄæ¨Òªº¤À§O¤£­n²V²c¡C
³nÅé¯àµo´§¦h¤Ö¥\¯àºÝ¬Ý¨Ï¥ÎªÌ¹ï³nÅé»{ÃѪºµ{«×¡C

TOP

¦^´_ 11# register313

ÁA¸Ñ¤F¡A±q¤@¶}©l´N¯Ç´e¬°¦ó³£¤£¯à±Æ§Ç¡A­ì¨Ó¬O³o­Ó­ì¦]

¤£¹Lª¾¹D¤F¥u¦³²Ä¤@¦C¥i¥H±Æ§Çªº¸Ü´N¦n³B²z¦h¤F¡A¦Û¤v¦b¸ê®Æ®w«Ø¥ß¤@­Ó°Æ¤é´Á¡A¦A©ñ¨ì¼Ï¯Ã¤ÀªRªí²Ä¤@¦C§@±Æ§Ç¾ã²z¡A¦A±N¤§ÁôÂÃ

oobird¤j´£¨Ñªº¥¨¶°¹ï­ì¥»ªº¸ê®Æ¤]¦³¥Î³B¡AÁÙ­n¦AºCºC¬ã¨s¡A·PÁ¦U¦ìªº«ü±Ð¡A¨ü¯q¨}¦h¡AÁÂÁÂ

PS.°ÝÃD1.2.3¥i¯à¥u¯à¨Ï¥Î¥¨¶°¨Ó°µ¤F

TOP

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

¦^´_ 10# jackson7015
¥ý±N­ì¨Ó"¶µ¥Ø9"¤u§@ªí¤ºªº©Ò¦³¸ê®Æ³£§R°£ ±¼(¤£¥Î¼Ï¶s¤ÀªRªí¤F)
¦A°õ¦æ¥¨¶°
°õ¦æµ²ªG¬°


¼Ï¶s¤ÀªRªí¬°¤@¯S®íµ²ºc¤§¤ÀªR²Î­p³øªí
¤£¬O¨C¤@Äæ¦ì³£¯àÀH·N±Æ§Ç

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

¦^´_ 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

¦^´_ 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

¦^´_ 5# jackson7015


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

TOP

        ÀR«ä¦Û¦b : °µ¦n¨Æ¤£¯à¤Ö§Ú¤@¤H¡A°µÃa¨Æ¤£¯à¦h§Ú¤@¤H¡C
ªð¦^¦Cªí ¤W¤@¥DÃD