1. excel特殊没有人民币大写选项
Excel中使输入的数字生成大写，可在设置单元格格式中设置选择“中文大写数字”。；具体的操作步骤如下：；
1、在电脑中打开相关的EXCEL表格，使用鼠标选中需要将数字转换为人民币大写的单元格，并在选中区域内点击鼠标右键，然后点击选择“设置单元格格式”。；
2、在数字标签页中找到并点击“特殊”选项，然后在右侧选择“中文大写数字”即可，点击右下角的确定按钮回到EXCEL表格。；
3、回到EXCEL表格中，可以看到刚才设置单元格格式的区域中，所有的数字都已转换生成人民币大写的数字，完成要求操作。
2. excel特殊里没有人民币大写
选项里面确实没有，但是不等于EXCEL就没有这个功能，自己写IF语句就可以实现，公式如下： =IF(ROUND(A5,2)<0,"无效数值",IF(ROUND(A5,2)=0,"零",IF(ROUND(A5,2)<1,"",TEXT(INT(ROUND(A5,2)),"[dbnum2]")&"元")&IF(INT(ROUND(A5,2)*10)-INT(ROUND(A5,2))*10=0,IF(INT(ROUND(A5,2))*(INT(ROUND(A5,2)*100)-INT(ROUND(A5,2)*10)*10)=0,"","零"),TEXT(INT(ROUND(A5,2)*10)-INT(ROUND(A5,2))*10,"[dbnum2]")&"角")&IF((INT(ROUND(A5,2)*100)-INT(ROUND(A5,2)*10)*10)=0,"整",TEXT((INT(ROUND(A5,2)*100)-INT(ROUND(A5,2)*10)*10),"[dbnum2]")&"分"))) 做到的效果就是这样：
3. excel中没有人民币大写
Excel如何设置单元格的货币格式
方法一：选择需要设计格式的单元格，按下“Ctrl+1”。
选择“数字”分类为“货币”，设置“小数位数”，点击“确定”即可。
方法二：选择需要设计格式的单元格，点击“开始”菜单，找到“数字”模块。
将“数字”设为“货币”即可。希望此回答能帮到你
4. 设置单元格里特殊没有人民币大写
excel自动显示大写数字方法如下:
1.首先点击打开excel表格,点击选中单元格,右击鼠标,点击选择“设置单元格格式”。
2.然后点击“分类”一栏中的“特殊”。
3.接着点击选择“中文大写数字”类型。
4.再点击“确定”。
5最后查看设置好的特殊中文大写数字类型。这样就好了。
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. excel单元格格式特殊选项没有人民币大写
1、首先在我们的电脑桌面上新建一个excel表格并点击它。
2、然后随便输入一串字符。
3、接着右击这个单元格并点击设置单元格格式。
4、然后点击左侧的特殊。
5、接着点击人民币大写并点击确定。
6、通过以上操作，我们就把数字变成了人民币大写了。
7. 单元格式里没有人民币大写
“金额大写”此处填写合计的大写金额。若报销金额为千位数时需在万字前画圈，圈内打叉，以此类推，若千位数有数值，而百位数为零，需在百位数前写零。 人民币大写字样：零 壹 贰 叁 肆 伍 陆 柒 捌 玖 拾 。 如：合计金额405.40元，在此行填写为：拾万仟 肆 佰 零 拾 伍 元 肆 角 零 分。
8. excel表格没有人民币大写
1、打开excel，输入一些数字，分为优惠金额和大写金额。
2、选中表格，右键-选择设置单元格格式。
3、在出现的单元格格式对话框中，选择特殊-人民币大写。
4、看一下第一个效果，发现成功了，拉一下表格长度。有右下角出现十字形时候，全部拖下，选择仅填充格式，结果全部出来了
5、大写金额也可以恢复成数字的哦，全部选中-右键-设置单元格格式。
6、在出现的单元格格式中，选择数字-常规-数值-确定。
7、看一下最终效果，大写金额全部转变为了数字了。
9. 如何在excel单元格中显示大写人民币数字
1.首先点击打开 Excel表格。
2.打开软件后，进入到表格窗口。
3.选中需要转换的单元格，鼠标右键单击。
4.选择设置单元格格式，弹出窗口，在数字选项栏中选择特殊。
5.点击中文大写数字，确定即可看到大写金额。
- 相关评论
- 我要评论
-