您的位置：360文档中心› EXCEL金额大写公式详解

EXCEL金额大写公式详解

合集下载

EXCLE小写金额转换大写公式

EXCLE小写金额转换大写公式

EXCEL 小写
金额转换大
写公式：
示例：
小写金额：大写金额：
28546.37大写（人民币）贰万捌仟伍佰肆拾陆元叁角柒说明：不讨论公式设计，单从应用方法上简单介绍，将大写金额单元格的公式复制到需要体现大写的单元格，然后对公示引用的小写单元格进行替换操作即可，比如小写金额在D5单元格，那将下述大写单元格公示中的A7全部替换成为D5即可；
公示描述："大写（人民币）"&IF((INT(A7*10)-
INT(A7)*10)=0,TEXT(INT(A7),"[DBNum2]G/通用格式")&"元
"&IF((INT(A7*100)-INT((A7)*10)*10)=0,"整","零
"&TEXT(INT(A7*100)-INT(A7*10)*10,"[DBNum2]G/通用格式")&"分"),TEXT(INT(A7),"[DBNum2]G/通用格式")&"元"&IF((INT(A7*100)-INT((A7)*10)*10)=0,TEXT((INT(A7*10)-INT(A7)*10),"[DBNum2]G/通用格式")&"角整",TEXT((INT(A7*10)-INT(A7)*10),"[DBNum2]G/通用格式")&"角"&TEXT(INT(A7*100)-INT(A7*10)*10,"[DBNum2]G/通用格式")&"分"))。

excel数字大写转换公式

excel数字大写转换公式

excel数字大写转换公式Excel是一款功能强大的电子表格软件，它不仅可以进行数据的计算和分析，还可以对数据进行格式化和展示。

其中一个常用的功能就是将数字转换为大写的金额，这在一些财务报表和合同中非常常见。

本文将介绍关于Excel数字大写转换公式的使用方法和注意事项。

我们需要明确一点，Excel并没有内置的函数来直接将数字转换为大写金额。

因此，我们需要使用一些自定义的公式来实现这个功能。

下面是一个常用的公式：```=UPPER(TEXT(A1,"[$-0804][DBNum2]G/通用格式"))```这个公式使用了TEXT函数和UPPER函数来实现金额的大写转换。

其中，A1表示要转换的单元格，你可以根据自己的需求来修改。

这个公式的一个特点是，它可以将小数点后两位的金额转换为大写，而不仅仅是整数部分。

需要注意的是，这个公式中的“[$-0804][DBNum2]G/通用格式”部分是一个格式代码，它可以将金额以大写的形式显示出来。

在使用时，你可以根据自己的需要选择其他的格式代码，比如“[$-0804][DBNum2]G/货币”可以将金额以货币的形式显示出来。

这个公式还有一个限制，就是它只能将金额转换为大写的中文形式。

如果你需要将金额转换为其他语言的大写形式，那么你可能需要使用其他的公式或者宏来实现。

除了上面介绍的公式，还有一些其他的方法可以实现金额的大写转换。

比如，你可以使用VBA宏来编写一个自定义的函数，然后在Excel中调用这个函数来实现转换。

不过，这个方法需要一些编程的知识，对于一般用户来说可能比较复杂。

除了将数字转换为大写金额，Excel还有很多其他的数字格式化功能。

比如，你可以使用“￥0.00”格式将数字显示为带有货币符号的两位小数形式。

你还可以使用“0.00%”格式将数字显示为百分比形式。

这些功能都可以在Excel的格式化选项中找到，非常方便。

Excel的数字大写转换功能是一个非常实用的功能，可以帮助我们更好地展示和格式化数据。

excel 金额大写转换公式

excel 金额大写转换公式

excel 金额大写转换公式摘要：一、介绍Excel 金额大写转换公式二、分析金额大写转换公式的原理三、讲解如何使用Excel 金额大写转换公式四、总结Excel 金额大写转换公式的优点与局限性五、提供使用Excel 金额大写转换公式时的注意事项正文：在Excel 中，我们常常需要将数字金额转换为大写金额。

为了方便用户实现这一功能，Excel 提供了一个金额大写转换公式。

本文将详细介绍这个公式，并分析其原理及使用方法。

首先，我们来了解一下Excel 金额大写转换公式的原理。

这个公式基于汉字数字与阿拉伯数字的对应关系，通过嵌套IF 函数，实现将阿拉伯数字转换为大写金额的功能。

接下来，我们来讲解如何使用Excel 金额大写转换公式。

假设A1 单元格中存储的数字金额为1234.56，我们可以在B1 单元格中输入以下公式：```=IF(A1>=10000, "壹万零" & TRANSPOSE(TEXT(A1-10000, ";负数;零;壹;贰;叁;肆;伍;陆;柒;捌;玖;拾")), IF(A1>=1000, "壹仟零" & TRANSPOSE(TEXT(A1-1000, ";负数;零;壹;贰;叁;肆;伍;陆;柒;捌;玖;拾")),IF(A1>=100, "壹佰零" & TRANSPOSE(TEXT(A1-100, ";负数;零;壹;贰;叁;肆;伍;陆;柒;捌;玖;拾")), IF(A1>=10, "十元" & TRANSPOSE(TEXT(A1-10, ";负数;零;壹;贰;叁;肆;伍;陆;柒;捌;玖;拾")), TEXT(A1, ";负数;零;壹;贰;叁;肆;伍;陆;柒;捌;玖;拾")))```以上公式可以根据需要进行调整，以适应不同的金额格式需求。

Ecel金额大写公式详解

Ecel金额大写公式详解

Excel金额大写公式详解人民币大写的公式很多，随便百度就能找到一堆，但网上的公式多无原理解析，知其然而不知其所以然，用的时候只能将公式复制过去，总有几分不完美那么一起来追根究底吧，长文预警，今天的内容1400字================先搜个金额大写公式再就公式进行解析网上相关公式太多，选个稍微短点的，公式如下▼=TEXT(LEFT(RMB(A1),LEN(RMB(A1))-3),'[>0][dbnum2]G/通用格式元;[<0]负[dbnum2]G/通用格式元;;') &TEXT(RIGHT(RMB(A1),2),'[dbnum2]0角0分;;整')表示完全看不懂1、如何快速看懂长公式？▼ Excel公式求值Excel自带公式求值，可查看公式每步计算结果，通过查看每步计算结果分析思路在A1单元格中输入小写金额，B1中输入以上公式选中B1单元格，【公式】-【公式审核】-【公式求值】运行求值，查看每一步运算结果，如下图：通过查看计算步骤得知，金额小写转为大写主要通过格式转换函数TEXT函数，将金额分两部分转换为大写金额，整数部分大写小数点部分大写提到格式转换，Excel单元格格式设置中就有金额大写转换【数字】-【特殊】-【中文大写数字】如A1单元格金额201711.06单元格格式转换后显示为贰拾万壹仟柒佰壹拾壹.零陆距离我们想要的金额大写很接近了，如果能将数字大写格式转换的代码找到就可用于金额大写中2、如何查看格式转换代码？▼点击对应格式后，点击自定义，显示对应代码点击【特殊】-【中文大写数字】后点击自定义代码为【[DBNum2][$-804]G/通用格式】其中[$-804]表示国家或地区（语言）编号，一般可以不填，可直接忽略提取有用部分：[DBNum2]G/通用格式其中[DBNum2]表示将数字大写G/通用格式表示以常规的数字显示——数字不发生任何变化金额大写中，整数部分以元结尾，小数部分以角和分结尾▼则整数部分 - [DBNum2]G/通用格式元小数部分 - [DBNum2]0角0分如果金额为负怎么办？金额为负，则大写时金额前面加负，如-2对应负贰元，整数部分金额需分两种情况▼①为正数[>0][dbnum2]G/通用格式元②为负数[<0]负[dbnum2]G/通用格式元OK，数字大小写转换已解决，整数部分和小数部分用不同的格式转换代码，那么接下来需分别提取整数和小数部分=========金额格式一般为：xxxx.xx①小数部分：有且只有2位，最右边2位数字，=right（A1,2)②整数部分：除掉小数部分剩余为整数部分，整数部分位置在左边，但长度不定，长度=总长度-小数位长度=len（A1）-3小数位不是2个吗怎么减3？小数点也占一位整数部分=left（A1,len（A1）-3 )OK啦？漏了一个格式转换，A1单元格的内容为数字格式，金额大小写为货币格式，需将数字转换为货币格式，使用函数RMB在A1单元格外嵌套个RMB函数整数部分格式转换：=TEXT(LEFT(RMB(A1),LEN(RMB(A1))-3),'[>0][dbnum2]G/通用格式元;[<0]负[dbnum2]G/通用格式元;;')小数部分格式转换：=TEXT(RIGHT(RMB(A1),2),'[dbnum2]0角0分;;整')3、TEXT函数中的的分号;表示什么内容呢？三个分号分别将【正数;负数;零;文本】需要显示的内容隔开如果小数部分为0，则金额大写时添加整[dbnum2]0角0分;;整正数 - [dbnum2]0角0分，用;间隔负数 - 不显示，用;间隔零 - 显示“整”。

