建立SpellNumber 函數，將數字轉換成文字 - Microsoft Support

輸入公式= SpellNumber(A1) 到您想要用來顯示撰寫的數字，儲存格A1 在哪裡含有數字的儲存格您想要轉換。

您可以手動輸入值，例如= SpellNumber(22.50)。

· 按下Enter以確認 ... 跳到主要內容 Office支援 產品 Microsoft365 Office Outlook MicrosoftTeams OneDrive OneNote Windows MicrosoftEdge 更多... 裝置 Surface 電腦配件 行動裝置 Xbox HoloLens 硬體保固 新增功能 安裝Office 帳戶與計費 帳戶 MicrosoftStore與計費 範本 更多支援 社群論壇 Microsoft365系統管理員 小型企業系統管理員 開發人員 教育 回報支援詐騙 ExcelforMicrosoft365Excel2019Excel2016Excel2013Excel2010More...Less 附註: 我們想要以您的語言，用最快的速度為您提供最新的說明內容。

本頁面是經由自動翻譯而成，因此文中可能有文法錯誤或不準確之處。

讓這些內容對您有所幫助是我們的目的。

希望您能在本頁底部告訴我們這項資訊是否有幫助。

此為英文文章出處，以供參考。

Excel沒有顯示數字為在工作表中的英文單字的預設函數，但您可以透過下列SpellNumber函數程式碼貼入(VisualBasicforApplications)VBA模組新增這項功能。

此函數可讓您將元和角西非中部金額轉換成文字，以公式，因此22.50會標示為20兩個金額，為50分錢。

這可能是非常實用，如果您使用的Excel另存為範本列印檢查項目。

如果您想要轉換成文字格式的數值，而不使其顯示為文字，請改為使用TEXT函數。

附註: Microsoft提供不明示或隱含的圖例、程式設計的範例。

這包含，，但不限於銷售或適合特定用途的隱含的擔保責任。

本文假設您熟悉使用VBA程式設計語言，以及用來建立並偵錯程序的工具。

Microsoft技術支援工程師可協助說明特定的程序的功能。

不過，不會修改這些範例，以提供新增功能，或建構程序，以符合您特定需求。

建立SpellNumber函數，將數字轉換成文字 使用鍵盤快速鍵，Alt+F11開啟VisualBasic編輯器(VBE)。

附註: 您也可以在功能區中顯示[開發人員]索引標籤，藉此存取VisualBasic編輯器。

按一下[插入]索引標籤，再按一下[模組]。

複製下列程式碼行。

附註: 稱為使用者定義函數(UDF)，將此程式碼會自動將數字轉換成文字，在工作表的工作。

