●建立D2T巨集，并把快速鍵設為Shift Ctrl T。
●寫入程式碼：
SubD2T()
DimMyStrAsString
MyStr=ActiveCell.Text
IfIsNumeric(MyStr)=TrueThen
ActiveCell.Value=""
SelectCaseLen(MyStr)
Case1
OneDG(MyStr)
Case2
TwoDG(MyStr)
Case3
ThreeDG(MyStr)
Case4
OneDG(Left(MyStr,1))
ActiveCell.Value=ActiveCell.Value "Thousand"
ThreeDG(Right(MyStr,3))
Case5
TwoDG(Left(MyStr,2))
ActiveCell.Value=ActiveCell.Value "Thousand"
ThreeDG(Right(MyStr,3))
Case6
ThreeDG(Left(MyStr,3))
ActiveCell.Value=ActiveCell.Value "Thousand"
ThreeDG(Right(MyStr,3))
Case7
OneDG(Left(MyStr,1))
ActiveCell.Value=ActiveCell.Value "Millon"
ThreeDG(Mid(MyStr,2,3))
ActiveCell.Value=ActiveCell.Value "Thousand"
ThreeDG(Right(MyStr,3))
Case8
TwoDG(Left(MyStr,2))
ActiveCell.Value=ActiveCell.Value "Millon"
ThreeDG(Mid(MyStr,3,3))
ActiveCell.Value=ActiveCell.Value "Thousand"
ThreeDG(Right(MyStr,3))
Case9
ThreeDG(Left(MyStr,3))
ActiveCell.Value=ActiveCell.Value "Millon"
ThreeDG(Mid(MyStr,4,3))
ActiveCell.Value=ActiveCell.Value "Thousand"
ThreeDG(Right(MyStr,3))
Case10
OneDG(Left(MyStr,1))
ActiveCell.Value=ActiveCell.Value "Billon"
ThreeDG(Mid(MyStr,2,3))
ActiveCell.Value=ActiveCell.Value "Millon"
ThreeDG(Mid(MyStr,5,3))
ActiveCell.Value=ActiveCell.Value "Thousand"
ThreeDG(Right(MyStr,3))
Case11
TwoDG(Left(MyStr,2))
ActiveCell.Value=ActiveCell.Value "Billon"
ThreeDG(Mid(MyStr,3,3))
ActiveCell.Value=ActiveCell.Value "Millon"
ThreeDG(Mid(MyStr,6,3))
ActiveCell.Value=ActiveCell.Value "Thousand"
ThreeDG(Right(MyStr,3))
CaseElse
EndSelect
EndIf
EndSub
SubOneDG(MyStrAsString)
SelectCaseMyStr
Case"0"
IfActiveCell.Value=""ThenActiveCell.Value=ActiveCell.Value "Zero"
Case"1"
ActiveCell.Value=ActiveCell.Value "One"
Case"2"
ActiveCell.Value=ActiveCell.Value "Two"
Case"3"
ActiveCell.Value=ActiveCell.Value "Three"
Case"4"
ActiveCell.Value=ActiveCell.Value "Four"
Case"5"
ActiveCell.Value=ActiveCell.Value "Five"
Case"6"
ActiveCell.Value=ActiveCell.Value "Six"
Case"7"
ActiveCell.Value=ActiveCell.Value "Seven"
Case"8"
ActiveCell.Value=ActiveCell.Value "Eight"
Case"9"
ActiveCell.Value=ActiveCell.Value "Nine"
EndSelect
EndSub
SubTwoDG(MyStrAsString)
SelectCaseMyStr
Case"10"
ActiveCell.Value=ActiveCell.Value "Ten"
Case"11"
ActiveCell.Value=ActiveCell.Value "eleven"
Case"12"
ActiveCell.Value=ActiveCell.Value "Twelve"
Case"13"
ActiveCell.Value=ActiveCell.Value "Thirteen"
Case"14"
ActiveCell.Value=ActiveCell.Value "Fourteen"
Case"15"
ActiveCell.Value=ActiveCell.Value "Fifteen"
Case"16"
ActiveCell.Value=ActiveCell.Value "Sixteen"
Case"17"
ActiveCell.Value=ActiveCell.Value "Seventeen"
Case"18"
ActiveCell.Value=ActiveCell.Value "Eighteen"
Case"19"
ActiveCell.Value=ActiveCell.Value "Nineteen"
CaseElse
SelectCaseLeft(MyStr,1)
Case"2"
ActiveCell.Value=ActiveCell.Value "Twenty"
Case"3"
ActiveCell.Value=ActiveCell.Value "Thirty"
Case"4"
ActiveCell.Value=ActiveCell.Value "Forty"
Case"5"
ActiveCell.Value=ActiveCell.Value "Fifty"
Case"6"
ActiveCell.Value=ActiveCell.Value "Sixty"
Case"7"
ActiveCell.Value=ActiveCell.Value "Seventy"
Case"8"
ActiveCell.Value=ActiveCell.Value "Eighty"
Case"9"
ActiveCell.Value=ActiveCell.Value "Ninety"
EndSelect
OneDG(Right(MyStr,1))
EndSelect
EndSub
SubThreeDG(MyStrAsString)
SelectCaseLeft(MyStr,1)
Case"1"
ActiveCell.Value=ActiveCell.Value "OneHandred"
Case"2"
ActiveCell.Value=ActiveCell.Value "TwoHandred"
Case"3"
ActiveCell.Value=ActiveCell.Value "ThreeHandred"
Case"4"
ActiveCell.Value=ActiveCell.Value "FourHandred"
Case"5"
ActiveCell.Value=ActiveCell.Value "FiveHandred"
Case"6"
ActiveCell.Value=ActiveCell.Value "SixHandred"
Case"7"
ActiveCell.Value=ActiveCell.Value "SevenHandred"
Case"8"
ActiveCell.Value=ActiveCell.Value "EightHandred"
Case"9"
ActiveCell.Value=ActiveCell.Value "NightHandred"
EndSelect
TwoDGRight(MyStr,2)
EndSub
●上面的程式碼可以處理到11位數。●隨意輸入一個未超過11位數的數字，然后把輸入游標移到該Cell里。
●一同按下Shift Ctrl T。->