EXCEL中如何把金额自动转换成大写方法一至五

EXCEL中如何把金额自动转换成大写方法一至五

EXCEL中如何把金额自动转换成大写方法一至五EXCEL中如何把金额自动转换成大写方法一至五一、在EXCEL单元格中建立函数公式：（1）单元格准备：A列为金额，B列为金额大写（2）在B1单元格中按Fx，把鼠标移动到函数库里的数学函数，选择数值转换，点击公式输入，在A1输入框输入：=数值转换（A1,"大写")（3）按Enter，函数公式就构成，点击B1单元格，金额就转换成大写了二、利用EXCEL中的格式转换：（1）A列为金额，B列为金额大写（2）选中A列，双击A列的标题，出现“格式”对话框，在“数字”选项卡中，选择“文本”，确定（3）选中A列，以B1单元格为起点，单击鼠标右键，选择“复制”（4）将鼠标移至B1单元格，单击鼠标右键，选择“粘贴特性”，在“粘贴特性”对话框中，选择“文本转换”，确定（5）B列就转换成金额大写了三、EXCEL中的VBS脚本编程：（1）A列为金额，B列为金额大写Dim add(16)add(0)="零"add(1)="壹" add(2)="贰" add(3)="叁" add(4)="肆" add(5)="伍" add(6)="陆" add(7)="柒" add(8)="捌" add(9)="玖" add(10)="拾" add(11)="佰" add(12)="仟" add(13)="万" add(14)="亿"。

