- ©«¤l
- 52
- ¥DÃD
- 13
- ºëµØ
- 0
- ¿n¤À
- 119
- ÂI¦W
- 0
- §@·~¨t²Î
- xp
- ³nÅ骩¥»
- OFFICE 2003
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2010-5-6
- ³Ì«áµn¿ý
- 2022-6-7
|
·PÁÂkimbal ª©¥D¤j¤O¨ó§U´ú¸Õ«á°}¦C¯Á¤Þ¶W¥X½d³ò¡A¥i§_¦AÀ°Ó¦£×¥¿¡CÁÂÁÂ
Sub h()
Dim strstr As Variant
Dim size As Variant
size = Array(22, 12, 16, 12, 16, 7)
strstr = Sheet2.Range("A1:A6").Value
If UBound(strstr) <= 0 Then
Exit Sub
End If
Sheet1.Range("A1").Value = Space(4)
For i = 1 To UBound(strstr)
Sheet1.Range("A1").Value = Sheet1.Range("A1").Value & strstr(i, 1) & Chr(10) & Space(4)
Next
Sheet1.Range("A1").Value = Left(Sheet1.Range("A1").Value, Len(Sheet1.Range("A1").Value) - 5)
j = 4
For i = 1 To UBound(strstr)
Sheet1.Range("A1").Characters(j, j + Len(strstr(i, 1)) + 5).Font.size = size(i)
j = j + Len(strstr(i, 1)) + 6
Next
End Sub |
|