[µo°Ý] EXCEL VBA ¥Ñ­pºâ»¡©ú­pºâª÷ÃB(¤G)

ML089

­ìµo°Ý¦p¤U¡A¬O§Q¥Î§R°£¦r¦ê¨Ó§R°£³¡¥²­nªº¦r¤¸
http://forum.twbts.com/thread-7705-1-1.html

¦]¬°«e¤è¦¡ÁÙ¤£¬O«Ü¤è«K¨Ï¥Î¡A§Æ±æ³]©w²³æ³W«h¨Ó§R°£¤£¥²­nªº¦r¤¸©Î¬O«O¯d¥²­nªº¦r¤¸
CÄæ­pºâ»¡©ú¤¤¡A¥u­n«O¯d ¼Æ¦r 0-9¡A¹Bºâ²Å¸¹ + - * / ^ % ¡A¬A¸¹ ( ), ­^¤å a-z A-Z ¨ä¥L§R°£¡A
§R°£«á·|Åܦ¨¼Ð·Ç­pºâ¦¡¡A¦A­pºâ¦¡©ñ¤JDÄæª÷ÃBÄæ¡A¬°¤F¤è«KÀˬd¥¿½T©Ê¡A¥i§_¥H¤½¦¡¤è¦¡©ñ¤J¡C

¤U¸ü (28.72 KB)

2012-9-6 17:31

ÀÉ®× EXCEL VBA ­pºâ»¡©úÂàª÷ÃB(¤G).rar (5.99 KB)

¤U¸ü¦¸¼Æ: 12

2012-9-6 17:32

Hsieh

¦^´_ 1# ML089

¤U¸ü (95.24 KB)

2012-9-6 18:19

1. Function MyCal(Mystr$) As Double
   
2. Application.Volatile
   
3. Set d = CreateObject("Scripting.Dictionary")
   
4. ar = Array(40, 41, 42, 43, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 60, 61, 62, 91, 92, 93, 94, 95)
   
5. For i = 0 To UBound(ar)
   
6. d(Chr(ar(i))) = Chr(ar(i))
   
7. Next
   
8. For i = Len(Mystr) To 1 Step -1
   
9. Mystr = Replace(Mystr, Mid(Mystr, i, 1), d(Mid(Mystr, i, 1)))
   
10. Next
    
11. MyCal = Evaluate(Mystr)
    
12. End Function

½Æ»s¥N½X

ML089

¦^´_ 2# Hsieh
·PÁ¦^ÂСA
³o¦¸¦³ CreateObject("Scripting.Dictionary") Åý§Ú¤@ª½¬Ý¤£À´¡A¤Wºô¬ã¨s«á¤j­P¤w¸gÀ´¤F§Aªºµ{¦¡¡A
¦]¬°­n­×§ï¥h°£ªº½X¡A­«·s¨Ì·Ó§Aªº¤½¦¡ºc¬[½s¼g¦p¤U:

¥t¥~¦A¸É¥R½Ð±Ð¤@°ÝÃD¡A Mid(¦r¦ê, i, 1) ¨ú¥X¤@¦r¦p¦ó§P©w¬O¤¤¤å¦r?

Function MyCal(MyStr$) As Double
    Application.Volatile
    Set d = CreateObject("Scripting.Dictionary")
    Dic = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ.0123456789%+-*/^()"
    For i = 1 To Len(Dic)
        d(Mid(Dic, i, 1)) = Mid(Dic, i, 1)
    Next
    For i = Len(MyStr) To 1 Step -1
        MyStr = Replace(MyStr, Mid(MyStr, i, 1), d(Mid(MyStr, i, 1)))
    Next
    MyCal = Evaluate(MyStr)
End Function

Hsieh

¦^´_ 3# ML089
§PÂ_¬O§_¬°º~¦r¡A¥i§Q¥ÎASC¨ç¼Æ¨ú±o¦r¤¸½X¡A¤p©ó0«h¬°º~¦r

ML089

¦^´_ 4# Hsieh

·PÁ¦^ÂÐ

¦bEXCEL¬O¥ÎCODE¡Aº¸¥B½X¬O¥¿¼Æ5¦ì
¦bVBA¬O¥ÎASC¡Aº¸¥B½X¬O­t¼Æ5¦ì
VBAªºASC»PEXCELªºASC¬O¤£¦P·N¸q¡A
EXCELªº¨ç¼Æ»PVBAªº¨ç¼Æ¤£¦P¦W¥Îªk¤]¤£¦P¡A¾Ç²ß°_¨Ó¯u¬Oµh­W¡C

chin15

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

¤U¸ü¦¸¼Æ: 14

2012-9-7 17:27

ML089

¦^´_ 6# chin15
«z! ¨Ï¥Î CreateObject("VBSCRIPT.REGEXP") Åýµ{¦¡½X§óµu¡A¯u¼F®`
ÁöµM¬Ý¤£À´¡AÁÙ¬O¥ýµ¹¤@­ÓÆg
EXCEL¸Ì§ä¤£¨ì»¡©ú¡Aºô¸ô³£¬O¨Ò¤l§ä¤£¨ì§¹¾ã»¡©ú¡A¤£ª¾­þ¸Ì¦³»¡©ú¥i¥H¬Ý¡A¥i§_§iª¾ ¤@¤U¡C

chin15

http://www.dotblogs.com.tw/yc421206/archive/2008/12/14/6386.aspx

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

ML089

¦^´_ 8# chin15

»¡©ú²M·¡¡A·PÁ§A¡A¤SÅý§Ú¦h¾Ç¤F¦n´X©Û¡A¦Aµ¹§A¤@­Ó Æg