大写数字小数点怎么写
发布时间：2021-07-10
1.人民币大写情况下,如果小数点后还有数字,大写还能写“整”吗
人民币大写情况下，如果小数点后有角，可以不写"整"；如果小数点后有分，"分"后面不写"整"（或"正"）字。
1、中文大写金额数字前应标明"人民币"字样，大写金额数字有"分"的，"分"后面不写"整"（或"正"）字。 2、中文大写金额数字到"元"为止的，在"元"之后，应写"整"（或"正"）字，在"角"之后，可以不写"整"（或"正"）字。
朱元璋因为当时的一件重大贪污案“郭桓案”而发布法令，其中明确要求记账的数字必须由“一、二、三、四、五、六、七、八、九、十、百、千”改为“壹、贰、叁、肆、伍、陆、柒、捌、玖、拾、佰（陌）、仟（阡）”等复杂的汉字，用以增加涂改帐册的难度。后来“陌”和“阡”被改写成“佰、仟”，并一直使用至今。
2、为反贪树廉，朱元璋还制定了惩治经济犯罪的严格法令 并在财务管理上进行技术防范，实施了一些行之有效的措施。把记载钱粮数字的汉字‘一、二、三、四、五、六、七、八、九、十、百、千’改为大写，用‘壹、贰、叁、肆、伍、陆、柒、捌、玖、拾、佰、仟’，就是其中重要的一条。
3、大写数字是中国特有的数字书写方式，利用与数字同音的汉字取代数字，以防止数目被涂改。在银行支票中，就有许多大写数字。
2.excel表格中的大写数字后面带小数点怎么转换中文大写
比如说在表格中输入12.326然后转换成中文大写"壹拾贰点叁贰陆.回答列表在同一单元格中，再次输入不同的数字，中文大写也跟着变化。
特别说明，此单元格的数字不是金额，只是普通带小数点的数字，小数点后有一至四位小数.晕，没见过。问题：在Excel表格中，怎样将带小数点的小写数字转换成中文大写？比如说在表格中输入12.326然后转换成中文大写"壹拾贰点叁贰陆. 在同一单元格中，再次输入不同的数字，中文大写也跟着变 一、在输入的当前单元格直接转换，没有现成的格式函数。
但通过VBA代码还是能够实现的。（VBA代码我在后面讲） 如果想简单一点的话，通过相玲单元格转换大写还是方便一点。
如果在 A1 输入小写，就在 B1 输入如下公式：=IF(A1>0,SUBSTITUTE((TEXT(A1,"[DBnum2]"），"."，"点"），IF(A1<0，"负"&SUBSTITUTE((TEXT(ABS(A1,"[DBnum2]"）），"."，"点"），""）） 上面的公式中考虑了输入负数和零的问题，如不考虑负数和零，公式可以简化如下：=IF(A1>0,SUBSTITUTE((TEXT(A1,"[DBnum2]"），"."，"点"），""） 二、如果你坚持要在输入数据的单元格中直接转换中文大写，只好用VBA程序代码了，只是比较烦。代码如下：Private Sub Worksheet_Change(ByVal aa As Range On Error GoTo error If aa.Column = 1 Then Select Case aa Case Is > 0 aa = Replace(Application.Text(aa, "[DBnum2]"， "."， "点"） Case Is < 0 aa = "负" & Replace(Application.Text(Abs(aa, "[DBnum2]"）， "."， "点"） Case Is = 0 aa = "" End Select End If error: Exit Sub End Sub 说明：1。
我说的代码实际上是用Execl自带的VBA编程语言编制的一个小程序。这个程序在你打开工作表的时候已在后台准备运行，当工作表中某个单元格内容发生变化时马上运行。
在程序运行中程序会自动判别，还在第一列的单元格中输入的小写数字都转换成中文大写，在其他单元格中输入的数字不转换大写。程序是在后台运行的，在工作表窗口是看不见的，只能看见程序运行后的结果。
在工作表的单元格中不能设置这些程序代码。程序代码只能在VBA编码窗口中编制。
把上面的代码输入到代码窗口中。当然可以用复制的方法把代码复制过去，这样不容易错。 最后关闭代码窗口，自动回到工作表窗口。这时你在A1中输入数字试试看，是否得到中文大写的效果。
2。在上面程序代码中， 已设置为在工作表的第一列任何单元格中输入小写的数字都会马上转换成大写。
其它单元格中输入的数据不会转换。如想在其它列的单元格中转换数据，请修改第三行代码------Column = 1---- 中的数字。
数字1代表第一列，数字2代表第二列，依次类推。3。
如果不考虑负数、零等情况的话，代码可以简化如下：Private Sub Worksheet_Change(ByVal aa As Range If aa.Column = 1 Then aa = Replace(Application.Text(aa, "[DBnum2]"， "."， "点"） End If End Sub
