EXCEL文本函数-数字小写换大写英文大小写互换
EXCEL文本函数-数字小写换大写/英文大小写互换
2007年10月17日星期三 13:04
在大小写中英文互换公式中我们先假设每个表都有表头，且数字在第二行，在A2单元格内
注意：公式可以随意拖动至任意指定单元格，公式内对象不变；可复制（待鼠标变成黑色十字再拖)；也可利用查找-替换-全部替换单元格如A2---全部换成F15
EXCEL中数字小写换大写方法一：
在单元格A2中输入小写数字123.12
B2处输入以下公式
=SUBSTITUTE(SUBSTITUTE(IF(A2<0,"负","")&TEXT(TRUNC(ABS(ROUND(A2,2))),"[DBNum2]")&"元
"&IF(ISERR(FIND(".",ROUND(A2,2))),"",TEXT(RIGHT(TRUNC(ROUND(A2,2)*10)),"[DBNum2]"))&IF(I SERR(FIND(".0",TEXT(A2,"0.00"))),"角
","")&IF(LEFT(RIGHT(ROUND(A2,2),3))=".",TEXT(RIGHT(ROUND(A2,2)),"[DBNum2]")&"分
",IF(ROUND(A2,2)=0,"","整")),"零元零",""),"零元","")
EXCEL中数字小写换大写方法二：
在单元格A2中输入小写数字123.12
B2处输入以下公式
=IF((INT(A2*10)-INT(A2)*10)=0,TEXT(INT(A2),"[DBNum2]G/通用格式")&"元
"&IF((INT(A2*100)-INT((A2)*10)*10)=0,"整","零
"&TEXT(INT(A2*100)-INT(A2*10)*10,"[DBNum2]G/通用格式")&"分"),TEXT(INT(A2),"[DBNum2]G/通用格式")&"元
"&IF((INT(A2*100)-INT((A2)*10)*10)=0,TEXT((INT(A2*10)-INT(A2)*10),"[DBNum2]G/通用格式")&"角整",TEXT((INT(A2*10)-INT(A2)*10),"[DBNum2]G/通用格式")&"角
"&TEXT(INT(A2*100)-INT(A2*10)*10,"[DBNum2]G/通用格式")&"分"))
EXCEL中数字小写换大写方法三：
=IF(A2-INT(A2)=0,TEXT(INT(A2),"[DBNum2]G/通用格式")&"圆整",TEXT(INT(A2),"[DBNum2]G/通用格式")&"圆"&TEXT(INT((A2-INT(A2))*10),"[DBNum2]G/通用格式")&"角
"&TEXT(INT((A2*10-INT(A2*10))*10),"[DBNum2]G/通用格式")&"分")
EXCEL中数字小写换大写方法四：
=IF((A2-INT(A2))=0,TEXT(A2,"[DBNUM2]")&"元整
",IF(INT(A2*10)-A2*10=0,TEXT(INT(A2),"[DBNUM2]")&"元
"&TEXT((INT(A2*10)-INT(A2)*10),"[DBNUM2]")&"角整",TEXT(INT(A2),"[DBNUM2]")&"元
"&IF(INT(A2*10)-INT(A2)*10=0,"零",TEXT(INT(A2*10)-INT(A2)*10,"[DBNUM2]")&"角
")&TEXT(RIGHT(A2,1),"[DBNUM2]")&"分"))
看看结果是不是出现了你想要的?应该有你需要的大写金额了
公式的由来:
仟分位公式如下:
=TEXT(IF(LEN(INT($A1))>=4,MID($A1,LEN(INT($A1))-3,1),""),"[DBNum2]")
佰分位公式如下:
=TEXT(IF(LEN(INT($A1))>=3,MID($A1,LEN(INT($A1))-2,1),""),"[DBNum2]")
第一位小数的公式:
=TEXT(MID($A1,FIND(".",$A1)+1,1),"[DBNum2]")
第二位小数的公式:
=TEXT(MID(TEXT($A1,"0.00"),FIND(".",$A1)+2,1),"[DBNum2]") 其他依此类推
^^^^^^^^^^^^^^^^
用Excel函数将货币数值由阿拉伯数字自动生成为中文大写格式
如图是全部用Excel函数自编农业银行转帐支票套打工具，图中内容是需要打印到转帐支票上内容，其中A-D列为支票存根部分，我们利用Excel函数对要填写大部分内容建立公式后，只要输入支票存根部分的三项基本信息（A6-A8单元格）：收款单位、金额、用途，其他内容全部自动生成。
图中输入阿拉伯数字格式金额的是支票存根中A7单元格，要自动生成中文大写金额的是H3单元格，我们按照支票中的金额中文大写格式的特殊的要求，利用Excel函数对H3进行公式设置。
在H3单元格输入：=IF((A7-INT(A7))=0,TEXT(A7,"[DBNUM2]")&"元整",IF(INT(A7*10)-A7*10=0,TEXT(INT(A7),"[DBNUM2]")&"元"&TEXT((INT(A7*10)-INT(A7)*10),"[DBNUM2]")&"角整",TEXT(INT(A7),"[DBNUM2]")&"元"&IF(INT(A7*10)-INT(A7)*10=0,"零",TEXT(INT(A7*10)-INT(A7)*10,"[DBNUM2]")&"角")&TEXT(RIGHT(A7,1),"[DBNUM2]")&"分"))。
公式中共运用4种函数，文本连接符号“&”及相应的汉字。
IF函数：是一个条件判断函数，此函数的基本格式是：IF（a，b，c）其中“a”是一个条件，“b”和“c”是两种判断结果，可以表述为：如果条件a成立，那么结果是b，否则结果就是c。以上公式是有四层嵌套条件判断函数，根据货币金额的不同情况生成不同格式的中文大写。
TEXT函数：TEXT函数可以将阿拉伯格式数字转换为中文大写格式，如公式中“TEXT(A7,"[DBNUM2]”结果是将单元格A7的阿拉伯数字转换为中文大写。
INT函数：这是一个取整函数，如公式中“INT(A7)”就是取单元格A7数字整数部分。A7-INT(A7)表示A7为整数，INT(A7*10)-A7*10=0表示A7有一位小数。
RIGHT函数：用该函数可以提取字符串右边的若干个字符，如公式中的“RIGHT(A7,1)”表示从A7单元格数字右起提取一个字符。
从整体来讲，这是一个多层嵌套条件函数公式，共有4层嵌套来完成条件判断。
可以将整个条件函数公式表述为：
如果单元格A7中数字为整数（假如为35566），那么人民币大写就是“叁万伍仟伍佰陆拾陆元整”，否则：
如果单元格A7中数字为含有一位小数数字（假如位35566.2），那么人民币大写就是“叁万伍仟伍佰陆拾陆元贰角整”，否则：
如果单元格A7中数字为两位小数数字，且十分位为0（假如为35566.08），那么人民币大写就是“叁万伍仟伍佰陆拾陆元零捌分”。否则：
如果单元格A7中数字为两位数小数，且十分位不为0（假如为35566.28），那么人民币大写就是“叁万伍仟伍佰陆拾陆元贰角捌分”。
Excel工作表中创建当前日期及中文大写
Excel数据处理软件以其强大的数据处理功能和操作的简易性，成为办公自动化的必备软件，尤其在财务工作中更显重要，成为会计人员在专门的电算化财务软件之外会计数据处理重要辅助工具。在用Excel编制表格时，制表时间是Excel工作表中不可缺少的内容，对有些需经常打开使用的工作表，如月报表，至少每月打开一次，对其中报表时间每次都要由原来日期修改成当前日期，这样不但很麻烦，而且容易因日期漏改而造成日期差错，如果在工作表中利用Excel函数创建当前日期，并且任何时候打开这个工作表，永远显示当前日期，就会一劳永逸。下面分别介绍当前日期的大小写两种格式创建方法。
一、在工作表中创建阿拉伯数字当前日期
在一般情况下，在工作表中创建当前日期，用一个函数即可完成，在需要建立当前日期的单元格输入“=TODAY()”（不含引号，下同），任何时候打开工作表，该单元格显示的永远是当前日期，如果当前日期是2003年3月18日，则工作表中显示“2003年3月18日”。
在特殊情况下，要求某个单元格只显示当前“年”、“月”或“日”，如图是全部用Excel函数自编支票套打工具，支票中出票日期年、月、日的位置已经定好，要填写的数字之间有一定的距离，要分开填写，要利用Excel函数在工作表不同单元格分别创建公式（图中A5-C5单元格），我们要实现支票套打，日期的一般格式显然不行，需分别建立当前的年、月、日。在表示日期的A5-C5单元格创建如下公式：
在表示“年”A5单元格输入：“=YEAR(TODAY())”，假如当前日期是2003年5月6日，则该单元格显示“2003”。
在表示“月”B5单元格输入：“=MONTH(TODAY())”，则该单元格显示的是“5”。
在表示“日”C5单元格输入：“=DAY(TODAY())”，则该单元格显示的是“6”。
创建了以上公式，任何时间打开工作表，在这三个单元格分别显示的永远是当前的年、月、日。
二、将工作表中当前日期阿拉伯数字转换为中文大写
图中I1-K1单元格分别表示的是日期的中文大写，同样根据支票规定的年、月、日位置填写，因为在支票存根中已建立了出票日期信息，根据它来创建中文大写日期。
根据我国《票据法》有关规定，票据的出票日期必须使用中文大写。为防止变造票据的出票日期，在填写月、日时，月为壹至壹拾的，日为壹至玖和壹拾、贰拾和叁拾的，应在其前加“零”。根据这些特殊日期填写要求，在表中表示年月日的I1-K1单元格分别设置公式如下：
日期中“年”中文大写的公式设置
在表示“年”的I1单元格输入：=TEXT(MID(A5,1,1),"[DBNUM2]")&TEXT(MID(A5,2,1),"[DBNUM2]")&TEXT(MID(A5,3,1),"[DBNUM2]")& TEXT(MID(A5,4,1),"[DBNUM2]")。MID函数是提取字符函数，公式中“MID(A5,1,1)”，表示从A5单元格数字左第一个字符起提取一个字符，结果是“2”。TEXT函数将阿拉伯数字转换为中文大写，公式中“TEXT(MID(A5,1,1),"[DBNUM2]")”表示将“2”转换为“贰”。整个公式由四个文本连接符号“&”
连接而成，结果是“贰零零叁”。我们不能直接利用TEXT函数将“2003”转换为中文大写，因为“TEXT(2003,"[DBNUM2]")”的结果是“贰仟零叁”，所以需将“2003”逐个数字转换为中文大写。
日期中“月”中文大写的公式设置
在表示“月”的J1单元格输入：=IF(B5<11,"零"&TEXT(B5,"[DBNUM2]"),TEXT(B5,"[DBNUM2]"))。IF函数是一个条件判断函数，整个公式可以表述为：如果B5单元格月份数为1-10之间数字，则将该数字转换为中文大写的同时，在前面加“零”，如当前是5月，则结果是“零伍”，否则直接将B5中月份数字转换为中文大写，如当前是11月，则结果是“壹拾壹”。
日期中“日”中文大写公式设置
在表示“日”的K1单元格输入：=IF(OR(C5<11,C5=20,C5=30),"零"&TEXT(C5,"[DBNUM2]"),TEXT(C5,"[DBNUM2]"))。公式中“OR(C5<11,C5=20,C5=30)”表示“C5或者小于11，或者等于20，或者等于30”。整个公式可以表述为：如果C5或者小于11，或者等于20，或者等于30，那么将C5中数字转换为中文大写的同时，在前面加“零”，否则直接将C5转换为中文大写数字。
英文大小写互换
=UPPER(A2) 小写换大写
=LOWER(A2) 大写换小写
=PROPER(A2) 首字大写
小写金额转换为大写金额(C实现)
前言 银行、单位和个人填写的各种票据和结算凭证是办理支付结算和现金收付的重要依据，直接关系到支付结算的准确、及时和安全。票据和结算凭证是银行、单位和个人凭以记载帐务的会计凭证，是记载经济业务和明确经济责任的一种书面证明。因此，填写票据和结算凭证，必须做到标准化、规范化，要要素齐全、数字正确、字迹清晰、不错漏、不潦草，防止涂改。 我的服务需要一个金额转换过程，本来想在网上找，但都是C++、JavaScript、Delphi 的Demo，还没有C的。索性自己写一个。参考了其它的转换算法，对我有些启发。 大多的算法都是直接分析字符串生成大写金额，即存在一个假设：源字符串的格式是正确的。在我的过程中，用状态机的方法分析源字符串，错误时，返回空指针（我可不敢保证传给我的过程的都是##.##）。分析出源字符串中整数部有多少个数字，是否有小数，统计结果放在一个结构体中，整数和小数部分的数字分别放在两个整形数组里。 有了统计数据就可以生成大写金额了。转换过程有个难点：要区分万、亿等“段”，特别是个位这个“段”，这个概念是在《小写转大写金额在C++中的实现》文章中提到的。在下面的程序中用j= ( size - i - 1 ) & 0x3，实际上是j = ( size - i - 1 ) % 4取模，j==0时为段尾，需要特殊处理。所有的处理都是围绕0来进行的，也就是说，0才是难点。 特殊位置的0，按段分，段中第一个非0数字前的0，可能有多个；段中两个非0数字间的0；段尾的0；个位的0；十分位，角位置的0。 另外，转换的一个重点是大写金额的写法，好像大多的算法都注重转换过程而对这个问题没有深究。我在文章后面附上转换规则。 下面是代码 1./** 2.* @brief 将源字符串中的小写金额转换为大写格式 3.* 4.* @param dest 目的字符串 5.* @param src 小写金额字符串 6.* @return 7.* - NULL 源字符串的格式错误，返回NULL 8.* - 非NULL 目的字符串的首地址 9.* @note 转换根据：中国人民银行会计司编写的最新《企业、银行正确办理支付结 算 10.* 指南》的第114页-第115页 11.*/ 12.char* chineseFee( char* dest, char* src ) 13.{
数字转为英文大写
'****************' Main Function *'**************** Function SpellNumber(ByVal MyNumber) Dim Yuan, Fen, Temp Dim DecimalPlace, Count ReDim Place(9) As String Application.Volatile True Place(2) = " Thousand " Place(3) = " Million " Place(4) = " Billion " Place(5) = " Trillion " ' String representation of amount MyNumber = Trim(Str(MyNumber)) ' Position of decimal place 0 if none DecimalPlace = InStr(MyNumber, ".") 'Convert Fen and set MyNumber to Yuan amount If DecimalPlace > 0 Then Fen = GetTens(Left(Mid(MyNumber, DecimalPlace + 1) & "00", 2)) MyNumber = Trim(Left(MyNumber, DecimalPlace - 1)) End If Count = 1 Do While MyNumber <> "" Temp = GetHundreds(Right(MyNumber, 3)) If Temp <> "" Then Yuan = Temp & Place(Count) & Yuan If Len(MyNumber) > 3 Then MyNumber = Left(MyNumber, Len(MyNumber) - 3) Else MyNumber = "" End If Count = Count + 1 Loop Select Case Yuan Case "" Yuan = "No Yuan" Case "One" Yuan = "One Yuan" Case Else Yuan = Yuan & " Yuan" End Select Select Case Fen Case "" Fen = " and No Fen" Case "One" Fen = " and One Fen" Case Else Fen = " and " & Fen & " Fen" End Select
WORD数字小写金额变大写
Sub 小写金额变大写() 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.V al(.Text), 2) '四舍五入保留小数点后两位 '判断是否在表格中！！此处为向左MoveLeft移动1(count)个单元格(wdCell) If .Information(wdWithInTable) Then _ .MoveLeft unit:=wdCell, Count:=1 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 With End Sub
英文字母大小写转换程序设计 (2)
摘要 (1) 数制转换 (2) 1 DOS功能调用介绍 (2) 2 设计方案 (5) 3 总程序 (6) 4 程序流程图及程序设计分析 (13) 4.1主程序流程图 (13) 4.2主程序流程图分析 (14) 4.3大小写转换子程序ABC (14) 4.3.1 子程序ABC (14) 4.3.2 子程序ABC的流程图 (16) 4.3.3 子程序ABC流程图分析 (16) 4.4ASCII码转换子程序CBA (17) 4.4.1 子程序CBA (17) 4.4.2 子程序CBA的流程图 (18) 4.4.3 子程序ABC流程图分析 (18) 5 程序运行实例 (19) 5.1大小写转换 (20) 5.2ASCII码转换 (20) 5.3输入非字符 (21) 5.4调试中出现的错误 (21) 6 心得体会 (23) 参考文献 (24)
摘要 汇编语言是直接面向处理器（Processor）的程序设计语言。处理器是在指令的控制下工作的，处理器可以识别的每一条指令称为机器指令。每一种处理器都有自己可以识别的一整套指令，称为指令集。处理器执行指令时，根据不同的指令采取不同的动作，完成不同的功能，既可以改变自己内部的工作状态，也能控制其它外围电路的工作状态。汇编语言的主要特点是可以使用助记符来表示机器指令的操作码和操作数，可以用标号和符号来代替地址、常量和变量。这次课程设计的任务是用汇编语言进行一个数制转换,从键盘输入一串字符(非字符则不接受)，通过屏幕提示菜单选择转换成ASCII码，或者进行大小写转换（原来是大写转换成小写，小写则转换为大写）并显示。先输入要转换的数据，再对数据进行检验判断其合法性，对不合法的数据进行警报并重新输入数据，对合法的数据按照要求进行大小写转换或者转换成ASCII,码，最后显示转换后的字符串。 关键词：DOS功能调用 ASCII码大小写转换
大小写转换公式
Excel自动转换数字大小写具体的操作步骤如下： 1. 启动excel。按“alt+f11”快捷键打开“visual basic编辑器”。 2. 在“visual basic编辑器”中，单击“插入”菜单栏中的“模块”命令，插入一个模块。双击左侧“工程”窗口中的“模块1”选项，在窗口右边展开“模块1（代码）”编辑窗口，然后输入如下代码: function dx(q) dim cur as long,yuan as long dim jiao as integer,fen as integer dim cnyuan as string, cnjiao as string, cnfen as string if q = "" then dx = 0 exit function end if cur = round(q * 100) yuan = int(cur / 100) jiao = int(cur / 10) - yuan * 10 fen = cur - yuan * 100 - jiao * 10
cnyuan = application.worksheetfunction.text(yuan, "[dbnum2]") cnjiao = application.worksheetfunction.text(jiao, "[dbnum2]") cnfen = application.worksheetfunction.text(fen, "[dbnum2]") dx = cnyuan & "元" & "整" d1 = cnyuan & "元" if fen <> 0 and jiao <> 0 then dx = d1 & cnjiao & "角" & cnfen & "分" if yuan = 0 then dx = cnjiao & "角" & cnfen & "分" end if end if if fen = 0 and jiao <> 0 then dx = d1 & cnjiao & "角" & "整" if yuan = 0 then dx = cnjiao & "角" & "整"
代码转换(大小写字母转换)
北华航天工业学院 课程设计报告（论文） 设计课题：代码转换 大小写字母转换 专业班级：电子信息工程 学生姓名： 指导教师： 设计时间： 2010-12-16
北华航天工业学院电子工程系 微机原理课程设计任务书 指导教师：教研室主任： 年月日
内容摘要 在课程设计之前，具备微机原理的理论知识和实践能力；熟悉汇编语言编程技术；熟悉80X86的CPU结构和指令系统；熟悉相关常用接口电路的设计使用方法是必不可少的。因此原理部分重新温习并整理了相关知识。 课程设计要求进行大小写字母的转换。其实字母大小写的区别在于他们的ＡＳＣＩＩ码范围，它们之间的转换其实就是加减相应的ＡＳＣＩＩ码值。在判断输入的字母是大写的还是小写的（即判断输入符号ＡＳＣＩＩ码在41H~5AH还是在61H~7AH内）之后，决定判断是加上还是减去ＡＳＣＩＩ码值。 关键词：汇编代码转换大小写
目录 一、概述 (1) 二、方案设计与论证 (1) 1.汇编语言基础 (1) 2.方案设计 (2) 三、程序设计 (3) 1.程序设计流程图 (3) 2.程序代码 (4) 四、运行结果 (5) 五、心得体会 (6) 六、参考文献 (6)
一、概述： 在计算机系统中有多种数制和编码，常用的数制有二进制、八进制以及十六进制，常用的代码有BCD码、ASCll码和七段显示码等。这些数制和编码根据其作用的不同，在存储形式上也有差异。在实际应用中，它们也因使用的要求不同而有所差异。在配备操作系统管理程序的计算机中，有些代码转换程序已在系统管理软件中编好。还有些代码转换需要根据使用要求通过编程完成。因此，代码转换是非数据处理中最常见的情况。 二、方案设计： 1、汇编语言基础 汇编：计算机不能直接识别和执行汇编语言程序，而要通过“翻译”把源程序译成机器语言程序（目标程序）才能执行，这一“翻译”工作称为汇编。汇编有人工汇编和计算机汇编两种方法。 汇编语言是面向机器的，每一类计算机分别有自己的汇编语言。汇编语言占用的内存单元少，执行效率高，广泛应用于工业过程控制与检测等场合。 汇编语言语句格式 标号：操作符操作数；注释 START： MOV A， 30H ；A←（30H） 标号用来标明语句地址，它代表该语句指令机器码的第一个字节的存储单元地址。 标号一般规定由1～8个英文字母或数字组成，但第一个符号必须是英文字母。 注释只是对语句或程序段的含义进行解释说明，以方便程序的编写、阅读和交流，简化软件的维护，一般只在关键处加注释。 伪指令：伪指令只用于汇编语言源程序中，对汇编过程起控制和指导的作用，不生成机器码。汇编结束，自动消失。 汇编语言程序设计步骤
金额大小写转换
金额大小写转换 第一招：釜底抽薪——自动更正法 如果需要重复的输入一个大写数字金额，可以采用自动更正的方法。例如要重复输入“肆仟叁佰伍拾元零伍分”，可以先输入“肆仟叁佰伍拾元零伍分”并选中它，然后执行菜单“工具→自动更正选项”打开“自动更正”对话框，在“替换”下的框内输入“4350.05”并单击“添加”按钮确定后退出，以后直接输入“4350.05”后回车即可快速得到“肆仟叁佰伍拾元零伍分”。 第二招：一劳永逸——编制自动宏 如果有许多小写金额要变成大写的话，用上面的自动更正的方法需要定义很多自动更正项，显然也比较麻烦，其实只需要编辑一个宏就能做到“一劳永逸”了。启动Word后按下A lt+F11组合键，在打开的工程窗口左侧双击“ThisDocument”进入代码编写窗口，在代码编辑窗口中输入如下代码： Option Explicit Sub 小写金额变大写() 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.V al(.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 '既有角,又有分的情况
EXCEL文本函数-数字小写换大写英文大小写互换
EXCEL文本函数-数字小写换大写/英文大小写互换 在大小写中英文互换公式中我们先假设每个表都有表头，且数字在第二行，在A2单元格内 注意：公式可以随意拖动至任意指定单元格，公式内对象不变；可复制（待鼠标变成黑色十字再拖)；也可利用查找-替换-全部替换单元格如A2---全部换成F15 EXCEL中数字小写换大写方法一： 在单元格A2中输入小写数字123.12 B2处输入以下公式 =SUBSTITUTE(SUBSTITUTE(IF(A2<0,"负","")&TEXT(TRUNC(ABS(ROUND(A2,2))),"[DBNum2]")&"元"&IF (ISERR(FIND(".",ROUND(A2,2))),"",TEXT(RIGHT(TRUNC(ROUND(A2,2)*10)),"[DBNum2]"))&IF(ISERR (FIND(".0",TEXT(A2,"0.00"))),"角","")&IF(LEFT(RIGHT(ROUND(A2,2),3))=".",TEXT(RIGHT(ROUND (A2,2)),"[DBNum2]")&"分",IF(ROUND(A2,2)=0,"","整")),"零元零",""),"零元","") EXCEL中数字小写换大写方法二： 在单元格A2中输入小写数字123.12 B2处输入以下公式 =IF((INT(A2*10)-INT(A2)*10)=0,TEXT(INT(A2),"[DBNum2]G/通用格式")&"元"&IF((INT(A2*100)-IN T((A2)*10)*10)=0,"整","零"&TEXT(INT(A2*100)-INT(A2*10)*10,"[DBNum2]G/通用格式")&"分"),TE XT(INT(A2),"[DBNum2]G/通用格式")&"元"&IF((INT(A2*100)-INT((A2)*10)*10)=0,TEXT((INT(A2*10) -INT(A2)*10),"[DBNum2]G/通用格式")&"角整",TEXT((INT(A2*10)-INT(A2)*10),"[DBNum2]G/通用格式")&"角"&TEXT(INT(A2*100)-INT(A2*10)*10,"[DBNum2]G/通用格式")&"分")) EXCEL中数字小写换大写方法三： =IF(A2-INT(A2)=0,TEXT(INT(A2),"[DBNum2]G/通用格式")&"圆整",TEXT(INT(A2),"[DBNum2]G/通用 格式")&"圆"&TEXT(INT((A2-INT(A2))*10),"[DBNum2]G/通用格式")&"角"&TEXT(INT((A2*10-INT(A2* 10))*10),"[DBNum2]G/通用格式")&"分") EXCEL中数字小写换大写方法四： =IF((A2-INT(A2))=0,TEXT(A2,"[DBNUM2]")&"元整",IF(INT(A2*10)-A2*10=0,TEXT(INT(A2),"[DBNUM 2]")&"元"&TEXT((INT(A2*10)-INT(A2)*10),"[DBNUM2]")&"角整",TEXT(INT(A2),"[DBNUM2]")&"元"& IF(INT(A2*10)-INT(A2)*10=0,"零",TEXT(INT(A2*10)-INT(A2)*10,"[DBNUM2]")&"角")&TEXT(RIGHT (A2,1),"[DBNUM2]")&"分")) 看看结果是不是出现了你想要的?应该有你需要的大写金额了 公式的由来: 仟分位公式如下: =TEXT(IF(LEN(INT($A1))>=4,MID($A1,LEN(INT($A1))-3,1),""),"[DBNum2]")
如何在中转换字母大小写
如何在Word中转换字母大小写 用Word写作时忘了及时应用字母大小写规则，或者忘记使用全角或半角字符规则了，怎么办？有什么办法实现这些格式的快速统一吗？下面分别介绍几种情况的快速统一办法。 一、录入英文文章忘掉应用大小写规则 1. 在Word中选择要转换的英文文档，选择系统“格式→更改大小写”命令（图1）。 2. 在弹出的“更改大小写”窗口中选择“句首字母大写”（图2）。 3. 单击“确定”按钮。 二、通篇文章或特定块内大小写字母的转换
如果要把文档中的大写字母转换成小写，小写字母转换成大写，可用如下方法： 1. 在Word中用Ctrl＋A组合键选择要转换的整个文档，或用鼠标选择要转换的部分文档，选择系统“格式→更改大小写”命令（图1）。 2. 在弹出的“更改大小写”窗口中选择“转换大小写”（图3）。 3. 单击“确定”按钮。 三、把拼音串或英文转为词首字母大写 有时在做广告或标题时，我们需要每个英文单词或汉语拼音的词首都用大写字母，如果我们在输入时忘了按规则进行，则可以在输入完毕后统一设置： 1. 在Word中用Ctrl＋A选择要转换的整个文档或用鼠标选择要转换的部分文档，选择系统“格式→更改大小写”命令（图1）。 2. 在弹出的“更改大小写”窗口中选择“词首字母大写”（图4）。
3. 单击“确定”按钮。 四、将通篇文章或特定块内字符统一转为大写或小写 如果要把文档中的字母统统转换成小写或大写，可用如下方法实现： 1. 在Word中用Ctrl＋A选择要转换的整个文档或用鼠标选择要转换的部分文档，选择系统“格式→更改大小写”命令（图1）。 2. 在弹出的“更改大小写”窗口中选择“大写”或“小写”（图5）。 3. 单击“确定”按钮。 五、将通篇文章或特定块内字母或数字转换为全角或半角 如果要把文档中的字母或数字统统转换成全角或半角，也
Word中数字金额小写
Word中数字金额小写“变”大写有两招 在日常的办公应用中，尤其是作为一名财务人员，经常需要输入大写金额的形式的数字，“肆仟叁佰五拾元零伍分”，如果用手工输入的话，显得比较麻烦，其实只要通过输入小写数字并通过如下两招就能达到快速输入的目的。 第一招：釜底抽薪——自动更正法 如果需要重复的输入一个大写数字金额，可以采用自动更正的方法。例如要重复输入“肆仟叁佰伍拾元零伍分”，可以先输入“肆仟叁佰伍拾元零伍分”并选中它，然后执行菜单“工具→自动更正选项”打开“自动更正”对话框（图1），在“替换”下的框内输入“4350.05”并单击“添加”按钮确定后退出，以后直接输入“4350.05”后回车即可快速得到“肆仟叁佰伍拾元零伍分”。 第二招：一劳永逸——编制自动宏 如果有许多小写金额要变成大写的话，用上面的自动更正的方法需要定义很多自动更正项，显然也比较麻烦，其实只需要编辑一个宏就能做到“一劳永逸”了。启动Word后按下A lt+F11组合键，在打开的工程窗口左侧双击“ThisDocument”进入代码编写窗口，在代码编辑窗口中输入如下代码： Option Explicit Sub 小写金额变大写() 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 ｓｅｌｅｃｔion 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 ｓｅｌｅｃｔCase DecimalPart Case Is = 0 ''如果是0,即是选定的数据为整数
数字大写转换(简单实用
如何将小写数字自动转换为大写数字 发表日期：2008年7月24日共浏览3393次字体颜色：选择颜色 【字体：放大正 常缩小】 我们在日常工作中经常遇到既要输入小写，又要输入大写，比如开填支票。在开填支票时往往出现小写金额与大写金额不吻合，特别时数字长的最容易出错。现在这个问题得到了解决，只要把小写数字一输入，大写数字就自动产生，又快又准确。如何使用，请看下文。 一、公式及公式介绍 =IF(A1<0,"金额为负无效", (IF(OR(A1=0,A1=""),"(人民币)零元", IF(A1<1,"(人民币)", TEXT(INT(A1),"[dbnum2](人民币)G/通用格式")&"元"))))& IF( (INT(A1*10)-INT(A1)*10)=0, IF(INT(A1*100)-INT(A1*10)*10=0,"","零"), (TEXT(INT(A1*10)-INT(A1)*10,"[dbnum2]")&"角")) &IF( (INT(A1*100)-INT(A1*10)*10)=0, "整", TEXT((INT(A1*100)-INT(A1*10)*10),"[dbnum2]")&"分") 作色部分是公式，公式中“A1”是指欲转换的小写数字所在位置（单元格），它根据小写数字所在位置进行修改；“人民币”是指货币种类，可以修改成美元、日元或大写等字样；其他是不许修
改的。 二、操作 1、复制程序公式：将着色的程序公式部分拷贝到电子表格中欲生成为大写的单元格内。（选中程序中的着色部分，点击鼠标右键，点击“复制”功能，然后双击电子表格中欲生成为大写金额的单元格，点击鼠标右键，点击“粘贴”功能） 2、修改程序公式：①将公式里的单元格“A1”全部替还成小写数字所在的单元格（如小写数字所在的单元格是“B3”，即把程序公式中的“A1”替换成“B3”），共15处。②是美元或其他币种，把“人民币”全替换成“美元或其他币种”。③也可以把程序公式的“人民币”和“（）”修改为“大写：”。 (文：苟在林) =IF(C9<0,"金额为负无效", (IF(OR(C9=0,C9=""),"(人民币)零元", IF(C9<1,"(人民币)", TEXT(INT(C9),"[dbnum2](人民币)G/通用格式")&"元"))))& IF( (INT(C9*10)-INT(C9)*10)=0, IF(INT(C9*100)-INT(C9*10)*10=0,"","零"), (TEXT(INT(C9*10)-INT(C9)*10,"[dbnum2]")&"角")) &IF( (INT(C9*100)-INT(C9*10)*10)=0, "整", TEXT((INT(C9*100)-INT(C9*10)*10),"[dbnum2]")&"分"
阿拉伯数字转换成英文大写
启动Microsoft Excel。 按Alt+F11 启动Visual Basic 编辑器。 在“插入”菜单上，单击“模块”。 在模块表中键入下面的代码。 Option Explicit 'Main Function Function SpellNumber(ByValMyNumber) Dim Dollars, Cents, Temp Dim DecimalPlace, Count ReDimPlace(9) As String Place(2) = " Thousand " Place(3) = " Million " Place(4) = " Billion " Place(5) = " Trillion " ' String representation of amount. MyNumber = Trim(Str(MyNumber)) ' Position of decimal place 0 if none. DecimalPlace = InStr(MyNumber, ".") ' Convert cents and set MyNumber to dollar amount. If DecimalPlace> 0 Then Cents = GetTens(Left(Mid(MyNumber, DecimalPlace + 1) & _ "00", 2)) MyNumber = Trim(Left(MyNumber, DecimalPlace - 1)) End If Count = 1 Do While MyNumber<> "" Temp = GetHundreds(Right(MyNumber, 3)) If Temp <> "" Then Dollars = Temp &Place(Count) & Dollars If Len(MyNumber) > 3 Then MyNumber = Left(MyNumber, Len(MyNumber) - 3) Else MyNumber = "" End If Count = Count + 1 Loop Select Case Dollars Case "" Dollars = "No Dollars" Case "One" Dollars = "One Dollar" Case Else Dollars = Dollars &" Dollars" End Select Select Case Cents
EXCEL中数字大小写转换方法
EXCEL中数字大小写转换方法 不知道大家工作中有没有遇到这样的问题，投标报价时，报价汇总时还需要大写形式，一个字一个字的敲进去，容易出错，更为不便的是，当报价修改后，需要重新敲一遍，那么有没有一种方法自动将小写转成大写呢? 答案是肯定的，一种最为简单的方法就是在需要大写的单元格直接引用小写数字，然后它会显示为大写的中文.我是通过摸索而得出,如果哪位朋友还有更好的相关知识请给予接下去讨论,学海无涯,更希望用得着的朋友能得到一点帮助,现将我自己摸索的结果发经广大朋友分享! EXCEL大小写转换方法 1. 结果数据无小数点范围转换：将小写数字转换成大写中文：右击需要转换的单元格，在弹出的快捷菜单中选择“单元格格式”，然后在“数字”选项卡中选择“自定义”，在“类型”中写入[DBNum2][$-804]"大""写"!:G/通用格式"元整"后按确定即可。 2. 结果数据保留两位小数数值且在十万以内范围转换：将小写数字转换成大写中文（万范围内）：右击需要转换的单元格，在弹出的快捷菜单中选择“单元格格式”，然后在“数字”选项卡中选择“自定义”，在“类型”中写入：[DBNum2]0"万"0"千"0"百"0"拾"0"元".0"角"0"分""整" 3. 结果数据保留两位小数数值且在十万以外范围转换：将小写数字转换成大写中文（万范围内）：右击需要转换的单元格，在弹出的快捷菜单中选择“单元格格式”，然后在“数字”选项卡中选择“自定义”，在“类型”中写入：[DBNum2]0"万"0"千"0"百"0"拾"0"万"0"千"0"百"0"拾"0"元".0"角"0"分""整" 附:本人愿意结交天下朋友,共同讨论电脑相关知识,下一请教是CAD的网络版本下载安装及三维二维之间转换,3D的制作,平立面图的快捷速成……希望朋友们能提供相关资料,谢谢
英文字母大小写转换程序设计
课程设计任务书 学生姓名：刘小燕专业班级：电信0801班 指导教师：陈德军工作单位：信息工程学院 题目：英文字母大小写转换程序设计 初始条件： 具备数字电路的理论知识；具备微机原理的理论知识和实践能力；熟悉汇编语言编程技术；熟悉80X86的CPU结构和指令系统；熟悉相关常用接口电路的设计使用方法。 要求完成的主要任务：（包括课程设计工作量及其技术要求，以及说明书撰写等具体要求） 1、输入英文字母串，在回车后实现大小写转换 2、按命令要求将字符串转换为全部大写或全部小写 3、非英文字母不允许输入并声响报警 4、程序采用汇编语言在PC机上完成 5、完成符合学校要求的设计说明书 时间安排： 一周，其中2天程序设计，2天程序调试，1天完成课程设计报告书及答辩 指导教师签名：年月日系主任（或责任教师）签名：年月日
目录 摘要.................................................................................................................................................. I 1 DOS功能调用 (1) 2总体方案论证 (4) 3程序流程图及程序设计分析 (5) 3.1主程序设计 (5) 3.1.1流程图及其分析 (5) 3.1.2程序设计 (6) 3.2 chos字符串转换子程序设计 (8) 3.2.1流程图及其分析. (8) 3.2.2程序设计 (9) 3.3小写转大写子程序设计 (11) 3.3.1流程图及其分析 (11) 3.3.2程序设计 (12) 3.4大写转小写子程序设计 (13) 3.4.1流程图及其分析 (13) 3.4.2程序设计 (14) 4 总程序 (15) 5 课程设计心得体会 (20) 参考文献 (21)
js 数字转换成中文大小写金额
//小写金额转换成中文大写金额 public string CmycurD(decimal num) { string str1 = "零壹贰叁肆伍陆柒捌玖"; //0-9所对应的汉字 string str2 = "万仟佰拾亿仟佰拾万仟佰拾元角分"; //数字位所对应的汉字 string str3 = ""; //从原num值中取出的值 string str4 = ""; //数字的字符串形式 string str5 = ""; //人民币大写金额形式 int i; //循环变量 int j; //num的值乘以100的字符串长度 string ch1 = ""; //数字的汉语读法 string ch2 = ""; //数字位的汉字读法 int nzero = 0; //用来计算连续的零值是几个 int temp; //从原num值中取出的值 num = Math.Round(Math.Abs(num), 2); //将num取绝对值并四舍五入取2位小数 str4 = ((long)(num * 100)).ToString(); //将num乘100并转换成字符串形式 j = str4.Length; //找出最高位 if (j > 15) { return "溢出"; } str2 = str2.Substring(15 - j); //取出对应位数的str2的值。如：200.55,j为5所以str2=佰拾元角分 //循环取出每一位需要转换的值 for (i = 0; i < j; i++) { str3 = str4.Substring(i, 1); //取出需转换的某一位的值 temp = Convert.ToInt32(str3); //转换为数字 if (i != (j - 3) && i != (j - 7) && i != (j - 11) && i != (j - 15)) { //当所取位数不为元、万、亿、万亿上的数字时 if (str3 == "0") { ch1 = ""; ch2 = ""; nzero = nzero + 1; } else { if (str3 != "0" && nzero != 0) { ch1 = "零" + str1.Substring(temp * 1, 1); ch2 = str2.Substring(i, 1); nzero = 0;
Word中数字金额小写转大写
Word中数字金额小写“变”大写 在日常的办公应用中，尤其是作为一名财务人员，经常需要输入大写金额的形式的数字，“肆仟叁佰五拾元零伍分”，如果用手工输入的话，显得比较麻烦，其实只要通过输入小写数字并通过编写一个简单的宏就能达到快速输入的目的！ 启动Word后按下A lt+F11组合键，在打开的工程窗口左侧双击“ThisDocument”进入代码编写窗口，在代码编辑窗口中输入如下代码： Option Explicit Sub 小写金额变大写() 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变量
wordexcel英文字母大小写的相互转换方法 word2003教程 office技巧
Word、Excel英文字母大小写的相互转换方法Word2003 教程office技巧 ... Word、Excel英文字母大小写的相互转换方法 Word2003教程 如果您想在Excel中转换英文的大小写，那是比较困难的，因为Excel不具备此功能。 但是，我们可以借助Word的功能，将字母的大小写转换成功之后，再复制粘贴到Excel中，就行了。 下面是Word转换英文为大写小写的方法： 在word中，通过Shift F3 快捷键，就可以实现英文的大小写转换。 首先选中要转换的英文 第一次按Shift F3 快捷键，将所选的英文首字母转换为大写； 第二次按Shift F3 快捷键，将选中的所有英文都转换为大写； 第三次按Shift F3 快捷键，将选中的所有英文都转换为小写； 知识扩展： 如果您的Excel单元格数据多，需要转换大小写的单元
格多，您可以这样做： 选择Excel要转换大小写的单元格，将其复制粘贴到word的新文档，这样，在word中，会自动生成表格。之后，选择word中的表格，通过Shift F3 快捷键实现大小写的转换； 转换成功之后，再将word数据，复制粘贴到Excel，这样就成功了。 如果您想在Excel中转换英文的大小写，那是比较困难的，因为Excel不具备此功能。 但是，我们可以借助Word的功能，将字母的大小写转换成功之后，再复制粘贴到Excel中，就行了。 下面是Word转换英文为大写小写的方法： 在word中，通过Shift F3 快捷键，就可以实现英文的大小写转换。 首先选中要转换的英文 第一次按Shift F3 快捷键，将所选的英文首字母转换为大写； 第二次按Shift F3 快捷键，将选中的所有英文都转换为大写； 第三次按Shift F3 快捷键，将选中的所有英文都转换为小写； 知识扩展：