Baby Kingdom - 親子王國 香港 討論區 › 首頁 › 自由講場› excel 求救

自由講場

收藏本版
發帖
返回列表
跳至頁
excel 求救 [複製鏈接]

首頁
123

尾頁
   89
Mr.Long


大宅

積分: 4125

大廚勳章 BK猜猜猜慶中秋


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

Yubi.T


珊瑚宮

積分: 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
私人傳訊

RSG媽媽


瑪瑙宮

積分: 128853

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


3#
發表於 14-6-5 09:34 |只看該作者
Yubi.T 發表於 14-6-5 09:32
有 link 講

http://www.extendoffice.com/documents/excel/1142-excel-spell-out-numbers.html#a2 ...
貢複雜
私人傳訊

Yubi.T


珊瑚宮

積分: 117069

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


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

VBA 難唔到我

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

mmmio


男爵府

積分: 5051

畀面勳章


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

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

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

Yubi.T


珊瑚宮

積分: 117069

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


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

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

mmmio


男爵府

積分: 5051

畀面勳章


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

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

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

Yubi.T


珊瑚宮

積分: 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
私人傳訊

angelapple


男爵府

積分: 6148


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

回覆：excel 求救

唔知出面邊度有得學 ，好想由頭學起
私人傳訊

Yubi.T


珊瑚宮

積分: 117069

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


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

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

BOLOOIL


男爵府

積分: 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
私人傳訊

birdy09


翡翠宮

積分: 86809

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


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

回覆：excel 求救

學嘢先

私人傳訊

Mr.Long


大宅

積分: 4125

大廚勳章 BK猜猜猜慶中秋


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

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

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

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

itdididi


子爵府

積分: 13666


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

回覆：excel 求救

我想請下咩係「巨集」？
私人傳訊

kkboo


男爵府

積分: 7999

畀面勳章


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

回覆：excel 求救

我又偷到師
私人傳訊

9594


水晶宮

積分: 60290

熱血金章


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

回覆：excel 求救

有用，謝
私人傳訊

Yubi.T


珊瑚宮

積分: 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 "

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

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

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

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

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

  106. Select Case Val(Digit)
  107. Case 1: GetDigit = "ONE"
  108. Case 2: GetDigit = "TWO"
  109. Case 3: GetDigit = "THREE"
  110. Case 4: GetDigit = "FOUR"
  111. Case 5: GetDigit = "FIVE"
  112. Case 6: GetDigit = "SIX"
  113. Case 7: GetDigit = "SEVEN"
  114. Case 8: GetDigit = "EIGHT"
  115. Case 9: GetDigit = "NINE"
  116. End Select

  118. End Function
複製代碼

點評

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

Yubi.T


珊瑚宮

積分: 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
私人傳訊

itdididi


子爵府

積分: 13666


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

回覆：Yubi.T 的帖子

好多謝你～

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

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
私人傳訊


首頁
123

尾頁

跳至頁
返回列表
回覆
發帖
Presslogic Logo
Baby Kingdom Logo
聯絡管理員 廣告查詢 使用條款 免責聲明 使用意見

Copyright © 2026 Baby-Kingdom.com Limited. | Privacy Policy