C语言版数字转英文(浮点)
数字转为英文大写
'****************' 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
英文字母大小写转换程序设计 (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码大小写转换
VB将数字翻译成英文
下面是一个将阿拉伯数字转换成英文说法的VB代码，源程序默认将小数点后面也翻译成英文 附源代码： '****************' Main Function *'**************** Function SpellNumber(ByVal MyNumber) Dim Dollars, Cents, Temp Dim DecimalPlace, Count ReDim Place(9) As String Application.Volatile True Place(2) = " Thousand " Select Case Cents Case """" 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
EXCEL 中如何将数字转换成英文
一、网上下载的代码 1.创建一个模块： 在SHEET上，右键－》查看代码。选中“模块”－》插入模块。 2.写代码： Option Explicit Dim StrNO(19) As String Dim Unit(8) As String Dim StrTens(9) As String Public Function NumberToString(Number As Double) As String Dim Str As String, BeforePoint As String, AfterPoint As String, tmpStr As String Dim Point As Integer Dim nBit As Integer Dim CurString As String Dim nNumLen As Integer Dim T As String Call Init Str = CStr(Round(Number, 2)) ' Str = Number If InStr(1, Str, ".") = 0 Then BeforePoint = Str AfterPoint = "" Else BeforePoint = Left(Str, InStr(1, Str, ".") - 1) T = Right(Str, Len(Str) - InStr(1, Str, ".")) If Len(T) < 2 Then AfterPoint = Val(T) * 10 If Len(T) = 2 Then AfterPoint = Val(T) If Len(T) > 2 Then AfterPoint = Val(Left(T, 2)) End If If Len(BeforePoint) > 12 Then NumberToString = "Too Big." Exit Function End If Str = "" Do While Len(BeforePoint) > 0 nNumLen = Len(BeforePoint) If nNumLen Mod 3 = 0 Then CurString = Left(BeforePoint, 3)
代码转换(大小写字母转换)
北华航天工业学院 课程设计报告（论文） 设计课题：代码转换 大小写字母转换 专业班级：电子信息工程 学生姓名： 指导教师： 设计时间： 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个英文字母或数字组成，但第一个符号必须是英文字母。 注释只是对语句或程序段的含义进行解释说明，以方便程序的编写、阅读和交流，简化软件的维护，一般只在关键处加注释。 伪指令：伪指令只用于汇编语言源程序中，对汇编过程起控制和指导的作用，不生成机器码。汇编结束，自动消失。 汇编语言程序设计步骤
整数的每位数字转换成英文实验
实验内容 题目描述 请把输入整数的每位数字转换成英文。如当输入1024时，输出：one, zero, two, four 输入,输入为一个整数 输出,按整数每一位输出其英文单词，单词间用逗号加空格分隔，单词由小写字母组成。样例输入 20345 样例输出 two, zero, three, four, five 提示 注意：大家要考虑数据为“0”的情况，此时如果取对0取对数会出错 源代码:: #include
case 8 : printf("eight,");break; case 9 : printf("nine,");break; } } switch(a[0]) { case 0: printf("zero");break; case 1: printf("one");break; case 2: printf("two");break; case 3: printf("three");break; case 4: printf("four");break; case 5: printf("five");break; case 6: printf("six");break; case 7 : printf("seven");break; case 8 : printf("eight");break; case 9 : printf("nine");break; } return 0; }
金额大小写转换
金额大小写转换 第一招：釜底抽薪——自动更正法 如果需要重复的输入一个大写数字金额，可以采用自动更正的方法。例如要重复输入“肆仟叁佰伍拾元零伍分”，可以先输入“肆仟叁佰伍拾元零伍分”并选中它，然后执行菜单“工具→自动更正选项”打开“自动更正”对话框，在“替换”下的框内输入“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 '既有角,又有分的情况
英语数字换算
三、数词组成的常用短语 这类短语大多是由数词和介词搭配而成，或是数词和其他词类搭配而成，常用来表示不确定的范围和概念，有时也可表示事物所处的状态或其他情况。例如： by hundreds 数以百计 by thousands 数以千计；大量 by(the) millions 数以百万计 by halves 不完全 hundreds of 数百；数以百计 thousands of 数千；数以千计 hundreds of thousands of 几十万；无数的 thousands upon thousands 万千上万 millions upon millions of 千百万 tens of, decades of 数十个 dozens of 几打；几十个 scores of 许多，大量 billions of 几十亿 hundreds of millions 亿万
a thousand and one 无数的 a hundred and one 许多 ten to one 十之八九 nine cases out of ten 十之八九 nine tenths 十之八九；几乎全部 tens of thousands 好几万 several millions of 数百万 fifty-fifty 各半的；对半的；平均 by one hundred percent 百分之百的；全部a long hundred 一百多；一百二十 a few tenths of 十分之几；有几成 by twos and threes 三三两两 by ones or twos 三三两两；零零落落 in two twos 转眼；立即 at sixes and sevens 乱七八糟 one or two 少许；几个
如何在中转换字母大小写
如何在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. 单击“确定”按钮。 五、将通篇文章或特定块内字母或数字转换为全角或半角 如果要把文档中的字母或数字统统转换成全角或半角，也
英语中数字表示(非常实用)
英语中数字表示 在汉英笔译和英语写作中，经常会遇到数字；哪些场合用单词表示，哪些场合用阿拉伯数字表示，往往让人难以确定，现行语法书中也极少涉及此类问题。实际上，以英语为母语的国家，在书写数字时已形成几条约定俗成的规则，现总结如下供读者参考。 一、英美等国的出版社在排版时遵循一条原则，即1至10用单词 表示，10以上的数目用阿拉伯数字（也有的以100为界限），这条原则值得我们借鉴。 That table measures ten feet by five. 那个工作台长10英尺，宽5英尺。 The traditional pattern of classroom experience at the college level brings the professor and a group of 20 to 30 students together for a 45-to-50-minute class session two or three times a week. 大学课堂的传统的教学方式是，一个教授和二三十名学生每周见面两三次，每次授课时间45到50分钟。 二.人数用阿拉伯数字表示显得更简洁明了，但不定数量、近似值用单词表示较恰当。 There are 203817 voters on the electoral rolls. 选举名单上有203817个投票人。 Nearly thirty thousand voters took part in this election. 1
近3万个投票人参加了这次选举。 三.遇到日期、百分比、带单位的特殊数字，通常用阿拉伯数字。 Maximum swivel of table is l20. 工作台的最大旋转角度是120度。 Eg. 3rd March l991或3 March l991； a discount of 5 percent（5%的折扣）； purchased 7 yards of carpet（买7码地毯）； ordered 2 pounds of minced steak（订购2磅肉馅） 如果涉及的数目和单位是不定数，可用单词表示。 about five miles per hour（每小时大约5英里） at least ten yards away（至少有10码远） hesitated for a moment or two（犹豫了片刻） I have warned you a hundred times（我已经警告你多少遍了。） 四.在科技文章中，数字频繁出现，用阿拉伯数字比用单词陈述更有利。 The new engine has a capacity of 4.3 litres and a power output of 153 kilowatts at 4400 revolutions per minute. 这台新发动机的容积为4.3升，转速为每分钟4400转，时输出功率是153千瓦。 We know that the weight of a cubic foot of air at 0?C and 76cm，pressure is 0.08l pound, or 12 cubic feet of air
数字翻译方法
一、英译中 如果你听到下面一群复杂的数字，你该怎么记录呢？ 例：It covers a total of five hundred forty-nine million nine hundred forty-six thousand seven hundred and sixty-eight square meters. 可能会有这样的几种记录方法： 第一种：5 h 49 m 9 h 46 th 7 h 68 sqm 第二种：549 m 946 th 768 sqm 如果在英译中时这么记录的话，恐怕等到规定翻译的时间过了你还没搞清究竟这堆数字是多少，翻成中文该怎么说。这时，我们就要考虑是否有简单易做的方法呢？答应肯定是YES。 记住：英文表达数字时可以从右往左，三位一逗号，例如前面记录的数字就是：549, 946，768 英文：三位一逗号，逗号从右往左，每个逗号的位置分别对应的是：thousand, million, billion。 因此，要想英文数字记得快而准，三位数的听写要过关。 听写英文数字和表达法这样应该没多大问题了，那么怎样翻译成中文呢？方法也是一样，中文用竖线表达，以区分英文的逗号，即从右往左、四位一竖。刚才例举的数字：549,946,768可以这么添上记号转换成中文的表达法：5│49,94│6,768 中文：四位一竖，每个竖线位置从右往左分别对应的是：万，亿 所以上面的数字经划线后可以轻松的读成：五亿//四千九百九十四万//六千七百六十八 二、中译英 有了上面中译英竖线和逗号的数字的记录和表达方法，相信数字的翻译会变得比较简单。 例：我们听到十二亿//七百二十一万//四百七十二 这个数字相对较长、较复杂，我们这么处理： 首先，中文的“万”“亿”按四位一竖的方法记录，因此写成12│0721│0472。之所以面对较长较大的数字这步不能省的原因是：如果你没有其中的一竖，我们往往容易在后面的“721”“472”前漏写0，这样就使数字的表达有误。 接着，把这个数字转换成英文。按英文从右往左三位一逗号的方法把中文竖线表达的数字12│0721│0472 转换成英文逗号标记的数字，为1,207,210,472。 最后，根据英文从右往左每个逗号分别代表的是thousand, million, billion，用英语表达出该数字：one billion two hundred and seven million two hundred and ten thousand four hundred and seven-two 有了逗号和竖线的辅助，从某种程度上说，长的数字也会变得容易记录和表达了。
阿拉伯数字转换成英文大写
启动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
英文字母大小写转换程序设计
课程设计任务书 学生姓名：刘小燕专业班级：电信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)
阿拉伯数字金额转换为英文会计金额
怎样用自定义函数将阿拉伯数字金额转换为英文会计金额，如：123.45 变为：One Hundred Twenty Three Dollars and Forty Five Cents A：按Alt+F11，插入→模块→在VBE窗口中输入以下代码： 1.Function SpellNumber(ByValMyNumber) 2. Dim Dollars, Cents, Temp 3. Dim DecimalPlace, Count 4. ReDim Place(9) As String 5. Application.Volatile True 6. Place(2) = " Thousand " 7. Place(3) = " Million " 8. Place(4) = " Billion " 9. Place(5) = " Trillion " ' String representation of amount 10. MyNumber = Trim(Str(MyNumber)) ' Position of decimal place 0 if none 11. DecimalPlace = InStr(MyNumber, ".") 12. 'Convert cents and set MyNumber to dollar amount 13. If DecimalPlace> 0 Then 14. Cents = GetTens(Left(Mid(MyNumber, DecimalPlace + 1) & "00", 2)) 15. MyNumber = Trim(Left(MyNumber, DecimalPlace - 1)) 16. End If 17. Count = 1 18. Do While MyNumber<> "" 19. Temp = GetHundreds(Right(MyNumber, 3)) 20. If Temp <> "" Then Dollars = Temp & Place(Count) & Dollars 21. If Len(MyNumber) > 3 Then 22. MyNumber = Left(MyNumber, Len(MyNumber) - 3) 23. Else 24. MyNumber = "" 25. End If 26. Count = Count + 1 27. Loop
数字大写转换(简单实用
如何将小写数字自动转换为大写数字 发表日期：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]")&"分"
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 快捷键，将选中的所有英文都转换为小写； 知识扩展：
EXCEL表格中将数字金额转换为英文
Excel表格中如何将数字金额转换为英文 （如B1列写162890元，自动转换为英文 ONE HUNDRED SIXTY TWO THOUSAND EIGHT HUNDRED NINETY DOLLARS AND NO CENTS） 1、新建Excel表格 2、按住“Alt+F11”打开VBA编辑器 3、在VBA编辑器中单击菜单栏“插入”——模块 4、在打开的模块中输入如下代码： Option Explicit Function 数字转英文(ByValMyNumber) Dim Dollars, Cents, Temp Dim DecimalPlace, Count ReDimPlace(9) As String Place(2) = " Thousand " Place(3) = " Million " Place(4) = " Billion " Place(5) = " Trillion " MyNumber = Trim(Str(MyNumber)) DecimalPlace = InStr(MyNumber, ".") 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"
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的制作,平立面图的快捷速成……希望朋友们能提供相关资料,谢谢