在EXCEL中将数字转换为人民币大写的三种方式

在EXCEL中将数字转换为人民币大写的三种方式

在EXCEL中将数字转换为人民币大写的三种方式鉴于EXCEL本身提供将数字转换为大写表示的功能根本不能正常应用在实际投标或财务应用之中，所以要自己建设，暂时找到了三种实现途径，经过测试均功能正常，还有一种是在书上找到的，懒得KEYIN进来了，反正也差不多了。

方法1，通过在EXCEL表格框（例如在“B1”单元）中直接输入以下公式：=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”中输入数字，就可看到效果。

方法2，通过VBA（宏）输入转换公式: 点击菜单“工具”->“宏”->“VisualBasic编辑器”,在编辑器窗口中，点击菜单“插入”->“模块”，在出现的窗口中输入以下内容：Function daxie(ByVal Num) ' 人民币中文大写函数Application.Volatile TruePlace = "分角元拾佰仟万拾佰仟亿拾佰仟万"Dn = "壹贰叁肆伍陆柒捌玖"D1 = "整零元零零零万零零零亿零零零万"If Num < 0 Then FuHao = "（负）"Num = Format(Abs(Num), "###0.00") * 100If Num > 999999999999999# Then: daxie = "数字超出转换范围!!": Exit FunctionIf Num = 0 Then: daxie = "零元零分": Exit FunctionNumA = Trim(Str(Num))NumLen = Len(NumA)For J = NumLen To 1 Step -1 ' 数字转换过程temp = Val(Mid(NumA, NumLen - J + 1, 1))If temp <> 0 Then ' 非零数字转换NumC = NumC & Mid(Dn, temp, 1) & Mid(Place, J, 1) Else ' 数字零的转换If Right(NumC, 1) <> "零" ThenNumC = NumC & Mid(D1, J, 1)ElseSelect Case J ' 特殊数位转换Case 1NumC = Left(NumC, Len(NumC) - 1) & Mid(D1, J, 1)Case 3, 11NumC = Left(NumC, Len(NumC) - 1) & Mid(D1, J, 1) & "零"Case 7If Mid(NumC, Len(NumC) - 1, 1) <> "亿" ThenNumC = Left(NumC, Len(NumC) - 1) & Mid(D1, J, 1) & "零"End IfCase ElseEnd SelectEnd IfEnd IfNextdaxie = "(人民币)" & FuHao & Trim(NumC)End Function然后切换回excel,在“A2”单元中输入数字，在“B2”单元中输入：“=DaXie(A2)”，就可看到效果。

