1. 设置单元格里没有人民币大写
1、打开需要操作的EXCEL表格，在空白单元格中输入公式=TEXT(，然后点击选择需要转换的数字所在单元格入A1。
2、继续在函数编辑框输入"[DBnum2]")&"元整"，回车完成公式=TEXT(A1,"[DBnum2]")&"元整"的编辑输入。
【其中A1是需要转换的数字所在单元格，[DBnum2]则表示转换为大写，后面自动加上“元整”】
3、下啦填充下方相关单元格公式即可，返回EXCLE表格，发现成功将数字转为大写并自动加上“元整”。
2. 设置单元格格式没有人民币大写
这里以office excel2010版本为例，具体设置自动数字生成大写金额的步骤如下：
1、进入到Excel表格中，选择表格然后鼠标右键单元格，并且在弹出来的页面选择【设置单元格格式】。
2、进入到设置单元格格式的主页面以后，然后点击【特殊】。
3、进入到特殊页面以后，然后点击【中文大写数字】并且点击【确定】。
3. 设置单元格中没有人民币大写
方法:
1.
如果都是整数,单元格格式设置即可实现。选定单元格,在其上点鼠标右键——“设置单元格格式”,点“数字”标签——“特殊”,在”类型“中选择“中文大写数字”。
2.
如果存在小数,即不是万元的整数,可用以下公式: =IF(ISNUMBER(A1),IF(INT(A1),TEXT(INT(A1),"[dbnum2]")&"元","")&IF(MOD(INT(A1*10),10),TEXT(MOD(INT(A1*10),10),"[dbnum2]")&"角",IF(INT(A1)=A1,,IF(A1<0.1,,"零")))&IF(MOD(INT(A1*100),10),TEXT(MOD(INT(A1*100),10),"[dbnum2]")&"分","
4. 单元格式里没有人民币大写
例： 小写金额为 3150.50元 财务会计对应的大写正确写法：人民币叁仟壹佰伍拾元零伍角整 小写金额为 105000.00 元 财务会计对应的大写正确写法：人民币壹拾万伍仟元整 小写金额 60036000.00 元 财务会计对应的大写正确写法：人民币陆仟零叁万陆仟元整 小写金额 35000.96 元 财务会计对应的大写正确写法：人民币叁万伍仟元零玖角陆分 以上涵盖了千分、万分、十万分、千万分位时的小写数字对应大写的写法。 一、常用汉字 零壹贰叁肆伍陆柒捌玖，拾佰仟万亿元角分整 二、注意事项 1、中文大写是由数字和数位两部分组成，两者缺一不可。数字和数位一定要规范用字，切不可自造 字。
2、大写金额前须加结算货币币种名称，如“人民币”等字样，有固定格式的重要单证，大写金额栏 一般都印有“人民币”等货币币种字样。
5. excel表格没有人民币大写
a、单击“工具”--“宏”--“Visual Basic 编辑器” b、单击“Visual Basic 编辑器”菜单栏“运行”--“运行宏” c、输入宏名，如 "zh" ,单击“创建” d、键入以下代码： 'a1为数字小写单元格，a2为中文大写单元格 Const strN = "零壹贰叁肆伍陆柒捌玖" Const strG = "拾佰仟万亿" Const intN = "0123456789" Dim Zero_Count As Long '读零计数 Private Function GetN(ByVal N As Long) As String GetN = Mid(strN, N + 1, 1) End Function Private Function GetG(ByVal G As Long) As String Select Case G Case 1 GetG = "" Case 2, 6 GetG = Mid(strG, 1, 1) Case 3, 7 GetG = Mid(strG, 2, 1) Case 4, 8 GetG = Mid(strG, 3, 1) Case 5 GetG = Mid(strG, 4, 1) Case 9 GetG = Mid(strG, 5, 1) End Select End Function Private Function ReadLongNumber(ByVal LongX As String) As String Dim numberx As String Dim l As Long '长度 Dim m As Long '多余位数 Dim c As Long '循环次数 Dim i As Long, j As Long '标志 Dim CurN As String numberx = LongX l = Len(numberx) Do Until l < 9 m = l Mod 8 If m = 0 Then m = 8 CurN = Left(numberx, m) If ReadIntNumber(CurN) <> "零" Then ReadLongNumber = ReadLongNumber & ReadIntNumber(CurN) & "亿" Else ReadLongNumber = ReadLongNumber & "亿" End If numberx = Right(numberx, Len(numberx) - m) l = Len(numberx) Loop ReadLongNumber = ReadLongNumber & ReadIntNumber(numberx) If Len(ReadLongNumber) > 2 And Right(ReadLongNumber, 1) = "零" Then '去尾 零 ReadLongNumber = Left(ReadLongNumber, Len(ReadLongNumber) - 1) End If If Mid(ReadLongNumber, 1, 2) = "壹拾" Then '掐头 壹拾 ReadLongNumber = Right(ReadLongNumber, Len(ReadLongNumber) - 1) Mid(ReadLongNumber, 1, 1) = "拾" End If Zero_Count = 0 End Function Private Function ReadIntNumber(ByVal numberx As String) As String Dim l As Long '长度 Dim m As Long '多余位数 Dim c As Long '循环次数 Dim i As Long, j As Long '标志 Dim CurN As String If Val(numberx) = 0 Then ReadIntNumber = GetN(0): Exit Function l = Len(numberx) If l > 8 Then Exit Function m = l Mod 9 CurN = Right(numberx, m) For i = Len(CurN) To 1 Step -1 If GetN(Int(Mid(CurN, i, 1))) = "零" And Zero_Count = 1 Then If GetG(Len(CurN) - i + 1) = "万" Then If (Not (Val(Left(CurN, Len(CurN) - 5)) = 0)) Then ReadIntNumber = GetG(Len(CurN) - i + 1) & ReadIntNumber End If End If Else If GetN(Int(Mid(CurN, i, 1))) = "零" Then ReadIntNumber = GetN(Int(Mid(CurN, i, 1))) & ReadIntNumber If GetG(Len(CurN) - i + 1) = "万" Then If (Not (Val(Left(CurN, Len(CurN) - 5)) = 0)) Then ReadIntNumber = GetG(Len(CurN) - i + 1) & ReadIntNumber End If Zero_Count = 1 Else ReadIntNumber = GetG(Len(CurN) - i + 1) & ReadIntNumber ReadIntNumber = GetN(Int(Mid(CurN, i, 1))) & ReadIntNumber Zero_Count = 0 End If End If Next i 'Loop If Len(ReadIntNumber) > 2 And Right(ReadIntNumber, 1) = "零" Then '去尾 零 ReadIntNumber = Left(ReadIntNumber, Len(ReadIntNumber) - 1) End If If Mid(ReadIntNumber, 1, 2) = "壹拾" Then '掐头 壹拾 ReadIntNumber = Right(ReadIntNumber, Len(ReadIntNumber) - 1) Mid(ReadIntNumber, 1, 1) = "拾" End If End Function Public Function ReadNumber(ByVal numberx As String) As String Dim LongX As String Dim PointX As String Dim LongLong As Long Dim bFS As Boolean '负数 If Not IsNumeric(numberx) Then ReadNumber = "" Exit Function End If If CDbl(numberx) < 0 Then numberx = -numberx bFS = True End If numberx = CStr(Format(numberx, "General Number")) LongLong = InStr(1, numberx, ".") If LongLong <> 0 Then ReadNumber = ReadLongNumber(Left(numberx, LongLong - 1)) ReadNumber = ReadNumber & "点" & ReadSmallNumber(Right(numberx, Len(numberx) - LongLong)) Else ReadNumber = ReadLongNumber(numberx) End If If bFS = True Then ReadNumber = "负" & ReadNumber End If End Function Private Function ReadSmallNumber(SmallNumber As String) As String Dim i As Long For i = 1 To Len(SmallNumber) ReadSmallNumber = ReadSmallNumber & GetN(Mid(SmallNumber, i, 1)) Next i End Function Private Function ReadSmallNumberToRMB(SmallNumber As String) As String ReadSmallNumberToRMB = GetN(Mid(SmallNumber, 1, 1)) & "角" & GetN(Mid(SmallNumber, 2, 1)) & "分" End Function Public Function ReadNumberToRMB(ByVal numberx As String) As String Dim LongX As String Dim PointX As String Dim LongLong As Long Dim bFS As Boolean '负数 If Not IsNumeric(numberx) Then ReadNumberToRMB = "" Exit Function End If If CDbl(numberx) < 0 Then numberx = -numberx bFS = True End If numberx = CStr(Format(numberx, "#.00")) LongLong = InStr(1, numberx, ".") If Right(numberx, Len(numberx) - LongLong) <> "" Then ReadNumberToRMB = ReadLongNumber(Left(numberx, LongLong - 1)) ReadNumberToRMB = ReadNumberToRMB & "元" & ReadSmallNumberToRMB(Right(numberx, Len(numberx) - LongLong)) Else ReadNumberToRMB = ReadLongNumber(numberx) End If If bFS = True Then ReadNumberToRMB = "负" & ReadNumberToRMB End If End Function Sub zh() Range("a2") = ReadNumberToRMB(Range("a1")) End Sub
6. 设置单元格里没有人民币大写怎么办
1、首先在桌面上将表格点击打开。 2、打开了表格之后，选择需要转换的数据。 3、然后单击鼠标右键，在弹出的窗口里面选择设置单元格格式进入。 4、进入到单元格格式设置页面之后，在数字一栏里面选择特殊，在类型里面选择人民币大写。 5、最后点击确定，这样Excel中数字自动转换大写金额时，就会自动加上元整了。
7. 单元格内设置为标准的人民币大写数字格式
用电脑快速填写货币金额大写：
1、打开Excel软件，在任意一个单元格内输入小写金额19520，然后选中单元格右击，选择“设置单元格格式”。
2、在弹出的对话框中，选择“特殊”，然后在右侧“类型”中点击“中文大写数字”，点击确定
3、在Excel中会出现，金额19520的中文大写数字（如图3），选中单元格，直接复制，然后粘贴在需要填写金额的地方即可。
- 相关评论
- 我要评论
-
