ML089

版主 Rank: 7 Rank: 7 Rank: 7

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

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

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2012-9-4 20:13 | 只看該作者

EXCEL VBA 由計算說明計算金額

EXCEL VBA 由計算說明計算金額

E欄為自訂之刪除字串(會再增加)，用來刪除B欄計算說明中的字串，最後會變成計算式，再將計算式計算為C蘭的金額。

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

懇請協助，謝謝

樓主熱帖

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

ML089

版主 Rank: 7 Rank: 7 Rank: 7

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

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

9^#

發表於 2012-9-5 09:58 | 只看該作者

回復 8# Hsieh

我想使用上還是以最後這方式比較簡單
感謝你的不厭其煩的協助

不知道要如何給你一個讚，或像Y+給你最佳回答
要如何CLOSE本問題?

{...} 表示需要用 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兔年全勤獎章

8^#

發表於 2012-9-5 09:07 | 只看該作者

回復 7# ML089

Function MyCal(Mystr As String) As Double
MyStrList=Array("斤","兩","蘋果","香蕉","沙蝦")
For Each a In MyStrList
Mystr = Replace(Mystr, a, "")
Next
MyCal = Evaluate(Mystr)
End Function

複製代碼

學海無涯_不恥下問

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-5 00:20 | 只看該作者

回復 6# Hsieh

謝謝回覆，但和我想要的有點不一樣，因為我不會改，希望再麻煩一下

如果沒有輸入第二參數時，可以用內定參數值 "斤","兩","蘋果","香蕉","沙蝦"

是指第二參數仍是 RANGE
如第二參數沒有輸入時( =MyCal(B2) )，刪除字串使用 FUNCTION內的一組參數陣列 "斤","兩","蘋果","香蕉","沙蝦" (寫在FUNCTION 裡面)

{...} 表示需要用 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兔年全勤獎章

6^#

發表於 2012-9-4 23:46 | 只看該作者

回復 5# ML089

Function MyCal(Mystr As String, ParamArray MyStrList()) As Double
For Each a In MyStrList
Mystr = Replace(Mystr, a, "")
Next
MyCal = Evaluate(Mystr)
End Function

複製代碼

學海無涯_不恥下問

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-4 23:05 | 只看該作者

回復 4# Hsieh

太棒了，自訂函數還是比較好用

最後再麻煩一下
如果沒有輸入第二參數時，可以用內定參數值 "斤","兩","蘋果","香蕉","沙蝦"
如能改成這樣就太完美了
先謝謝你

{...} 表示需要用 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兔年全勤獎章

4^#

發表於 2012-9-4 22:20 | 只看該作者

回復 3# ML089

Function MyCal(Mystr As String, Rng As Range) As Double
For Each a In Rng
Mystr = Replace(Mystr, a, "")
Next
MyCal = Evaluate(Mystr)
End Function

複製代碼

C2=mycal(B2,$E$2:$E$6)

學海無涯_不恥下問

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猴年全勤獎章

3^#

發表於 2012-9-4 22:04 | 只看該作者

回復 2# Hsieh
感謝，經測試完全正確

是否可以再幫忙改為自定函數
例如我在 C2 輸入 =計算(B2) 就能計算出來
E欄的刪除字串我想放入自定函數中比較方便使用(因為有不同的格式要用才不用一直改程式)，也麻煩預留刪除字串要擴充的空間，再次請託，感謝

{...} 表示需要用 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兔年全勤獎章

2^#

發表於 2012-9-4 20:27 | 只看該作者

回復 1# ML089

Sub nn()
For Each b In Range([B2], [B65536].End(xlUp))
mystr = b
For Each a In Range("E:E").SpecialCells(xlCellTypeConstants)
mystr = Replace(mystr, a, "")
Next
b.Offset(, 1) = Evaluate(mystr)
Next
End Sub

複製代碼

學海無涯_不恥下問

TOP