自由講場

跳至

首頁

尾頁
   89


大宅

積分: 4125

大廚勳章 BK猜猜猜慶中秋


1#
發表於 14-6-5 09:29 |只看該作者
請教2013 MS Excel spellnumber點整?Thanks


珊瑚宮

積分: 117069

+3金熱血 畀面勳章 BK猜猜猜慶中秋 BK Milk勳章 hashtag影視迷勳章 育兒性格勳章 開心吸收勳章


2#
發表於 14-6-5 09:32 |只看該作者
本帖最後由 Yubi.T 於 14-6-5 09:34 編輯

有 link 講

http://www.extendoffice.com/documents/excel/1142-excel-spell-out-numbers.html

點評

Mr.Long  睇下先  發表於 14-6-5 09:52
全力支持捐血行動~
Blood for Life 熱血使命 @ fb


瑪瑙宮

積分: 128853

畀面勳章 環保接龍勳章 大廚勳章


3#
發表於 14-6-5 09:34 |只看該作者
貢複雜


珊瑚宮

積分: 117069

+3金熱血 畀面勳章 BK猜猜猜慶中秋 BK Milk勳章 hashtag影視迷勳章 育兒性格勳章 開心吸收勳章


4#
發表於 14-6-5 09:35 |只看該作者
RSG媽媽 發表於 14-6-5 09:34
貢複雜

VBA 難唔到我



全力支持捐血行動~
Blood for Life 熱血使命 @ fb


男爵府

積分: 5051

畀面勳章


5#
發表於 14-6-5 09:46 |只看該作者

引用:Quote:RSG媽媽 發表於 14-6-5 09:34 貢複雜

原帖由 Yubi.T 於 14-06-05 發表
VBA 難唔到我
咁教下我。。。。我想學,但唔知從邊學起。。
請問你係自學定出去學架?


珊瑚宮

積分: 117069

+3金熱血 畀面勳章 BK猜猜猜慶中秋 BK Milk勳章 hashtag影視迷勳章 育兒性格勳章 開心吸收勳章


6#
發表於 14-6-5 09:48 |只看該作者
mmmio 發表於 14-6-5 09:46
咁教下我。。。。我想學,但唔知從邊學起。。
請問你係自學定出去學架?

我係(excel)錄巨集學起,再編輯時睇 help 咁學,十二年功力,有返咁上下而已
全力支持捐血行動~
Blood for Life 熱血使命 @ fb


男爵府

積分: 5051

畀面勳章


7#
發表於 14-6-5 09:55 |只看該作者

引用:Quote:mmmio 發表於 14-6-5 09:46 咁教下我

原帖由 Yubi.T 於 14-06-05 發表
我係(excel)錄巨集學起,再編輯時睇 help 咁學,十二年功力,有返咁上下而已 ...
買書自學架?勁!


珊瑚宮

積分: 117069

+3金熱血 畀面勳章 BK猜猜猜慶中秋 BK Milk勳章 hashtag影視迷勳章 育兒性格勳章 開心吸收勳章


8#
發表於 14-6-5 10:13 |只看該作者
本帖最後由 Yubi.T 於 14-6-5 10:16 編輯
mmmio 發表於 14-6-5 09:55
買書自學架?勁!

無買書,係 excel 錄巨集,編輯時在 Microsoft Visual Basic for Applications window 按 Help 嚟睇咁 lor... (也可 highlight d 字後按 "F1")

呢 d 睇書無用,要自己常用果 d 功能錄巨集,咁先會知佢做緊乜,容易 d 上手,睇書果 d function 都唔一定啱自己用

例如:
1. 按 Ctrl+down 會錄到 Selection.End(xlDown).Select
2. 睇 help 搜尋 "End" 會搵到 Range.End 屬性
3. 入去睇就有更多範例參考


睇 help 搜尋的技巧,重點在 "." 後面果個字,如上面 (1) 的 .End,所以可以係 highlight 咗個 "End" 字按 "F1" 就可以見到果個 function 的 help


全力支持捐血行動~
Blood for Life 熱血使命 @ fb


男爵府

積分: 6148


9#
發表於 14-6-5 10:26 |只看該作者

回覆:excel 求救

唔知出面邊度有得學 ,好想由頭學起




珊瑚宮

積分: 117069

+3金熱血 畀面勳章 BK猜猜猜慶中秋 BK Milk勳章 hashtag影視迷勳章 育兒性格勳章 開心吸收勳章


10#
發表於 14-6-5 10:40 |只看該作者
angelapple 發表於 14-6-5 10:26
唔知出面邊度有得學 ,好想由頭學起

工聯會有,不過我上過無乜用,我有自己一套學習模式唔識跟佢學
全力支持捐血行動~
Blood for Life 熱血使命 @ fb


男爵府

積分: 8855

畀面勳章


11#
發表於 14-6-5 11:01 |只看該作者
回覆 Mr.Long 的帖子

