興趣嗜好 今日: 6 | 主題: 124512

積分: 1530

1^#

發表於 09-4-27 15:05 |只看該作者 |倒序瀏覽 |打印

如題,如係B2輸入HKD1200.25,點樣係A2自動變成:HONG KONG DOLLARS ONE THOUSAND TWO HUNDRED AND CENTS TWENTY FIVE ONLY. 搵食艰難啊,請幫下忙,唔該!

0 0 0

私人傳訊

Aardvark

積分: 7559

2^#

發表於 09-4-27 16:55 |只看該作者

原帖由 kittymam 於 09-4-27 15:05 發表

如題,如係B2輸入HKD1200.25,點樣係A2自動變成:HONG KONG DOLLARS ONE THOUSAND TWO HUNDRED AND CENTS TWENTY FIVE ONLY. 搵食艰難啊,請幫下忙,唔該!

See if this could help.

In short, save your xls without closing it. Open a VB session and paste everything in it. Go back to your xls and from "

aste", locate your new function. Test it and seem OK. The only missing is HK Dollars. For that, use concat function.

Good luck.

私人傳訊

http://hk.search.yahoo.com/search?p=excel+%E6%95%B8%E5%AD%97%E8%BD%89%E8%8B%B1%E6%96%87&fr=FP-tab-web-t-ac&ei=UTF-8&meta=rst%3Dhk

積分: 5436

3^#

發表於 09-4-27 17:38 |只看該作者

原帖由 kittymam 於 09-4-27 15:05 發表

如題,如係B2輸入HKD1200.25,點樣係A2自動變成:HONG KONG DOLLARS ONE THOUSAND TWO HUNDRED AND CENTS TWENTY FIVE ONLY. 搵食艰難啊,請幫下忙,唔該!

呢樣唔得, o個樣唔得, 呢樣唔准, o個樣唔准......牛耕田,馬食穀,老豆賺錢女享福。

私人傳訊

積分: 1366

4^#

發表於 09-4-28 12:25 |只看該作者

官方教授，望望啦：

http://support.microsoft.com/kb/q213360/

私人傳訊

Aardvark

積分: 7559

5^#

發表於 09-4-28 12:36 |只看該作者

And if you find coping and paste VBA is too difficult, you solve it by $$

Try thisbut you have to pay for it.

私人傳訊

積分: 1530

6^#

發表於 09-4-28 12:51 |只看該作者

好多謝大家!
我好蠢啊,去到插入模組,將成個程式COPY落去就停係度唔上面又有退出設計模組又有其他,我唔知要再點做,大家可唔可以再教下我啊?唔該晒大家!

原帖由 小必理痛 於 09-4-28 12:25 發表
官方教授，望望啦：

http://support.microsoft.com/kb/q213360/

私人傳訊

積分: 1530

7^#

發表於 09-4-28 12:55 |只看該作者

Aardvark:

Thank you very much! i am so sorry i can't understand. would you reply me in chinese?
Thank you!

可否用中文答我幫我,唔該晒!

原帖由 Aardvark 於 09-4-27 16:55 發表

See if this could help.

In short, save your xls without closing it. Open a VB session and paste everything in it. Go back to your xls and from "aste", locate your new function. Test it and seem ...

私人傳訊

http://blog.defend-lock.com.tw/node/605

&

http://forum.baby-kingdom.com/viewthread.php?tid=1872429&extra=page%3D1

積分: 5436

8^#

發表於 09-4-29 10:59 |只看該作者

[ 本帖最後由 spmok1999 於 09-4-29 11:08 編輯 ]

呢樣唔得, o個樣唔得, 呢樣唔准, o個樣唔准......牛耕田,馬食穀,老豆賺錢女享福。

私人傳訊

積分: 1366

9^#

發表於 09-4-29 14:59 |只看該作者

睇怕都要圖文並茂講解一次了：

1. 係Excel嘅menu度選：工具->巨集->Visual Basic 編輯器

2. 進入編輯器後，係左邊專案窗度右Click呢個Microsoft Excel物件（或VBA Project (Book1)都可以），選：插入->模組，咁應該會見到多左一個叫Module1嘅野，並且會被highlight。

3. 係右邊空白嘅程式區，將我send俾你嘅VBA程式copy過黎呢處，然後就可以關閉編輯器。

4. 呢個Function叫做SpellNumber，實測一下：先係A1打個數字，係B1就打=SpellNumber(A1)，咁就會出到你要嘅答案啦。

私人傳訊

積分: 1530

10^#

發表於 09-4-29 16:53 |只看該作者

