数字大小写

Excel数字大小写如何转换函数 　　Excel是我们常用的"办公软件，那么，用函数具体该如何将数字大小写的转换呢?下面我带来Excel数字大小写转换函数的方法，快来学习一下吧! 　　数字大小写转换函数： 　　实际相当于函数=NUMBERSTRING(1234567890,3)，参数为3时，输出结果直接为独立数字大写。 　　实际相当于函数=NUMBERSTRING(1234567890,2)，参数为2时，输出结果直接为金额大写。 　　实际相当于函数=NUMBERSTRING(1234567890,1)，参数为1时，输出结果直接为整个数字的大写。 　　value值用的是引用表格，和直接输入数字是一样。 ;

在名称管理器中创建名为jg,下面引用位置处的公式为=EVALUATE(SUBSTITUTE(Sheet1!$B4,"负","-(")&0&IF(COUNT(FIND("负",Sheet1!$A4)),")",))+RAND()*0在A1输入非0的数字在A2为大写， B2输入公式=IF(A$1,jg,"")因本解法最大替换次数为12，因此可以设置：工具>选项>重新计算>“迭代计算次数”设为12这就是大写转小写本解法使用Excel循环引用功能，模拟VBA编程将中文大写人民币金额中的字符替换成计算式，再利用宏表4.0函数转换计算式为阿拉伯数字结果。

把你要替换的区域选上，替换就行了。可以把选的区域一次全部替换的。

const S1="壹"; S2="贰"; S3="叁"; S4="肆";var Str: String; i: integer;begin Str:="1234"; edit1.Text:=str; for i:=1 to length(str) do case Str[i] of "1": label1.Caption:=S1; "2": label2.Caption:=S2; "3": label3.Caption:=S3; "4": label4.Caption:=S4; end;怎么没悬赏分的。

第一招：釜底抽薪——自动更正法如果需要重复的输入一个大写数字金额，可以采用自动更正的方法。例如要重复输入“肆仟叁佰伍拾元零伍分”，可以先输入“肆仟叁佰伍拾元零伍分”并选中它，然后执行菜单“工具→自动更正选项”打开“自动更正”对话框，在“替换”下的框内输入“4350.05”并单击“添加”按钮确定后退出，以后直接输入“4350.05”后回车即可快速得到“肆仟叁佰伍拾元零伍分”。第二招：一劳永逸——编制自动宏如果有许多小写金额要变成大写的话，用上面的自动更正的方法需要定义很多自动更正项，显然也比较麻烦，其实只需要编辑一个宏就能做到“一劳永逸”了。启动Word后按下A lt+F11组合键，在打开的工程窗口左侧双击“ThisDocument”进入代码编写窗口，在代码编辑窗口中输入如下代码：Option ExplicitSub 小写金额变大写() Dim Numeric As Currency, IntPart As Long, DecimalPart As Byte, MyField As Field, Lable As String Dim Jiao As Byte, Fen As Byte, Oddment As String, Odd As String, MyChinese As String Const ZWDX As String = "壹贰叁肆伍陆柒捌玖零" "定义一个中文大写汉字常量 On Error Resume Next "错误忽略 With Selection Numeric = VBA.Round(VBA.Val(.Text), 2) "四舍五入保留小数点后两位 "判断是否在表格中 If .Information(wdWithInTable) Then _.MoveRight unit:=wdCell Else .MoveRight unit:=wdCharacter "对数据进行判断,是否在指定的范围内 If VBA.Abs(Numeric) > 2147483647 Then MsgBox "数值超过范围!", _ vbOKOnly + vbExclamation, "Warning": Exit Sub IntPart = Int(VBA.Abs(Numeric)) "定义一个正整数 Odd = VBA.IIf(IntPart = 0, "", "圆") "定义一个STRING变量 "插入中文大写前的标签 Lable = VBA.IIf(Numeric = VBA.Abs(Numeric), "人民币金额大写:　", "人民币金额大写:　负") "对小数点后面二位数进行择定 DecimalPart = (VBA.Abs(Numeric) - IntPart) * 100 Select Case DecimalPart Case Is = 0 "如果是0,即是选定的数据为整数 Oddment = VBA.IIf(Odd = "", "", Odd & "整") Case Is < 10 "<10,即是零头是分 Oddment = VBA.IIf(Odd <> "", "圆零" & VBA.Mid(ZWDX, DecimalPart, 1) & "分", _ VBA.Mid(ZWDX, DecimalPart, 1) & "分") Case 10, 20, 30, 40, 50, 60, 70, 80, 90 "如果是角整 Oddment = "圆" & VBA.Mid(ZWDX, DecimalPart / 10, 1) & "角整" Case Else "既有角,又有分的情况 Jiao = VBA.Left(CStr(DecimalPart), 1) "取得角面值 Fen = VBA.Right(CStr(DecimalPart), 1) "取得分面值 Oddment = Odd & VBA.Mid(ZWDX, Jiao, 1) & "角" "转换为角的中文大写 Oddment = Oddment & VBA.Mid(ZWDX, Fen, 1) & "分" "转换为分的中文大写 End Select "指定区域插入中文大写格式的域 Set MyField = .Fields.Add(Range:=.Range, Text:="= " & IntPart & " *CHINESENUM2") MyField.Select "选定域(最后是用指定文本覆盖选定区域) "如果仅有角分情况下,Mychinese为"" MyChinese = VBA.IIf(MyField.Result <> "零", MyField.Result, "") .Text = Lable & MyChinese & Oddment End WithEnd Sub输入完毕后按下Alt+Q键返回word中，以后只需要依次选中需要转换的小写金额后，按下Alt+F8打开宏对话框，选择“小写金额变大写”宏，并单击“运行”即可快速地得出大写金额。运行该宏可以在选定的文本数据后面插入此金额大写，如果选定范围在表格中，则在右侧单元格中插入金额大写。

你好，人民币大写规则如下：中文大写金额数字应用正楷或行书填写，如壹、贰、叁、肆、伍、陆、柒、捌、玖、拾、佰、仟、万、亿、元、角、分、零、整（正）等字样。不得用一、二（两）、三、四、五、六、七、八、九、十、廿、毛、另（或0）填写，不得自造简化字。如果金额数字书写中使用繁体字，如贰、陆、亿、万、圆的，也可。中文大写金额数字到＂元＂为止的，在＂元＂之后，应写＂整＂（或＂正＂）字，在＂角＂之后，可以不写＂整＂（或＂正＂）字。大写金额数字有＂分＂的，＂分＂后面不写＂整＂（或＂正＂）字。中文大写金额数字前应标明＂人民币＂字样，大写金额数字有＂分＂的，＂分＂后面不写＂整＂（或＂正＂）字。中文大写金额数字前应标明＂人民币＂字样，大写金额数字应紧接＂人民币＂字样填写，不得留有空白。大写金额数字前未印＂人民币＂字样的，应加填＂人民币＂三字。在票据和结算凭证大写金额栏内不得预印固定的＂仟、佰、拾、万、仟、佰、拾、元、角、分＂字样。将人民币小写金额转换成大写的方法：要将人民币小写金额转换成大写格式，用Excel提供的格式，将自定义格式类型中的“[dbnum2]G/通用格式”改为“[dbnum2] G/通用格式“元””来实现。但在转换小数时却出现了问题，比如￥6，050.09只能转换为“陆仟零伍拾.零玖圆”。那么用Excel能不能解决这一先天不足呢？其方法有以下两种（以下均对B1转换，假设B1是通过函数ROUND( )四舍五入取得二位小数的小写金额数，其值为￥6，050.09）。