OptionExplicit 'MainFunction FunctionSpellNumber(ByValMyNumber) DimDollars,Cents,Temp DimDecimalPlace,Count ReDimPlace(9)AsString Place(2)="Thousand" Place(3)="Million" Place(4)="Billion" Place(5)="Trillion" 'Stringrepresentationofamount. MyNumber=Trim(Str(MyNumber)) 'Positionofdecimalplace0ifnone. DecimalPlace=InStr(MyNumber,".") 'ConvertcentsandsetMyNumbertodollaramount. IfDecimalPlace>0Then Cents=GetTens(Left(Mid(MyNumber,DecimalPlace+1)&_"00",2)) MyNumber=Trim(Left(MyNumber,DecimalPlace-1)) EndIf Count=1 DoWhileMyNumber<>"" Temp=GetHundreds(Right(MyNumber,3)) IfTemp<>""ThenDollars=Temp&Place(Count)&Dollars IfLen(MyNumber)>3Then MyNumber=Left(MyNumber,Len(MyNumber)-3) Else MyNumber="" EndIf Count=Count+1 Loop SelectCaseDollars Case"" Dollars="NoDollars" Case"One" Dollars="OneDollar" CaseElse Dollars=Dollars&"Dollars" EndSelect SelectCaseCents Case"" Cents="andNoCents" Case"One" Cents="andOneCent" CaseElse Cents="and"&Cents&"Cents" EndSelect SpellNumber=Dollars&Cents EndFunction 'Convertsanumberfrom100-999intotext FunctionGetHundreds(ByValMyNumber) DimResultAsString IfVal(MyNumber)=0ThenExitFunction MyNumber=Right("000"&MyNumber,3) 'Convertthehundredsplace. IfMid(MyNumber,1,1)<>"0"Then Result=GetDigit(Mid(MyNumber,1,1))&"Hundred" EndIf 'Convertthetensandonesplace. IfMid(MyNumber,2,1)<>"0"Then Result=Result&GetTens(Mid(MyNumber,2)) Else Result=Result&GetDigit(Mid(MyNumber,3)) EndIf GetHundreds=Result EndFunction 'Convertsanumberfrom10to99intotext. FunctionGetTens(TensText) DimResultAsString Result=""'Nulloutthetemporaryfunctionvalue. IfVal(Left(TensText,1))=1Then'Ifvaluebetween10-19... SelectCaseVal(TensText) Case10:Result="Ten" Case11:Result="Eleven" Case12:Result="Twelve" Case13:Result="Thirteen" Case14:Result="Fourteen" Case15:Result="Fifteen" Case16:Result="Sixteen" Case17:Result="Seventeen" Case18:Result="Eighteen" Case19:Result="Nineteen" CaseElse EndSelect Else'Ifvaluebetween20-99... SelectCaseVal(Left(TensText,1)) Case2:Result="Twenty" Case3:Result="Thirty" Case4:Result="Forty" Case5:Result="Fifty" Case6:Result="Sixty" Case7:Result="Seventy" Case8:Result="Eighty" Case9:Result="Ninety" CaseElse EndSelect Result=Result&GetDigit_ (Right(TensText,1))'Retrieveonesplace. EndIf GetTens=Result EndFunction 'Convertsanumberfrom1to9intotext. FunctionGetDigit(Digit) SelectCaseVal(Digit) Case1:GetDigit="One" Case2:GetDigit="Two" Case3:GetDigit="Three" Case4:GetDigit="Four" Case5:GetDigit="Five" Case6:GetDigit="Six" Case7:GetDigit="Seven" Case8:GetDigit="Eight" Case9:GetDigit="Nine" CaseElse:GetDigit="" EndSelect EndFunction 將上述程式碼行貼入[模組1(程式碼)]方塊中。

按下Alt+Q回到Excel。

SpellNumber函數現在已可供使用。

附註: 此函數的運作方式僅適用於目前的活頁簿。

若要在另一個活頁簿中使用此函數，您必須重複複製並貼上程式碼，該活頁簿中的步驟。

頁面頂端 在個別儲存格中使用SpellNumber函數 輸入公式=SpellNumber(A1)到您想要用來顯示撰寫的數字，儲存格A1在哪裡含有數字的儲存格您想要轉換。

您可以手動輸入值，例如=SpellNumber(22.50)。

按下Enter以確認公式。

頁面頂端 儲存您的SpellNumber函數活頁簿 Excel無法儲存內含巨集函數標準無巨集的活頁簿(.xlsx)格式的活頁簿。

如果您按一下[檔案>儲存。

VB專案]對話方塊隨即開啟。

按一下[無]。

您可以將檔案儲存為Excel啟用巨集活頁簿(.xlsm)若要保留目前的格式的檔案。

按一下[檔案]>[另存新檔]。

按一下[存檔類型]下拉式清單功能表，然後選取[Excel啟用巨集活頁簿。

按一下[儲存]。

頁面頂端 TEXT函數 Needmorehelp? Expandyourskills ExploreTraining Getnewfeaturesfirst JoinMicrosoftOfficeInsiders Wasthisinformationhelpful? Yes No Thankyou!Anymorefeedback?(Themoreyoutellusthemorewecanhelp.) Canyouhelpusimprove?(Themoreyoutellusthemorewecanhelp.) Howsatisfiedareyouwiththetranslationquality? Whataffectedyourexperience? Resolvedmyissue Clearinstructions Easytofollow Nojargon Pictureshelped Translationquality Didn'tmatchmyscreen Incorrectinstructions Tootechnical Notenoughinformation Notenoughpictures Translationquality Anyadditionalfeedback?(Optional) Submitfeedback Thankyouforyourfeedback! ×