[發問] EXCEL VBA 由計算說明計算金額(二)

帖子: 2025
主題: 13
精華: 0
積分: 2053
點名: 0
作業系統: WIN7
軟體版本: Office2007
閱讀權限: 100
性別: 男
來自: 台北市
註冊時間: 2011-3-2
最後登錄: 2024-3-14

論壇榮譽勳章論壇贊助勳章熱烈參與勳章 2014馬年全勤獎章 2015羊年全勤獎章 2016猴年全勤獎章

2^#

發表於 2012-9-7 14:01 | 顯示全部帖子

回復 2# Hsieh
感謝回覆，
這次有 CreateObject("Scripting.Dictionary") 讓我一直看不懂，上網研究後大致已經懂了你的程式，
因為要修改去除的碼，重新依照你的公式構架編寫如下:

另外再補充請教一問題， Mid(字串, i, 1) 取出一字如何判定是中文字?

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

{...} 表示需要用 CTRL+SHIFT+ENTER 三鍵輸入公式

帖子: 2025
主題: 13
精華: 0
積分: 2053
點名: 0
作業系統: WIN7
軟體版本: Office2007
閱讀權限: 100
性別: 男
來自: 台北市
註冊時間: 2011-3-2
最後登錄: 2024-3-14

論壇榮譽勳章論壇贊助勳章熱烈參與勳章 2014馬年全勤獎章 2015羊年全勤獎章 2016猴年全勤獎章

3^#

發表於 2012-9-7 17:25 | 顯示全部帖子

回復 4# Hsieh

感謝回覆

在EXCEL是用CODE，爾且碼是正數5位
在VBA是用ASC，爾且碼是負數5位
VBA的ASC與EXCEL的ASC是不同意義，
EXCEL的函數與VBA的函數不同名用法也不同，學習起來真是痛苦。

{...} 表示需要用 CTRL+SHIFT+ENTER 三鍵輸入公式

帖子: 2025
主題: 13
精華: 0
積分: 2053
點名: 0
作業系統: WIN7
軟體版本: Office2007
閱讀權限: 100
性別: 男
來自: 台北市
註冊時間: 2011-3-2
最後登錄: 2024-3-14

論壇榮譽勳章論壇贊助勳章熱烈參與勳章 2014馬年全勤獎章 2015羊年全勤獎章 2016猴年全勤獎章

4^#

發表於 2012-9-7 23:34 | 顯示全部帖子

回復 6# chin15
哇! 使用 CreateObject("VBSCRIPT.REGEXP") 讓程式碼更短，真厲害
雖然看不懂，還是先給一個讚
EXCEL裡找不到說明，網路都是例子找不到完整說明，不知哪裡有說明可以看，可否告知一下。

{...} 表示需要用 CTRL+SHIFT+ENTER 三鍵輸入公式

帖子: 2025
主題: 13
精華: 0
積分: 2053
點名: 0
作業系統: WIN7
軟體版本: Office2007
閱讀權限: 100
性別: 男
來自: 台北市
註冊時間: 2011-3-2
最後登錄: 2024-3-14

論壇榮譽勳章論壇贊助勳章熱烈參與勳章 2014馬年全勤獎章 2015羊年全勤獎章 2016猴年全勤獎章

5^#

發表於 2012-9-8 10:24 | 顯示全部帖子

回復 8# chin15

說明清楚，感謝你，又讓我多學了好幾招，再給你一個讚

{...} 表示需要用 CTRL+SHIFT+ENTER 三鍵輸入公式

帖子: 2025
主題: 13
精華: 0
積分: 2053
點名: 0
作業系統: WIN7
軟體版本: Office2007
閱讀權限: 100
性別: 男
來自: 台北市
註冊時間: 2011-3-2
最後登錄: 2024-3-14

論壇榮譽勳章論壇贊助勳章熱烈參與勳章 2014馬年全勤獎章 2015羊年全勤獎章 2016猴年全勤獎章

6^#

發表於 2012-9-8 10:31 | 顯示全部帖子

回復 9# c_c_lai

謝謝你提供，在看你的公式時，也讓我想到另一種簡單寫法(列舉法)
Function MyCal(MyStr$) As Double
Dim Dic As String, xStr As String
Dic = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ.0123456789%+-*/^()"
For i = 1 To Len(MyStr)
      If InStrB(1, Dic, Mid(MyStr, i, 1), 1) <> 0 Then
         xStr = xStr & Mid(MyStr, i, 1)
      End If
Next i
MyCal = Evaluate(xStr)
End Function

{...} 表示需要用 CTRL+SHIFT+ENTER 三鍵輸入公式