openoffic在EXCEL中数字转换成中文大写数字后如何显示角分元整
假设数字在A1
在B1输入公式
=IF(OR(A1="",A1=0),"",TEXT(INT(A1),"[dbnum2]G/通用格式圆;负[dbnum2]G/通用格式圆;;")&TEXT(--RIGHT(INT(A1*10)),"[dbnum2]#角;;;")&TEXT(--RIGHT(INT(A1*100)),"[dbnum2]#分;;整;"))
或者
=SUBSTITUTE(IF(-RMB(A1),IF(A1>0,,"负")&TEXT(INT(ABS(A1)+0.5%),"[dbnum2]G/通用格式元;;")&TEXT(RIGHT(RMB(A1),2),"[>9][dbnum2]0角0分;"&IF(A1^2][dbnum2]0分;整"),),"零分","整")
就会在B1显示成：壹佰贰拾伍元贰角陆分
怎么A1中不输入文字时，B2不会显示0，让B2空白着
菜单栏，工具－选项－视图，取消“零值”的勾
Excel中数字自动转换成中文大写数字，可在单元格格式设置中设置为中文大写数字。
方法步骤如下：
1、打开需要操作的EXCEL表格，选中需要操作的单元格，并在区域内点击鼠标右键，选择“设置单元格格式”。
2、点击左侧的特殊，在右侧选择“中文大写数字”，然后点击确定按钮即可。
3、返回EXCEL表格，发现所有数字都已成功转换为中文大写数字。
具体方法：按 Alt+F11 ，在VBA编辑器菜单中点 插入→模块，将下面的函数复制到插入的模块当中，
'===================================================================
Function CChinese(StrEng As String) As String
'将阿拉伯数字转成中文字的程式例如：1560890 转成 "壹佰伍拾陆万零捌佰玖拾"。
'程式限制为不可输入超过16个数字
If Not IsNumeric(StrEng) Or StrEng Like "*.*" Or StrEng Like "*-*" Then
If Trim(StrEng) <> "" Then MsgBox "无效的数字"
CChinese = "": Exit Function
End If
Dim intLen As Integer, intCounter As Integer
Dim strCh As String, strTempCh As String
Dim strSeqCh1 As String, strSeqCh2 As String
Dim strEng2Ch As String
strEng2Ch = "零壹贰叁肆伍陆柒捌玖"
strSeqCh1 = " 拾佰仟 拾佰仟 拾佰仟 拾佰仟"
strSeqCh2 = " 万亿兆"
StrEng = CStr(CDec(StrEng))
intLen = Len(StrEng)
For intCounter = 1 To intLen
strTempCh = Mid(strEng2Ch, Val(Mid(StrEng, intCounter, 1)) + 1, 1)
If strTempCh = "零" And intLen <> 1 Then
If Mid(StrEng, intCounter + 1, 1) = "0" Or (intLen - intCounter + 1) Mod 4 = 1 Then
strTempCh = ""
End If
Else
strTempCh = strTempCh & Trim(Mid(strSeqCh1, intLen - intCounter + 1, 1))
End If
If (intLen - intCounter + 1) Mod 4 = 1 Then
strTempCh = strTempCh & Mid(strSeqCh2, (intLen - intCounter + 1) \ 4 + 1, 1)
If intCounter > 3 Then
If Mid(StrEng, intCounter - 3, 4) = "0000" Then strTempCh = Left(strTempCh, Len(strTempCh) - 1)
End If
End If
strCh = strCh & Trim(strTempCh)
Next
CChinese = strCh
End Function
'===================================================================
'===================================================================
Function daxie(money As String) As String
'实现货币金额中文大写转换的程序
'程式限制为不可输入超过16个数字
Dim x As String, y As String
Const zimu = ".sbqwsbqysbqwsbq" '定义位置代码
Const letter = "0123456789sbqwy.zjf" '定义汉字缩写
Const upcase = "零壹贰叁肆伍陆柒捌玖拾佰仟万亿圆整角分" '定义大写汉字
If CDbl(money) >= 1E+16 Then daxie = "#VALUE!": Exit Function '只能转换一亿亿元以下数目的货币！
x = Format(money, "0.00") '格式化货币
y = ""
For i = 1 To Len(x) - 3
y = y & Mid(x, i, 1) & Mid(zimu, Len(x) - 2 - i, 1)
Next
If Right(x, 3) = ".00" Then
y = y & "z" '***元整
Else
y = y & Left(Right(x, 2), 1) & "j" & Right(x, 1) & "f" '*元*角*分
End If
y = Replace(y, "0q", "0") '避免零千(如：40200肆万零千零贰佰)
y = Replace(y, "0b", "0") '避免零百(如：41000肆万壹千零佰)
y = Replace(y, "0s", "0") '避免零十(如：204贰佰零拾零肆)
y = Replace(y, "0j", "0") '避免零角
y = Replace(y, "0f", "") '避免零分
Do While y <> Replace(y, "00", "0")
y = Replace(y, "00", "0") '避免双零(如：1004壹仟零零肆)
Loop
y = Replace(y, "0y", "y") '避免零亿(如：210亿 贰佰壹十零亿)
y = Replace(y, "0w", "w") '避免零万(如：210万 贰佰壹十零万)
y = IIf(x < 0.1, Right(y, Len(y) - 3), y) '避免零几分(如：0.01零壹分；0.04零肆分)
y = IIf(Len(x) = 5 And Left(y, 1) = "1", Right(y, Len(y) - 1), y) '避免壹十(如：14壹拾肆；10壹拾)
y = IIf(Len(x) = 4, Replace(y, "0.", ""), Replace(y, "0.", ".")) '避免零元(如：20.00贰拾零圆；0.12零圆壹角贰分)
For i = 1 To 19
y = Replace(y, Mid(letter, i, 1), Mid(upcase, i, 1)) '大写汉字
Next
daxie = y
End Function
用公式,假如A1是你的数据,在B1输入如下公式试试:
=TEXT(INT(A1),"[DBNum2]")&IF(ISERROR(FIND(".",A1)),"元整","元")&IF(ISERROR(FIND(".",A1)),"",IF(MID(A1,FIND(".",A1)+1,1)="0",IF(MID(A1,FIND(".",A1)+2,1)="","",TEXT(MID(A1,FIND(".",A1)+2,1),"[DBNum2]")&"分"),IF(MID(A1,FIND(".",A1)+2,1)="",TEXT(MID(A1,FIND(".",A1)+1,1),"[DBNum2]")&"角整",TEXT(MID(A1,FIND(".",A1)+1,1),"[DBNum2]")&"角"&TEXT(MID(A1,FIND(".",A1)+2,1),"[DBNum2]")&"分")))
在excel中宏是什么意思,有什么作用?
答：EXCEL表格的宏是指基于VB的一种宏语言VBA脚本，主要用于扩展Microsoft Office软件如Excel的功能。Visual Basic for Applications（VBA）是Visual Basic的一种宏语言，是微软开发出来在其桌面应用程序中执行通用的自动化(OLE)任务的编程语言。主要能用来扩展Windows的应用程序功能，特别是Microsoft Office软件。
excel版本变了怎么恢复
答：excel版本变了，恢复的方法如下：工具／原料：联想拯救者Y7000、Windows10、WPS 2019个人版。1、双击打开Excel文档。2、点击左上角的【文件】选项。3、点击菜单中的【备份与恢复】选项。4、点击二级菜单中的【历史版本】选项。5、选择一个历史版本进行恢复即可。
怎样把excel中的8/30/21转换为2021/8/30
答：Microsoft Excel是电子试算表程序（进行数字和预算运算的软件程序），与Microsoft Word一样，它在市场拥有统治份额。它最初对占优势的Lotus 1-2-3是个竞争者，但最后它卖得比它多、快，于是它成为了实际标准。它适宜Windows和Macintosh平台。它的主要竞争者是OpenOffice.org Calc、AppleNumbers和CorelQuattro...
在EXCEL中,非当前工作表Sheet2的A4单元格地址应表示为
答：在EXCEL中，非当前工作表Sheet2的A4单元格地址应表示为：sheet2!A4。Microsoft Office XP：是为了配合Windows XP而推出。Office XP引入安全模式（Safe Mode）的功能。它允许像是Outlook这类的应用程序无法正常引导时自动以适当的状态运行。Microsoft Office XP包含了完整的语音识别系统及手写识别系统。另一...
office excel 打开时提示excel词典xllex.dll文件丢失或损坏
答：删除该文件即可。方案二：如果您自己有office安装程序，可以尝试卸载office后重新安装看看。由于该程序 涉及到微软版权等相关法律问题，目前这边没有相关资料无法为您提供下载信息，请您谅 解；方案三：打开‘360软件管家’，搜索免费的OpenOffice下载安装使用，此免费版本可以支 持常用的Word、Excel、PPT。
在用EXCEL“页面设置”时出现提示“尚未安装打印机...”
答：注意事项：像微软Word一样，微软Excel，一个处理数字和预算的电子表格程序，在市场上占有主导地位。它最初是Lotus1－2－3的竞争对手，但最终它的销量和速度都超过了它，成为了事实上的标准。它适用于Windows和Macintosh平台，它的主要竞争对手是OpenOffice．orgCalc、AppleNumbers和CorelQuattroPro。
在excel表格中当文件里的都删了中间那些都删除下面为什么自动就也跟着...
答：MicrosoftExcel是电子试算表程序（进行数字和预算运算的软件程序），与MicrosoftWord一样，它在市场拥有统治份额。它最初对占优势的Lotus1-2-3是个竞争者，但最后它卖得比它多、快，于是它成为了实际标准。它适宜Windows和Macintosh平台。它的主要竞争者是OpenOffice.orgCalc、AppleNumbers和CorelQuattroPro。
Excel经常出现在打开时出现这样的提示,点击“是”才能打开,而且里面...
答：出现这样的问题有很多可能，或许是存储版本与使用软件版本不同，亦或许是文件存储错误导致。在使用过程中尽量使用同版本的软件进行编辑或者打开。再说一下如何解决问题：你可以使用如下方法进行修复，部分表格损坏严重无法修复 Excel版本参考：2010 一、网络软件修复法 1、网络下载EasyRecovery、OfficeFix、...
求大神帮助!Excel界面变了想还原
答：excel中的数据复制过去为什么会全部变成0啊？因EXCEL默认常规或数值格式下，超过10位数系以科学记数法显示，超过15位的数以0的形现。解决出现”变0“问题的方法：1、事先将单元格格式设置为文本。2、选定单元格，在其上点鼠标右键——“设置单元格格式”。3、点“数字”标签——“文本”——“确定...
工具列详细资料大全
答：Excel工具列即可显示九个工具选项。 二、自定义工具列 在工具列空白处点右键/自定义快速访问工具列/从下列位置选择命令/所有命令 选择所需要的命令,按添加/确定,所选择的命令即出现在Exce工作表的最上方,需用时可随时选用。快速访问工具列的按钮位置可根据个人爱好和需要,点按上下箭头进行前后调整。 三、常用的自...
