kimbal

¦^´_ 1# y663258

¤j¬ù¬O³o¼Ë? ¦æ¼Æ¤º¤j¤p¼g¦º.

1.      Dim strstr As Variant
   
2.     Dim strstr as variant
   
3.     Dim size As variant
   
4.     size = array(22,12,16,12,16,7)
   
5.     strstr = Sheet2.Range("A1:A6").Value
   
6.    
   
7.     If UBound(strstr) <= 0 Then
   
8.         Exit Sub
   
9.     End If
   
10.       
    
11.     Sheet1.Range("A1").Value = Space(4)
    
12.     For i = 1 To UBound(strstr)
    
13.         Sheet1.Range("A1").Value = Sheet1.Range("A1").Value & strstr(i, 1) & Chr(10) & Space(4)
    
14.     Next
    
15.     Sheet1.Range("A1").Value = Left(Sheet1.Range("A1").Value, Len(Sheet1.Range("A1").Value) - 5)
    
16.     j = 4
    
17.    
    
18.     For i = 1 To UBound(strstr)
    
19.         Sheet1.Range("A1").Characters(j, j + Len(strstr(i, 1)) + 5).Font.size = size(i)
    
20.         j = j + Len(strstr(i, 1)) + 6
    
21.     Next

½Æ»s¥N½X