把数字转成英文字

●建立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。->