µ{¦¡½X­×§ï

y663258

1.     Dim i&, R As Range, Y%
   
2. 
   
3.     i = 2: Y = 1
   
4. 
   
5.     With Sheet2
   
6. 
   
7.         Do While .Cells(i, "b") <> ""
   
8. 
   
9.            Set R = .Cells(i, "b")
   
10. 
    
11.             With Sheet1.Cells(i - 1, Y)
    
12. 
    
13.                 .Value = R & Chr(10) & R(1, 2) & R(1, 3) & R(1, 4) & Chr(10) & Chr(10) & R(1, 5) & Space(20) & R(1, 6) & "¦¬" & Chr(10)
    
14. 
    
15.                 .ColumnWidth = 33
    
16. 
    
17.                 .Borders.LineStyle = xlContinuous
    
18. 
    
19.                 .HorizontalAlignment = xlLeft
    
20. 
    
21.                 .VerticalAlignment = xlCenter
    
22. 
    
23.                 .IndentLevel = 1
    
24. 
    
25.              End With
    
26. 
    
27.             If Y = 1 Then
    
28. 
    
29.              Y = 1: i = i + 1
    
30. 
    
31.             Else
    
32. 
    
33.                 Y = Y + 1
    
34. 
    
35.             End If
    
36. 
    
37.         Loop
    
38. 
    
39.     End With
    
40. 
    
41.   '  Sheet1.PrintOut
    
42. 
    
43. End Sub

½Æ»s¥N½X

³oµ{¦¡½X¬O§Û¥Î¨ä¥L¤j¤j©Ò¼g¡A§Ú·Q§ïÅܸê®Æ¼g¤J¤è¦¡¡A1.­ì©l¤è¦¡¬Oa1'b1'c1'''''¦V¤U¼g¤J¡A¥i§_§ï¦¨a1,b1,c1,d1,e1,f1¡A¦A¸õa2,b2,c2,d2,e2,f2¡C
2. R(1, 2)¦r¤j¤p10¡AR(1, 6)¦r¤j¤p14¡C¦Û¤v·Q¤F³\¤[´N¬OµLªk¹F¦¨¡A½Ð¥ý¶iÀ°¦£¡C

hugh0620

¦^´_ 1# y663258


    «Øij¬O§_¶K­Ó½d¨Ò~ ·|¨Ï¤j¤j­Ì¤ñ¸û²M·¡§A¯u¥¿ªº»Ý¨D¬O¤°»ò~
    ³o¼Ë·|¤ñ¸û§ÖÀ°§A¸Ñ¨M§Aªº°ÝÃD­ò~~^^

y663258

ªþ¤WÀɮ׽Фj®aÀ°¦£Åo! 100.zip (5.51 KB)

¤U¸ü¦¸¼Æ: 9

2011-1-19 16:01

hugh0620

¦^´_ 3# y663258

    ·s¤â~ ¥u¦³²Â¤èªk~ ¤£¹L´ú¸Õ¬OOKªº~ §A¥i¥H¸Õ¤@¤U

  N = 0
For I = 1 To 2000
    For J = 1 To 6
            Sheet1.Cells(I, J) = Sheet2.Range("B" & N + 2) & Chr(10) & Sheet2.Range("C" & N + 2)
             W1 = Len(Sheet2.Range("B" & N + 1))
             W2 = Len(Sheet2.Range("C" & N + 1))
        With Sheet1.Cells(I, J).Characters(Start:=1, Length:=W1).Font
            .Name = "·s²Ó©úÅé"
            .FontStyle = "¼Ð·Ç"
            .Size = 12
        End With
        With Sheet1.Cells(I, J).Characters(Start:=W1 + 1, Length:=W1 + 1 + W2).Font
            .Name = "·s²Ó©úÅé"
            .FontStyle = "¼Ð·Ç"
            .Size = 10
        End With
        N = N + 1
        If Sheet2.Range("B" & N + 2) = "" Then Exit Sub
    Next
Next

Hsieh

¦^´_ 3# y663258

1. Sub nn()
   
2. Dim a(6), Ar()
   
3. r = 2
   
4. With Sheet2
   
5. Do Until .Cells(r, 2) = ""
   
6.    For i = 0 To 5
   
7.       a(i) = .Cells(r + i, 2) & Chr(10) & .Cells(r + i, 3)
   
8.    Next
   
9.    ReDim Preserve Ar(s)
   
10.    Ar(s) = a
    
11.    s = s + 1
    
12.    r = r + 6
    
13. Loop
    
14. End With
    
15. Sheet1.[A1].Resize(s, 6) = Application.Transpose(Application.Transpose(Ar))
    
16. End Sub

½Æ»s¥N½X

hugh0620

¦^´_ 5# Hsieh


    ¤j¤j~ §A¤Öº|¤F¤@­Ó¨S¦³¼g¨ì~
   R(1, 2)¦r¤j¤p10¡AR(1, 6)¦r¤j¤p14 ¤å¦r"§õ¤@"¤j¤p12"¡A"1111"¤j¤p10"
   ¦P¤@­ÓÀx¦s®æ ¤W­±ªº¦r­nsize=12  , ¤U­±ªº¦r­nsize=10

y663258

·PÁÂhugh0620  Hsieh ¤G¦ì¤j¤jÀ°§U¡A¯¬ºÖ·s¦~§Ö¼Ö¡C

y663258

¦A½Ð±ÐHsieh¤j¤j µ{¦¡¤¤¦p¦ó¥h³]©wCells(r + i, 2)¤å¦r¤j¤p12"¤ÎCells(r + i, 3)¤G­Ó¤å¦r¤j¤p¤å¦r¤j¤p12"
ÁÂÁÂ

Hsieh

¦^´_ 8# y663258

1. Sub nn()
   
2. Dim a(6), Ar(), C As Range
   
3. r = 2
   
4. With Sheet2
   
5. Do Until .Cells(r, 2) = ""
   
6.    For i = 0 To 5
   
7.       a(i) = .Cells(r + i, 2) & Chr(10) & .Cells(r + i, 3)
   
8.    Next
   
9.    ReDim Preserve Ar(s)
   
10.    Ar(s) = a
    
11.    s = s + 1
    
12.    r = r + 6
    
13. Loop
    
14. End With
    
15. With Sheet1.[A1].Resize(s, 6)
    
16. .Value = Application.Transpose(Application.Transpose(Ar))
    
17. For Each C In .Cells
    
18.    C.Characters(1, InStr(C, Chr(10))).Font.Size = 12
    
19.    C.Characters(InStr(C, Chr(10)), 256).Font.Size = 10
    
20. Next
    
21. End With
    
22. End Sub

½Æ»s¥N½X

y663258

ÁÂÁÂHsieh ª©¥D¡A¯u¬OÅý¤HÆg¨Ø¡A³o¼Ë´N¤£¨ü¦r¼Æ­­¨î¡A¸õ¦æ«á¸Ó¦æ¦r¤j¤p¤@­P¡C