excel金额大写自动生成的公式

excel金额大写自动生成的公式

一、介绍Excel金额大写自动生成的公式在日常工作中，我们经常会遇到需要将阿拉伯数字金额转换为大写金额的情况。

而在Excel中，我们可以利用公式来实现这一转换，从而提高工作效率。

本文将介绍Excel中金额大写自动生成的公式的使用方法和注意事项。

二、公式的基本原理1. 在Excel中，可以利用VBA编程语言来编写宏以实现金额大写自动生成的功能。

通过编写相应的VBA代码，可以使Excel自动将输入的数字金额转换为大写金额。

2. 公式的基本原理是将输入的阿拉伯数字金额拆分成整数和小数部分，然后分别进行转换为大写金额，最后将整数和小数部分的大写金额合并为最终结果。

三、公式的具体实现步骤1. 在Excel中，首先需要按下Alt + F11组合键打开VBA编辑器，在项目资源管理器中选择需要添加宏的工作簿。

2. 在选中的工作簿中插入一个新的模块，然后在模块中编写相应的VBA代码。

可以借助搜索引擎查找金额大写自动生成的VBA代码，然后将其粘贴到模块中。

3. 在编写完成VBA代码后，可以利用快捷键Alt + F8来运行宏，或者将宏添加到快速访问工具栏，方便日常使用。

四、注意事项1. 在使用金额大写自动生成的公式时，需要确保输入的金额格式正确，且没有特殊符号和字母等非数字字符。

2. 由于VBA代码的复杂性和灵活性，建议在使用前充分了解其功能和运行原理，以避免出现不必要的错误和问题。

3. 在日常工作中，需要根据具体的需求，对金额大写自动生成的公式进行必要的修改和调整，以满足不同的应用场景。

五、结语通过以上介绍，相信大家对Excel金额大写自动生成的公式有了一定的了解。

在实际工作中，合理利用Excel的功能和公式，可以提高工作效率，减少重复劳动，帮助我们更好地处理各类金额转换的需求。

希望本文的介绍能够对大家有所帮助。

六、如何修改VBA代码以适应不同的需求1. 调整显示格式：根据实际需求，我们可以修改VBA代码中的显示格式，包括小数点后保留位数、显示大写金额的格式等。

excel中如何将数字变成大写金额的函数

excel中如何将数字变成大写金额的函数

excel中如何将数字变成大写金额的函数如何在Excel中将数字转化为大写金额在Excel中，我们经常需要将数字转化为大写金额，以便更直观地展示数值。

虽然Excel本身并没有提供直接将数字转化为大写金额的函数，但我们可以通过一些方法来实现这个功能。

本文将介绍两种常用的方法，分别是使用Excel的内置函数和使用自定义宏。

一、使用Excel的内置函数Excel提供了一个内置的函数——“人民币大写”函数，可以将数字转化为大写金额。

下面是使用该函数的步骤：步骤1：打开Excel并选择一个单元格，例如A1，用于输入要转化的数字。