好多謝晒大家,超級多謝晒!小必理痛,萬分感激你!

但仲有少少問題請教:

如我輸入120佢會出"ONE HUNDRED TWENTY DOLLARS AND NO CENTS "但開支票通常寫ONE HUNDRED TWENTY ONLY.唔要DOLLARS 同當無CENTS唔要出"NO CENTS",呢個問題可以改善嗎?

即我想: ONE HUNDRED TWENTY ONLY.
而當125.55: ONE HUNDRED TWENTY FIVE AND CENTS FIFTY FIVE ONLY.

謝謝!

原帖由 小必理痛 於 09-4-29 14:59 發表
睇怕都要圖文並茂講解一次了：

1. 係Excel嘅menu度選：工具->巨集->Visual Basic 編輯器

2. 進入編輯器後，係左邊專案窗度右Click呢個Microsoft Excel物件 ...

[ 本帖最後由 kittymam 於 09-4-29 17:22 編輯 ]

私人傳訊

積分: 1366

11^#

發表於 09-4-29 18:08 |只看該作者

咁就要修改程式啦。

1. 入番去Visual Basic 編輯器。

2. 大約去到第三十幾行左右，搵呢句：Select Case Dollars。佢個段程式句係咁：

Select Case Dollars
Case ""
Dollars = " No Dollars"
Case "One"
Dollars = "One Dollar"
Case Else
Dollars = Dollars & " Dollars"
End Select

Select Case Cents
Case ""
Cents = " and No Cents"
Case "One"
Cents = " and One Cent"
Case Else
Cents = " and " & Cents & " Cents"
End Select

3. 將上述咁多行嘅文字改成如下：

If Dollars <> "" Or Cents <> "" Then
SpellNumber = Dollars & iif(Cents <> "", " and ", "") & Cents & " Only"
End If

咁就做到你想要嘅野，唔使怕寫錯呀，寫錯電腦會提你，只要你改番就得。

私人傳訊

積分: 1530

12^#

發表於 09-4-30 09:59 |只看該作者

小必理痛:

多謝晒,但又有嘢請教啊,唔該!

唔好意思,我真係好白痴,我唔知去邊度開返舊有的模組來改,要點架?

我唔識唯有另開一個新的excel來設巨集,但copy你設的去改,當我打15.05佢出"fifteenfive",咁又唔啱了,點算?
當我打150.50佢又出ONE HUNDRED FIFTY FIFTY,啱樣又唔啱,點算啊?而且有無辦法係所有字後面有only.

其實我係要將金額變大寫:115.05變為 ONE HUNDRED FIFTEEN AND CENTS FIVE ONLY.
因為開支票用,要點改個程式啊?

唔該晒!

原帖由 小必理痛 於 09-4-29 18:08 發表
咁就要修改程式啦。

1. 入番去Visual Basic 編輯器。

2. 大約去到第三十幾行左右，搵呢句：Select Case Dollars。佢個段程式句係咁：

Select Case Dollars
Case ""
Dollars = " No Dollars"
Case "One"
Do ...

私人傳訊

積分: 1366

13^#

發表於 09-4-30 10:43 |只看該作者

噢，我明白了，我講漏左少少。

你搵番我昨日叫你修改嘅語句，佢應該係o係一句叫End Function嘅樓上。

而呢句End Function對上有一句係咁：
SpellNumber = Dollars & Cents

將呢一句刪除，因為我教你修改嘅語句，其實已經做左你要嘅野，但當佢行呢句SpellNumber = Dollars & Cents嘅時候，會再修改你嘅答案，岩變成唔岩，所以必須要刪除。

再試試。

P.S. 仲有，你所寫嘅巨集係包含o係你嘅Excel檔案裡面，即係話，如果你有第二個Excel檔案都係要執行呢個SpellNumber巨集，咁你就要重新跟我教你嘅step去做先得。不過Excel本身亦有個人巨集活頁簿，可以將寫左嘅巨集搬去該處當公共程式執行，但就只限o係你嘅Excel檔案上出答案，就唔可以好似你寫一句：=SpellNumber(A1)　咁嘅樣架啦。

[ 本帖最後由小必理痛於 09-4-30 10:53 編輯 ]

私人傳訊

積分: 5436

14^#

發表於 09-4-30 10:54 |只看該作者

原帖由 kittymam 於 09-4-30 09:59 發表
小必理痛:

多謝晒,但又有嘢請教啊,唔該!

唔好意思,我真係好白痴,我唔知去邊度開返舊有的模組來改,要點架?

我唔識唯有另開一個新的excel來設巨集,但copy你設的去改,當我打15.05佢出"fifteenfive",咁又唔啱了,點算? ...

