Excel数字大写转换

1.阿拉伯数字转换中文大写。

=IF((A7-INT(A7))=0,TEXT(A7,"[DBNUM2]")&"元整",IF(INT(A7*10)-A7*10=0,TEXT(INT(A7),"[DBNUM2]")&"元"&TEXT((INT(A7*10)-INT(A7)*10),"[DBNUM2]")&"角整",TEXT(INT(A7),"[DBNUM2]")&"元"&IF(INT(A7*10)-INT(A7)*10=0,"零",TEXT(INT(A7*10)-INT(A7)*10,"[DBNUM2]")&"角")&TEXT(RIGHT(A7,1),"[DBNUM2]")&"分"))该函数中只需将A7换成你要转换的数值所在单元格即可。

2.阿拉伯数字转换英文大写（编写SpellNumber实例函数）2.1启动Microsoft Excel。

2.2按Alt+F11 启动Visual Basic 编辑器。

2.3在“插入”菜单上，单击“模块”。

2.4在模块表中键入下面的代码。

Function ConvertCurrencyToEnglish(ByVal MyNumber)Dim TempDim Dollars, CentsDim DecimalPlace, CountReDim Place(9) As StringPlace(2) = " Thousand "Place(3) = " Million "Place(4) = " Billion "Place(5) = " Trillion "' Convert MyNumber to a string, trimming extra spaces.MyNumber = Trim(Str(Round(MyNumber, 2)))' Find decimal place.DecimalPlace = InStr(MyNumber, ".")' If we find decimal place...If DecimalPlace > 0 Then' Convert centsTemp = Left(Mid(MyNumber, DecimalPlace + 1) & "00", 2)Cents = ConvertTens(Temp)' Strip off cents from remainder to convert.MyNumber = Trim(Left(MyNumber, DecimalPlace - 1))End IfCount = 1Do While MyNumber <> ""' Convert last 3 digits of MyNumber to English dollars.Temp = ConvertHundreds(Right(MyNumber, 3))If Temp <> "" Then Dollars = Temp & Place(Count) & Dollars If Len(MyNumber) > 3 Then' Remove last 3 converted digits from MyNumber.MyNumber = Left(MyNumber, Len(MyNumber) - 3)ElseMyNumber = ""End IfCount = Count + 1Loop' Clean up dollars.Select Case DollarsCase ""Dollars = "No Dollars"Case "One"Dollars = "One Dollar"Case ElseDollars = Dollars & " Dollars"End Select' Clean up cents.Select Case CentsCase ""Cents = " Only"Case "One"Cents = " And One Cent"Case ElseCents = " And " & Cents & " Cents"End SelectConvertCurrencyToEnglish = Dollars & CentsEnd FunctionPrivate Function ConvertHundreds(ByVal MyNumber) Dim Result As String' Exit if there is nothing to convert.If Val(MyNumber) = 0 Then Exit Function' Append leading zeros to number.MyNumber = Right("000" & MyNumber, 3)' Do we have a hundreds place digit to convert?If Left(MyNumber, 1) <> "0" ThenIf Right("000" & MyNumber, 2) <> 0 ThenResult = ConvertDigit(Left(MyNumber, 1)) & " Hundred and "ElseResult = ConvertDigit(Left(MyNumber, 1)) & " Hundred "End IfEnd If' Do we have a tens place digit to convert?If Mid(MyNumber, 2, 1) <> "0" ThenResult = Result & ConvertTens(Mid(MyNumber, 2))Else' If not, then convert the ones place digit.Result = Result & ConvertDigit(Mid(MyNumber, 3))End IfConvertHundreds = Trim(Result)End FunctionPrivate Function ConvertTens(ByVal MyTens)Dim Result As String' Is value between 10 and 19?If Val(Left(MyTens, 1)) = 1 ThenSelect Case Val(MyTens)Case 10: Result = "Ten"Case 11: Result = "Eleven"Case 12: Result = "Twelve"Case 13: Result = "Thirteen"Case 14: Result = "Fourteen"Case 15: Result = "Fifteen"Case 16: Result = "Sixteen"Case 17: Result = "Seventeen"Case 18: Result = "Eighteen"Case 19: Result = "Nineteen"Case ElseEnd SelectElse' .. otherwise it's between 20 and 99.Select Case Val(Left(MyTens, 1))Case 2: Result = "Twenty"Case 3: Result = "Thirty"Case 4: Result = "Forty"Case 5: Result = "Fifty"Case 6: Result = "Sixty"Case 7: Result = "Seventy"Case 8: Result = "Eighty"Case 9: Result = "Ninety"Case ElseEnd Select' Convert ones place digit.If Val(Right(MyTens, 1)) = 0 ThenResult = Result & " " & ConvertDigit(Right(MyTens, 1))ElseResult = Result & "-" & ConvertDigit(Right(MyTens, 1))End IfEnd IfConvertTens = ResultEnd FunctionPrivate Function ConvertDigit(ByVal MyDigit)Select Case Val(MyDigit)Case 1: ConvertDigit = "One"Case 2: ConvertDigit = "Two"Case 3: ConvertDigit = "Three"Case 4: ConvertDigit = "Four"Case 5: ConvertDigit = "Five"Case 6: ConvertDigit = "Six"Case 7: ConvertDigit = "Seven"Case 8: ConvertDigit = "Eight"Case 9: ConvertDigit = "Nine"Case Else: ConvertDigit = ""End SelectEnd Function在Excel 2003要使用“插入函数”，请按照下列步骤操作：1.选择所需的单元格。