register313

¦^´_ 20# tonycho33


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

¤U¸ü¦¸¼Æ: 7

2012-1-3 11:56

tonycho33

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

register313

¦^´_ 22# tonycho33


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

¤U¸ü¦¸¼Æ: 5

2012-1-3 15:32

tonycho33

¦^´_ 23# register313

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

register313

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

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

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

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

¤U¸ü¦¸¼Æ: 13

2012-1-4 16:10

tonycho33

¦^´_ 25# register313


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

register313

¦^´_ 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¸Ñ§Ö

tonycho33

¦^´_ 19# Hsieh


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

Hsieh

¦^´_ 28# tonycho33

1. Sub Âà¸m()
   
2. 
   
3. Dim A As Range, Ar(), Ay(), i%, j%, Ary(), s&
   
4. 
   
5. r = 2
   
6. 
   
7. With Sheets("a")
   
8. 
   
9. Do Until .Cells(r, 1) = ""
   
10. 
    
11. Set A = .Cells(r, 1)
    
12. 
    
13. Ar = A.Resize(, 4)
    
14. 
    
15. k = Application.CountA(.Range(A.Offset(, 6), A.Offset(, 6).End(xlToRight)))
    
16. If k = 0 Then GoTo 10
    
17. Ay = A.Offset(, 6).Resize(3, k).Value
    
18. 
    
19. For i = 1 To UBound(Ay, 2)
    
20. 
    
21. ReDim Preserve Ary(7, s)
    
22. 
    
23. Ary(0, s) = Ar(1, 1): Ary(1, s) = Ar(1, 2): Ary(6, s) = Ar(1, 4)
    
24. 
    
25.    For j = 1 To UBound(Ay, 1)
    
26. 
    
27.    Ary(j + 1, s) = Ay(j, i)
    
28. 
    
29.    Next
    
30. 
    
31.    s = s + 1
    
32. 
    
33. Next
    
34. 10
    
35. r = r + 3
    
36. 
    
37. Loop
    
38. 
    
39. End With
    
40. 
    
41. Sheets("b").UsedRange.Offset(1) = ""
    
42. 
    
43. Sheets("b").[A2].Resize(s, 7) = Application.Transpose(Ary)
    
44. 
    
45. End Sub

½Æ»s¥N½X

tonycho33

¦^´_ 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ªÅ¥Õ
ÁÂÁÂ