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 Temp           Dim Dollars, Cents           Dim DecimalPlace, Count           ReDim Place(9) As String           Place(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 cents              Temp = Left(Mid(MyNumber, DecimalPlace + 1) & "00", 2)              Cents = ConvertTens(Temp)              ' Strip off cents from remainder to convert.              MyNumber = Trim(Left(MyNumber, DecimalPlace - 1))           End If           Count = 1           Do 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)              Else                 MyNumber = ""              End If              Count = Count + 1           Loop           ' Clean up dollars.           Select Case Dollars              Case ""                 Dollars = "No Dollars"              Case "One"                 Dollars = "One Dollar"              Case Else                 Dollars = Dollars & " Dollars"           End Select           ' Clean up cents.           Select Case Cents              Case ""                 Cents = " Only"              Case "One"                 Cents = " And One Cent"              Case Else                 Cents = " And " & Cents & " Cents"           End Select           ConvertCurrencyToEnglish = Dollars & Cents        End Function       Private 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" Then              If Right("000" & MyNumber, 2) <> 0 Then              Result = ConvertDigit(Left(MyNumber, 1)) & " Hundred and "              Else              Result = ConvertDigit(Left(MyNumber, 1)) & " Hundred "              End If          End If           ' Do we have a tens place digit to convert?           If Mid(MyNumber, 2, 1) <> "0" Then              Result = Result & ConvertTens(Mid(MyNumber, 2))           Else              ' If not, then convert the ones place digit.              Result = Result & ConvertDigit(Mid(MyNumber, 3))           End If           ConvertHundreds = Trim(Result)        End Function        Private Function ConvertTens(ByVal MyTens)           Dim Result As String           ' Is value between 10 and 19?           If Val(Left(MyTens, 1)) = 1 Then              Select 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 Else              End Select           Else              ' .. 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 Else              End Select              ' Convert ones place digit.              If Val(Right(MyTens, 1)) = 0 Then              Result = Result & " " & ConvertDigit(Right(MyTens, 1))              Else              Result = Result & "-" & ConvertDigit(Right(MyTens, 1))              End If          End If           ConvertTens = Result       End Function        Private 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 Select        End Function 在Excel 2003 要使用“插入函数”，请按照下列步骤操作： 1. 选择所需的单元格。 2. 单击“常用”工具栏中的“插入函数”。 3. 在“或选择类别”下，单击“用户定义”。 4. 在“选择函数”列表中，单击“SpellNumber”，然后单击“确定”。 5. 输入所需的数字或单元格引用，然后单击“确定”。