c_c_lai

¦^´_ 1# ML089
´£¨Ñ§A°Ñ¦Ò¡C

1. Function decodeFMT(decode As String) As String
   
2.     Dim tLen%, txt$, num$
   
3.    
   
4.     If Len(decode) = 0 Then decodeFMT = "": Exit Function
   
5.     num = "=Sum("
   
6.     For tLen = 1 To Len(decode)
   
7.            txt = Mid(decode, tLen, 1)
   
8.            If txt = "(" Or txt = ")" Or txt = "+" Or txt = "+" Or txt = "+" Or txt = "-" Or txt = "*" Or txt = "/" Or (txt >= "0" And txt <= "9") Then
   
9.                 num = num + txt
   
10.            End If
    
11.     Next tLen
    
12.     decodeFMT = num + ")"
    
13. End Function

½Æ»s¥N½X

EXCEL VBA ­pºâ»¡©úÂàª÷ÃB.rar (9.07 KB)

¤U¸ü¦¸¼Æ: 6

2012-9-8 09:27

c_c_lai

¦^´_ 11# ML089
¤@­Ó¬O±a¤J¤½¦¡¡B¥t¤@­Óª½±µ´«ºâ¬°­È¡A
³£¬OÆZ¤£¿ù¥B²³æªº³B²z¤è¦¡¡C