步骤2：在另一个单元格中，例如B1，输入以下公式：=人民币大写(A1)步骤3：按下回车键，即可将A1单元格中的数字转化为大写金额。

需要注意的是，“人民币大写”函数只能将数字转化为中文大写金额，而不能转化为其他语言的大写金额。

如果需要转化为其他语言的大写金额，可以考虑使用自定义宏的方法。

二、使用自定义宏自定义宏是一种基于VBA（Visual Basic for Applications）语言的编程方式，可以在Excel中实现各种自定义功能。

下面是使用自定义宏将数字转化为大写金额的步骤：步骤1：按下Alt+F11键，打开VBA编辑器。

步骤2：在VBA编辑器中，选择“插入”菜单，然后选择“模块”。

步骤3：在新建的模块中，输入以下VBA代码：```Function ConvertToChineseNumber(ByVal MyNumber)Dim MyCurrency, DecimalPlace, CountReDim Place(9) As StringPlace(2) = " Thousand "Place(3) = " Million "Place(4) = " Billion "Place(5) = " Trillion "' Convert MyNumber to String, trimming extra spaces.MyNumber = Trim(CStr(MyNumber))' Check for valid input.If MyNumber = "" ThenConvertToChineseNumber = ""Exit FunctionEnd If' Convert MyNumber to Currency figures.ReDim DecimalPlace(9) As StringDecimalPlace(2) = " Hundred "DecimalPlace(3) = " Thousand "DecimalPlace(4) = " Million "DecimalPlace(5) = " Billion "' Convert MyNumber to Currency figures.MyNumber = Trim(CStr(MyNumber))' Remove leading zeros' DecimalPlace = GetVal(Trim(Mid(MyNumber, DecimalPlace + 1, 2)))Count = 1Do While MyNumber <> ""ReDim Preserve MyCurr(Count) As StringCount = Count + 1MyCurr(Count - 1) = GetTens(Trim(Mid(MyNumber, 1, 2)), MyNumber)If Len(MyNumber) > 2 ThenMyNumber = Trim(Mid(MyNumber, 3))ElseMyNumber = ""End IfLoopCount = Count - 1For DecimalPlace = Count To 1 Step -1MyCurrency = MyCurrency & " " & MyCurr(DecimalPlace) If DecimalPlace = 1 Then' -- If place is ten thousand and greater than 0 set nother name to RupeesIf Len(MyNumber) = 1 Then MyCurr(1) = " and " & MyCurr(1)MyCurrency = MyCurrency & Place(DecimalPlace)End IfNext DecimalPlaceConvertToChineseNumber = MyCurrencyEnd FunctionFunction GetTens(TensText, ByVal Amount)Dim Result As StringResult = "" ' Null out the temporary function value.If Val(Left(TensText, 1)) = 1 Then ' If value between 10-19...Select Case Val(TensText)Case 10: Result = "Ten"Case 11: Result = "Eleven"Case 12: Result = "Twelve"Case 13: Result = "Thirteen"Case 14: Result = "Fourteen"Case 15: Result = "Fifteen"Case 16: Result = "Sixteen"Case 17: Result = "Seventeen"Case 18: Result = "Eighteen"Case 19: Result = "Nineteen"Case ElseEnd SelectElse ' If value between 20-99...Select Case Val(Left(TensText, 1))Case 2: Result = "Twenty "Case 3: Result = "Thirty "Case 4: Result = "Forty "Case 5: Result = "Fifty "Case 6: Result = "Sixty "Case 7: Result = "Seventy "Case 8: Result = "Eighty "Case 9: Result = "Ninety "Case ElseEnd SelectResult = Result & GetDigit _(Right(TensText, 1)) ' Retrieve ones place. End IfGetTens = ResultEnd FunctionFunction GetDigit(Digit)Select Case Val(Digit)Case 1: GetDigit = "One"Case 2: GetDigit = "Two"Case 3: GetDigit = "Three"Case 4: GetDigit = "Four"Case 5: GetDigit = "Five"Case 6: GetDigit = "Six"Case 7: GetDigit = "Seven"Case 8: GetDigit = "Eight"Case 9: GetDigit = "Nine"Case Else: GetDigit = ""End SelectEnd Function```步骤4：按下Ctrl+S保存宏，并关闭VBA编辑器。

  1. 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
  2. 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
  3. 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。

