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

½Ð°Ýsheet Äæ¦ìÂà´«°ÝÃD

¦^´_ 20# tonycho33


    sheet Äæ¦ìÂà´«.rar (21.27 KB)

TOP

¦^´_ 19# Hsieh


½Ð°Ý¤@¤U ¤Ï¬õªº³o­Óµ{¦¡¡A·í¦bb sheet¶ñ¤JfÄæ"ok"«á
µ{¦¡«Ü¥¿±`¥i¥H®Ú¾ÚÄæ¦ìÅýa sheetÀx¦s®æ¤Ï¬õ
¥i¬O¥u­n¤Á´«sheet®É¡A¥u­n¤Á´«¨ìa sheet®É¦n¹³·|ÅܺC¡A¤@ª½¦bŪ¨ú¤¤

¦ý¬O¦b§R°£Àx¦s®æ³o­Óµ{¦¡®É¡A¿é¤J§¹"OK"
¤Á´«sheet®É¡A¤£·|¼vÅT¡A½Ð°Ý¦p¦ó¸Ñ¨M©O
ÁÂÁÂ
Tony

TOP

¦^´_ 22# tonycho33


    sheet Äæ¦ìÂà´«.zip (24.2 KB)

TOP

¦^´_ 23# register313

½Ð°Ý a-b ¬O«ü¤Ï¬õµ{¦¡
        a1-b1¬O«ü§R°£¦ì²¾µ{¦¡
¬°¤°»ò¤Á´«¨ìa sheet®É·|ÅܺC«Ü¦h
¦³¿ìªk­×§ï¶Ü
ÁÂÁÂ

sheet Äæ¦ìÂà´«.rar (30.8 KB)

Tony

TOP

¦^´_ 24# tonycho33
¦^´_ 24# GBKEE

·PÁÂGBKEEª©¥D§¹¦¨­×§ï

¤Á´«¨ìa sheet®É·|ÅܺC«Ü¦h???
¬O§R°£Äæ¦ì­n¤À³\¦h¦¸§¹¦¨§a

sheet Äæ¦ìÂà´«.zip (40.59 KB)

TOP

¦^´_ 25# register313


   §A¦n¡A¨Ï¥Î¹L«á¡AÁÙ¬O¤@¼Ëa sheet¤Á´««á·|ÅܺC
Ū¨ú®É«öesc «h¿ù»~°T®§°±¯d¦bNext
¦P¼Ëa2 sheet´N·|«Ü¥¿±`
½Ð¨D¨ó§U
ÁÂÁÂ
Tony

TOP

¦^´_ 26# tonycho33

­Ó¤H¾Þ§@¨ÃµL '¤Á´«¦Üsheet a"·|ÅܺC¤§±¡§Î

1.´«¥x¹q¸£¸Õ¸Õ¬Ý
2.¸Ô²Ó»¡©ú§Aªº¾Þ§@¨BÆJ ·Q¿ìªkÅý§Úª¾¹Dª¬ªp
   ¤£µM§A»¡¦³°ÝÃD §Ú»¡¨S°ÝÃD ¥Ã»·µLªk¸Ñ§Ö

TOP

¦^´_ 19# Hsieh


    ½Ð°ÝA¡ãEÄæ·s¼W¦C¼Æ¡A¦ýG~SÄ楼·s¼W
³o¼Ë·|µ{¦¡·|¥X²{¿ù»~­n¦p¦ó­×§ï©O
ÁÂÁÂ

sheet Äæ¦ìÂà´«.rar (18.35 KB)

Tony

TOP

¦^´_ 28# tonycho33
  1. Sub Âà¸m()

  2. Dim A As Range, Ar(), Ay(), i%, j%, Ary(), s&

  3. r = 2

  4. With Sheets("a")

  5. Do Until .Cells(r, 1) = ""

  6. Set A = .Cells(r, 1)

  7. Ar = A.Resize(, 4)

  8. k = Application.CountA(.Range(A.Offset(, 6), A.Offset(, 6).End(xlToRight)))
  9. If k = 0 Then GoTo 10
  10. Ay = A.Offset(, 6).Resize(3, k).Value

  11. For i = 1 To UBound(Ay, 2)

  12. ReDim Preserve Ary(7, s)

  13. Ary(0, s) = Ar(1, 1): Ary(1, s) = Ar(1, 2): Ary(6, s) = Ar(1, 4)

  14.    For j = 1 To UBound(Ay, 1)

  15.    Ary(j + 1, s) = Ay(j, i)

  16.    Next

  17.    s = s + 1

  18. Next
  19. 10
  20. r = r + 3

  21. Loop

  22. End With

  23. Sheets("b").UsedRange.Offset(1) = ""

  24. Sheets("b").[A2].Resize(s, 7) = Application.Transpose(Ary)

  25. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 29# Hsieh


½Ð°Ý¤@¤U ¤§«eªºµ{¦¡¤¤
    JÄ椧«e¿é¤J¡yOK¡z·|¤Ï¬õ
¥i¥H§ï¦¨JÄ榳¿é¤J®É¶¡ªº¸Ü¤Ï¬õ
                     ¥u¦³¿é¤JIÄæ¨S¦³¿é¤JJÄæ«h¤Ïºñ
¤u³æ¸¹½X¬Û¦P¤§¤U     J2©MI3ªº®É¶¡®t¶W¹L4¤p®É«h¤Ï¶À
¨ä¾l«hªÅ¥Õ
ÁÂÁÂ

sheet Äæ¦ìÂà´«.rar (19.23 KB)

Tony

TOP

        ÀR«ä¦Û¦b : ­ì½Ì§O¤H´N¬Oµ½«Ý¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD