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

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

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

3^#

發表於 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 三鍵輸入公式

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 253
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-11-21

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

4^#

發表於 2012-9-7 15:21 | 只看該作者

回復 3# ML089
判斷是否為漢字，可利用ASC函數取得字元碼，小於0則為漢字

學海無涯_不恥下問

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

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

5^#

發表於 2012-9-7 17:25 | 只看該作者

回復 4# Hsieh

感謝回覆

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

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

chin15

中學生 Rank: 2

帖子: 227
主題: 3
精華: 1
積分: 273
點名: 0
作業系統: XP
軟體版本: XP
閱讀權限: 20
性別: 女
註冊時間: 2011-3-22
最後登錄: 2013-1-29

6^#

發表於 2012-9-7 17:27 | 只看該作者

EXCEL VBA 計算說明轉金額(二).rar (7.58 KB)

1 評分人數

Hsieh: 給你一個讚!金錢 + 2

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

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

7^#

發表於 2012-9-7 23:34 | 只看該作者

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

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

chin15

中學生 Rank: 2

帖子: 227
主題: 3
精華: 1
積分: 273
點名: 0
作業系統: XP
軟體版本: XP
閱讀權限: 20
性別: 女
註冊時間: 2011-3-22
最後登錄: 2013-1-29

8^#

發表於 2012-9-8 08:19 | 只看該作者

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

c_c_lai

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

9^#

發表於 2012-9-8 09:27 | 只看該作者

回復 1# ML089
提供你參考。

Function decodeFMT(decode As String) As String
Dim tLen%, txt$, num$
If Len(decode) = 0 Then decodeFMT = "": Exit Function
num = "=Sum("
For tLen = 1 To Len(decode)
txt = Mid(decode, tLen, 1)
If txt = "(" Or txt = ")" Or txt = "+" Or txt = "+" Or txt = "+" Or txt = "-" Or txt = "*" Or txt = "/" Or (txt >= "0" And txt <= "9") Then
num = num + txt
End If
Next tLen
decodeFMT = num + ")"
End Function

複製代碼

EXCEL VBA 計算說明轉金額.rar (9.07 KB)

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

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

10^#

發表於 2012-9-8 10:24 | 只看該作者

回復 8# chin15

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

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