E X C E L金额大写公式详
解
Revised by Jack on December 14,2020
Excel金额大写公式详解
人民币大写的公式很多，随便百度就能找到一堆，但网上的公式多无原理解析，知其然而不知其所以然，用的时候只能将公式复制过去，总有几分不完美
那么一起来追根究底吧，长文预警，今天的内容1400字
================
先搜个金额大写公式再就公式进行解析网上相关公式太多，选个稍微短点的，公式如下▼
=TEXT(LEFT(RMB(A1),LEN(RMB(A1))-3),'[&gt;0][dbnum2]G/通用格式元;[&lt;0]负[dbnum2]G/通用格式元;;') &amp;
TEXT(RIGHT(RMB(A1),2),'[dbnum2]0角0分;;整')
表示完全看不懂
1、如何快速看懂长公式
▼ Excel公式求值
Excel自带公式求值，可查看公式每步计算结果，通过查看每步计算结果分析思路在A1单元格中输入小写金额，B1中输入以上公式
选中B1单元格，【公式】-【公式审核】-【公式求值】
运行求值，查看每一步运算结果，如下图：通过查看计算步骤得知，金额小写转为大写主要通过格式转换函数TEXT函数，将金额分两部分转换为大写金额，整数部分大写小数点部分大写
提到格式转换，Excel单元格格式设置中就有金额大写转换
【数字】-【特殊】-【中文大写数字】如A1单元格金额单元格格式转换后显示为贰拾万壹仟柒佰壹拾壹.零陆
距离我们想要的金额大写很接近了，如果能将数字大写格式转换的代码找到就可用于金额大写中
2、如何查看格式转换代码
▼点击对应格式后，点击自定义，显示对应代码点击【特殊】-【中文大写数字】后点击自定义代码为【[DBNum2][$-804]G/通用格式】
其中[$-804]表示国家或地区（语言）编号，一般可以不填，可直接忽略
提取有用部分：[DBNum2]G/通用格式其中[DBNum2]表示将数字大写G/通用格式表示以常规的数字显示——数字不发生任何变化金额大写中，整数部分以元结尾，小数部分以角和分结尾▼则整数部分 - [DBNum2]G/通用格式元小数部分 - [DBNum2]0角0分如果金额为负怎么办
金额为负，则大写时金额前面加负，如-2对应负贰元，整数部分金额需分两种情况▼①为正数[&gt;0][dbnum2]G/通用格式元
②为负数[&lt;0]负[dbnum2]G/通用格式元
OK，数字大小写转换已解决，整数部分和小数部分用不同的格式转换代码，那么接下来需分别提取整数和小数部分
=========
金额格式一般为：
①小数部分：有且只有2位，最右边2位数字，=right（A1,2)②整数部分：除掉小数部分剩余为整数部分，整数部分位置在左边，但长度不定，长度=总长度-小数位长度=len（A1）-3
小数位不是2个吗怎么减3小数点也占一位整数部分=left（A1,len （A1）-3 )
OK啦漏了一个格式转换，A1单元格的内容为数字格式，金额大小写为货币格式，需将数字转换为货币格式，使用函数RMB在
A1单元格外嵌套个RMB函数
整数部分格式转换：=TEXT(LEFT(RMB(A1),LEN(RMB(A1))-3),'[&gt;0][dbnum2]G/通用格式元;[&lt;0]负[dbnum2]G/通用格式元;;')
小数部分格式转换：=TEXT(RIGHT(RMB(A1),2),'[dbnum2]0角0分;;整')
3、TEXT函数中的的分号;表示什么内容呢三个分号分别将【正数;负数;零;文本】需要显示的内容隔开
如果小数部分为0，则金额大写时添加整[dbnum2]0角0分;;整正数 - [dbnum2]0角0分，用;间隔负数 - 不显示，用;间隔零 - 显示“整”。

相关文档
最新文档