我唔識VBA無法講解...但我就用以下方法做...希望幫到你

http://support.microsoft.com/kb/213360/zh-tw

1. 先COPY 內容程式碼 : 由 option explict 至到end function
2. 開EXCEL > 開發人員> Visual Basic > 插入> 模組>貼上 > 按(ALT+F11)回到EXCEL >
3. 在A1儲存格輸入$120 > 在B2儲存格輸入=Spellnumber(A1)
4. 最緊要係最後SAVE AS > Excel 啟用巨集的範本 (如果無做E個動作就會晒資料)


點評

emt1314  好有用,學到野~  發表於 14-8-19 22:28


翡翠宮

積分: 86809

牛年勳章 2018父親節勳章 2018母親節勳章 2018復活節勳章 15週年勳章 親子王國15週年勳章 親子王國15週年勳章 熱血勳章 玩具勳章 畀面勳章 好媽媽勳章 醒目開學勳章 環保接龍勳章 大廚勳章 親子達人勳章 遊學勳章 BK猜猜猜慶中秋 冬日勳章 春季勳章 炎夏勳章 秋日勳章 BK Milk勳章 hashtag旅遊勳章 hashtag影視迷勳章 DHA勳章 育兒性格勳章 認識瑞士牛牛第一回 認識瑞士牛牛第二回 認識瑞士牛牛第三回 認識瑞士牛牛第四回 最關心BB問題熱投勳章 美好大世界2017勳章 開心吸收勳章 瞓得好勳章


12#
發表於 14-6-5 11:17 |只看該作者

回覆:excel 求救

學嘢先


大宅

積分: 4125

大廚勳章 BK猜猜猜慶中秋


13#
發表於 14-6-6 19:15 |只看該作者

引用:回覆 Mr.Long 的帖子我唔識VBA無法講解...

原帖由 BOLOOIL 於 14-06-05 發表
回覆 Mr.Long 的帖子

我唔識VBA無法講解...但我就用以下方法做...希望幫到你
整咗出嚟可以全大楷英文?


子爵府

積分: 13666


14#
發表於 14-6-6 19:35 |只看該作者

回覆:excel 求救

我想請下咩係「巨集」?




男爵府

積分: 7999

畀面勳章


15#
發表於 14-6-6 19:39 |只看該作者

回覆:excel 求救

我又偷到師


水晶宮

積分: 60290

熱血金章


16#
發表於 14-6-6 19:44 |只看該作者

回覆:excel 求救

有用,謝


珊瑚宮

積分: 117069

+3金熱血 畀面勳章 BK猜猜猜慶中秋 BK Milk勳章 hashtag影視迷勳章 育兒性格勳章 開心吸收勳章


