- ©«¤l
- 5923
- ¥DÃD
- 13
- ºëµØ
- 1
- ¿n¤À
- 5986
- ÂI¦W
- 0
- §@·~¨t²Î
- win10
- ³nÅ骩¥»
- Office 2010
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥xÆW°ò¶©
- µù¥U®É¶¡
- 2010-5-1
- ³Ì«áµn¿ý
- 2022-1-23
|
¥»©«³Ì«á¥Ñ GBKEE ©ó 2010-8-26 07:58 ½s¿è
¦^´_ 3# y663258
Dim strstr As Variant ¦b¦³®Ä½d³ò¤º «´_«Å§i §R±¼
size(i) ¨S¦³´î1 sizeªº°}¦C·|¶W¥X°}¦Cªº½d³ò ×¥¿¦p¤U
Sheet1.Range("A1").Characters(j, j + Len(strstr(i, 1)) + 5).Font.size = size(i-1)
¥t¥~ j = j + Len(strstr(i, 1)) + 6 +6·|¶W¥X1Ó¦r¤¸ À³¬O +5 ¤~¥¿½T
¥t¤@¸Ñªk°Ñ¦Ò°Ñ¦Ò- Sub Ex()
- Dim Rng As Range, strstr As Variant, size As Variant, i%
- Set Rng = Sheet2.Range("A1:A6")
- size = Array(22, 12, 16, 12, 16, 7)
- For i = 1 To Rng.Rows.Count
- If Rng(i) <> "" Then
- strstr = IIf(strstr <> "", strstr & Chr(10) & Space(4) & Rng(i), Space(4) & Rng(i))
- End If
- Next
- If Len(strstr) < Rng.Rows.Count Then Exit Sub
- Sheet1.Range("A1").Value = strstr
- j = 4
- For i = 1 To Rng.Rows.Count
- If Rng(i) <> "" Then
- Sheet1.Range("A1").Characters(j, j + Len(Rng(i))).Font.size = size(i - 1)
- j = j + Len(Rng(i)) + 5
- End If
- Next
- End Sub
½Æ»s¥N½X |
|