­ã´£³¡ªL

¦^´_ 15# yahoohk1314


Sub TEST_02()
Dim i%, C%, U%, T$
With Range("A1")
     For i = 1 To Len(.Value) + 1
         T = Trim(Mid(.Value, i, 1))
         If T = "+" Then U = i: C = 43
         If T = "-" Then U = i: C = 3
         If T = "" Then With .Characters(U, i - U).Font: .Size = 10: .ColorIndex = C: End With
     Next i
End With
End Sub