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

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

1^# 跳轉到 » 正序看帖

字體大小: tT

發表於 2012-9-6 17:34 | 只看該作者

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

原發問如下，是利用刪除字串來刪除部必要的字元
http://forum.twbts.com/thread-7705-1-1.html

因為前方式還不是很方便使用，希望設定簡單規則來刪除不必要的字元或是保留必要的字元
C欄計算說明中，只要保留數字 0-9，運算符號 + - * / ^ % ，括號 ( ), 英文 a-z A-Z 其他刪除，
刪除後會變成標準計算式，再計算式放入D欄金額欄，為了方便檢查正確性，可否以公式方式放入。

檔案

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

樓主熱帖

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

c_c_lai

博士班 Rank: 6 Rank: 6

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

12^#

發表於 2012-9-8 17:20 | 只看該作者

回復 11# ML089
一個是帶入公式、另一個直接換算為值，
都是蠻不錯且簡單的處理方式。

TOP

ML089

版主 Rank: 7 Rank: 7 Rank: 7

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

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

11^#

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

TOP

ML089

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 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 三鍵輸入公式

TOP

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)

TOP

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

TOP

ML089

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 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 三鍵輸入公式

TOP

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

TOP

ML089

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 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 三鍵輸入公式

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

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

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