copy 原本的貼上後將原本的...

Select Case Cents
Case ""
Cents = " and No Cents"
Case "One"
Cents = " and One Cent"
Case Else
Cents = " and " & Cents & " Cents"
End Select

...改成...以下

Select Case Cents
Case ""
Cents = ""
Case "One"
Cents = " and One Cent"
Case Else
Cents = " and" & " Cents " & Cents
End Select

以下是全部要改的:

Loop
Select Case Dollars
Case ""
Dollars = "No Dollars"
Case "One"
Dollars = "One Dollar"
Case Else
Dollars = Dollars & ""
End Select
Select Case Cents
Case ""
Cents = ""
Case "One"
Cents = " and One Cent"
Case Else
Cents = " and" & " Cents " & Cents
End Select
SpellNumber = Dollars & Cents & " Only"
End Function
_____________________________________

*如果之前要加 "Hong Kong Dollars" 的話 last 一句要改成咁"
End Select
SpellNumber = "Hong Kong Dollars " & Dollars & Cents & " Only"
End Function

[ 本帖最後由 spmok1999 於 09-4-30 11:34 編輯 ]

呢樣唔得, o個樣唔得, 呢樣唔准, o個樣唔准......牛耕田,馬食穀,老豆賺錢女享福。

私人傳訊

積分: 1530

15^#

發表於 09-4-30 11:11 |只看該作者

多謝晒啊!

唔好意思,但宜家又變成:如125.05出來係one hundred twenty five and five only. (無cents ),點算?

而我係話我原本個file設好晒d位,又編咗模組,宜家點去改各個模組啊?

唔好意思啊,人蠢無辦法,麻煩晒大家!多謝晒!

原帖由 小必理痛 於 09-4-30 10:43 發表
噢，我明白了，我講漏左少少。

你搵番我昨日叫你修改嘅語句，佢應該係o係一句叫End Function嘅樓上。

而呢句End Function對上有一句係咁：
SpellNumber = Dollars & Cents

將呢一句刪除，因為我教你修改嘅語句，其實已經做左 ...

私人傳訊

積分: 1366

16^#

發表於 09-4-30 11:46 |只看該作者

我發覺原來我都係一個幾差嘅人，我冇睇清楚你嘅requirement，真係抱歉！

再黎：

將原先最開初話有No Cent個段，即係如下：
Select Case Dollars
Case ""
Dollars = "No Dollars"
Case "One"
Dollars = "One Dollar"
Case Else
Dollars = Dollars & " Dollars"
End Select
Select Case Cents
Case ""
Cents = " and No Cents"
Case "One"
Cents = " and One Cent"
Case Else
Cents = " and " & Cents & " Cents"
End Select
SpellNumber = Dollars & Cents

改成如下：
If Cents <> "" Then
Cents = " and " & IIf(Cents　= "One", "Cent ", "Cents ") & Trim(Cents)
End If
SpellNumber = Dollars & Cents & " Only"

測試過，呢趟應該冇問題啦卦？

私人傳訊

積分: 5436

17^#

發表於 09-4-30 12:01 |只看該作者

原帖由 小必理痛 於 09-4-30 11:46 發表
我發覺原來我都係一個幾差嘅人，我冇睇清楚你嘅requirement，真係抱歉！

再黎：

將原先最開初話有No Cent個段，即係如下：
Select Case Dollars
Case ""
Dollars = "No Dollars"
Case "One"
Dollars = "One Dollar"
Case Else
Dollars = Dollars & " Dollars"
End Select
Select Case Cents
Case ""
Cents = " and No Cents"
Case "One"
Cents = " and One Cent"
Case Else
Cents = " and " & Cents & " Cents"
End Select
SpellNumber = Dollars & Cents

改成如下：
If Cents <> "" Then
Cents = " and " & IIf(Cents　= "One", "Cent ", "Cents ") & Trim(Cents)
End If
SpellNumber = Dollars & Cents & " Only"

按樓主要求的話, 係咪多o左呢個字呢? (紅色 hightlight 部份)
同埋 & Cents & " Cents" 係咪應該調一調個次序呢? (紅色 hightlight 部份)
仲有 " and One Cent" 改成 " and Cent One"

*我個人覺得將官方網頁的原版修改少少會較容易呢!

[ 本帖最後由 spmok1999 於 09-4-30 12:38 編輯 ]

呢樣唔得, o個樣唔得, 呢樣唔准, o個樣唔准......牛耕田,馬食穀,老豆賺錢女享福。

私人傳訊