17#
發表於 14-6-7 10:20 |只看該作者
Mr.Long 發表於 14-6-6 19:15
整咗出嚟可以全大楷英文?
當然可以啦,你又唔問我


  1. Option Explicit
  2. 'Main Function
  3. Function SpellNumber(ByVal MyNumber)
  4. Dim Dollars, Cents, Temp
  5. Dim DecimalPlace, Count
  6. ReDim Place(9) As String
  7. Place(2) = " THOUSAND "
  8. Place(3) = " MILLION "
  9. Place(4) = " BILLION "
  10. Place(5) = " TRILLION "

  11. ' 代表數字的字串。
  12. MyNumber = Trim(Str(MyNumber))
  13. ' 如果值為無,則十進位 0 的位置。
  14. DecimalPlace = InStr(MyNumber, ".")
  15. ' 換算分然後將 MyNumber 的數字設為元。
  16. If DecimalPlace > 0 Then
  17. Cents = GetTens(Left(Mid(MyNumber, DecimalPlace + 1) & "00", 2))
  18. MyNumber = Trim(Left(MyNumber, DecimalPlace - 1))
  19. End If
  20. Count = 1
  21. Do While MyNumber <> ""
  22. Temp = GetHundreds(Right(MyNumber, 3))
  23. If Temp <> "" Then Dollars = Temp & Place(Count) & Dollars
  24. If Len(MyNumber) > 3 Then
  25. MyNumber = Left(MyNumber, Len(MyNumber) - 3)
  26. Else
  27. MyNumber = ""
  28. End If
  29. Count = Count + 1
  30. Loop
  31. Select Case Dollars
  32. Case ""
  33. Dollars = "NO DOLLARS"
  34. Case "ONE"
  35. Dollars = "ONE DOLLAR"
  36. Case Else
  37. Dollars = Dollars & " DOLLARS"
  38. End Select
  39. Select Case Cents
  40. Case ""
  41. Cents = " AND NO CENTS"
  42. Case "ONE"
  43. Cents = " AND ONE CENT"
  44. Case Else
  45. Cents = " AND " & Cents & " CENTS"
  46. End Select
  47. SpellNumber = Dollars & Cents
  48. End Function

  49. ' 將數字 100-999 轉換為文字
  50. Function GetHundreds(ByVal MyNumber)
  51. Dim Result As String
  52. If Val(MyNumber) = 0 Then Exit Function

  53. MyNumber = Right("000" & MyNumber, 3)
  54. ' 換算百進位的。
  55. If Mid(MyNumber, 1, 1) <> "0" Then
  56. Result = GetDigit(Mid(MyNumber, 1, 1)) & " HUNDRED "
  57. End If
  58. ' 換算十進位和一進位。
  59. If Mid(MyNumber, 2, 1) <> "0" Then
  60. Result = Result & GetTens(Mid(MyNumber, 2))
  61. Else
  62. Result = Result & GetDigit(Mid(MyNumber, 3))
  63. End If
  64. GetHundreds = Result
  65. End Function

  66. ' 將數字 10 到 99 轉換為文字。
  67. Function GetTens(TensText)
  68. Dim Result As String
  69. Result = "" ' Null out the temporary function value.
  70. If Val(Left(TensText, 1)) = 1 Then ' If value between 10-19...
  71. Select Case Val(TensText)
  72. Case 10: Result = "TEN"
  73. Case 11: Result = "ELEVEN"
  74. Case 12: Result = "TWELVE"
  75. Case 13: Result = "THIRTEEN"
  76. Case 14: Result = "FOURTEEN"
  77. Case 15: Result = "FIFTEEN"
  78. Case 16: Result = "SIXTEEN"
  79. Case 17: Result = "SEVENTEEN"
  80. Case 18: Result = "EIGHTEEN"
  81. Case 19: Result = "NINETEEN"
  82. End Select
  83. Else ' 如果值介於 20-99...
  84. Select Case Val(Left(TensText, 1))
  85. Case 2: Result = "TWENTY "
  86. Case 3: Result = "THIRTY "
  87. Case 4: Result = "FORTY "
  88. Case 5: Result = "FIFTY "
  89. Case 6: Result = "SIXTY "
  90. Case 7: Result = "SEVENTY "
  91. Case 8: Result = "EIGHTY "
  92. Case 9: Result = "NINETY "
  93. End Select
  94. Result = Result & GetDigit(Right(TensText, 1)) ' Retrieve ones place.
  95. End If
  96. GetTens = Result
  97. End Function

  98. ' 將數字 1 到 9 轉換為文字。
  99. Function GetDigit(Digit)

  100. Select Case Val(Digit)
  101. Case 1: GetDigit = "ONE"
  102. Case 2: GetDigit = "TWO"
  103. Case 3: GetDigit = "THREE"
  104. Case 4: GetDigit = "FOUR"
  105. Case 5: GetDigit = "FIVE"
  106. Case 6: GetDigit = "SIX"
  107. Case 7: GetDigit = "SEVEN"
  108. Case 8: GetDigit = "EIGHT"
  109. Case 9: GetDigit = "NINE"
  110. End Select

  111. End Function
複製代碼

點評

Mrs.Kangaroo  頭暈  發表於 14-6-7 16:12
Mr.Long  好叻叻  發表於 14-6-7 14:49
全力支持捐血行動~
Blood for Life 熱血使命 @ fb


珊瑚宮

積分: 117069

+3金熱血 畀面勳章 BK猜猜猜慶中秋 BK Milk勳章 hashtag影視迷勳章 育兒性格勳章 開心吸收勳章


18#
發表於 14-6-7 10:22 |只看該作者
itdididi 發表於 14-6-6 19:35
我想請下咩係「巨集」?

巨集Macro),是一種批次批量處理的稱謂。

source:http://zh.wikipedia.org/wiki/%E5%B7%A8%E9%9B%86
全力支持捐血行動~
Blood for Life 熱血使命 @ fb


子爵府

積分: 13666


19#
發表於 14-6-7 14:26 |只看該作者

回覆:Yubi.T 的帖子

好多謝你~

真心請問可唔可以用「白話」大約講一講果段理論的意思?因為我睇完都唔係好明?你可唔可以舉一個小例子讓我易些理解?






珊瑚宮

積分: 117069

+3金熱血 畀面勳章 BK猜猜猜慶中秋 BK Milk勳章 hashtag影視迷勳章 育兒性格勳章 開心吸收勳章


20#
發表於 14-6-7 14:38 |只看該作者
itdididi 發表於 14-6-7 14:26
好多謝你~

真心請問可唔可以用「白話」大約講一講果段理論的意思?因為我睇完都唔係好明?你可唔可以舉一 ...

簡單講,巨集係幫你做出一 d 麻煩又不斷重覆的指令

Microsoft Office 是我們會常常接觸到可執行巨集的應用程式

所以如果你想學的話,建議你由 Excel 先入手

上文我有講過例子了,你可以參考
全力支持捐血行動~
Blood for Life 熱血使命 @ fb

首頁

尾頁

跳至
Presslogic Logo
Baby Kingdom Logo