财务金额的自动化大小写转换
- 格式:doc
- 大小:71.00 KB
- 文档页数:3
金额小写自动生成大写公式金额小写转换成大写的公式主要依据中文的数字命名规则。
以下是一个可将金额小写转换成大写的公式:1.将金额小写以“元”为单位进行分组,每四位一组分组(从低位到高位),以方便命名。
2.对于每一组最高位的数字,根据其所在的组数命名单位(例如“元”、“万”、“亿”)。
其他位的数字分别根据其所在的位数加上相应的单位(例如“拾”、“佰”、“仟”、“拾万”、“佰万”、“仟万”、“拾亿”等)。
3.对于每一组中的数字,根据其大小进行命名。
命名规则如下:-0不进行命名,直接舍弃。
-1命名为“壹”或“一”(个别情况)。
-其他数字命名为“贰”、“叁”、“肆”、“伍”、“陆”、“柒”、“捌”、“玖”。
4.在每个数字后面添加相应的单位(例如“角”、“分”、“整”),其他位的单位根据需要进行命名,例如“拾角”、“佰角”、“仟分”等。
5.将每一组的命名和单位合并,组成完整的大写金额。
以下是一个具体的例子来说明公式的应用:假设要将金额小写1202.34转换成大写金额,根据公式:1.将金额小写以“元”为单位进行分组,得到两组数字:1202和342.对于最高位的数字1202,根据其所在的组数命名单位为“元”,其他位的数字分别命名为“壹仟”、“贰佰”、“零拾”、“贰”。
3.对于数字34,命名为“叁拾肆”。
4.在每个数字后面添加相应的单位:1202命名为“壹仟贰佰零拾贰元”,34命名为“叁拾肆分”。
5.将每一组的命名和单位合并,得到大写金额为“壹仟贰佰零拾贰元叁拾肆分”。
这就是将金额小写1202.34转换成大写的公式。
根据这个公式,可以将任何金额小写转换成大写。
转大写金额数字大写对照表
Excel中小写金额自动转换成大写1、我们打开需要转换成大写金额的数据表;
2、用鼠标选中大写金额所在单元格列,再鼠标点击右键;
3、弹出下拉选项菜单后,选择“设置单元格格式”;
4、这时就会弹出一个新的“单元格格式”对话框;
5、在对话框的分类列表中,我们选择“特殊”选项;
6、然后在类型列表中,选择“人民币大写”,再点击“确认”按钮;
7、接下来,我们回到数据表格中,在大写金额B3单元格中,输入条件函数公式=IF(A3,A3,””),按Enter回车键,就设置好了自动转化大写金额的函数公式了;
8、最后,鼠标放到B3单元格右下角,变成黑色十字架后,鼠标双击就将其他需要设置自动转换大写金额的公式设置好了;
9、我们在小写金额单元格中输入金额时,可以看到大写金额单元格中自动的就生成了大写金额了;。
EXCEL中,如何在一个单元格中输入数值,另一个单元格中自动给出大写用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]")&"分"))。
小写金额转换大写金额函数公式小写金额转换成大写金额是我们在日常生活和工作中经常会遇到的问题。
无论是在填写支票、填写发票、办理贷款还是进行财务报表的编制,都需要将小写金额转换成大写金额。
这个过程虽然简单,但却是非常重要的,因为任何一个错误都可能导致不必要的损失或麻烦。
在进行小写金额转换成大写金额时,我们通常使用的是中文的读法,即将数字转换成对应的汉字。
例如,将“123”转换成“壹佰贰拾叁”。
这种方式简单直观,容易理解。
但对于一些较大的金额,汉字的读法可能会比较复杂,需要一定的规律和技巧来进行转换。
在进行小写金额转换成大写金额时,我们可以按照以下规律进行转换:1. 将小写金额从右到左每四位一组进行分组,最后不足四位的补零。
例如,将“1234567890”分成“0001 2345 6789 0000”。
2. 对每一组数字进行转换,从高位到低位依次转换。
例如,对于“0001 2345 6789 0000”,先转换第一组“0001”,再转换第二组“2345”,以此类推。
3. 对于每一组数字,首先将高位的数字转换成对应的汉字,然后加上对应的单位。
例如,对于第一组“0001”,将“1”转换成“壹”,再加上“万”。
4. 对于每一组中的每一位数字,按照规定的读法进行转换。
例如,将“2345”转换成“贰仟叁佰肆拾伍”。
按照以上规律,我们可以将任意的小写金额转换成大写金额。
例如,将“1234567890”转换成“壹拾贰亿叁仟肆佰伍拾陆万柒仟捌佰玖拾元整”。
在实际操作中,我们可以编写一个函数来实现小写金额转换成大写金额。
这个函数可以接受一个小写金额作为输入,并返回对应的大写金额。
函数的实现可以分为以下几个步骤:1. 将小写金额按照每四位一组进行分组,并补零。
2. 对每一组数字进行转换,得到对应的汉字。
3. 将每一组数字转换后的汉字加上对应的单位。
4. 将每一组数字转换后的汉字连接起来,得到最终的大写金额。
通过以上步骤,我们可以编写一个简单而有效的小写金额转换成大写金额的函数。
标题:excel表格中数字自动变成人民币大写的函数在许多日常工作中,我们经常会用到Microsoft Excel这一办公软件来处理数据和表格。
在处理涉及人民币金额的时候,通常需要将数字自动转换成人民币大写的形式,这不仅方便了数据的阅读和理解,也符合财务报表的要求。
下面介绍一种在Excel中实现这一功能的方法,希望对大家有所帮助。
1. 准备工作在使用Excel表格处理人民币金额时,首先需要保证表格中含有人民币金额的数字列。
假设我们要将A列的数字自动转换成人民币大写,我们可以将转换后的结果显示在B列。
2. 编写函数在B列的第一个单元格中,输入以下函数来实现将数字自动转换成人民币大写的功能:=人民币(A1)其中,A1代表了要转换的人民币金额所在的单元格,人民币()为自定义的转换函数名称,可以根据个人喜好进行修改。
3. 自定义函数在Excel中,默认并没有内置的函数来实现将数字转换成人民币大写的功能,因此需要通过自定义宏来实现。
以下是一个示例的自定义函数,供大家参考:Function 人民币(ByVal MyNumber) As StringDim Dollars, Cents, TempDim DecimalPlace, CountReDim place(9) As Stringplace(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 ThenCents = GetTens(Left(Mid(MyNumber, DecimalPlace + 1) _ "00", 2))MyNumber = Trim(Left(MyNumber, DecimalPlace - 1))End IfCount = 1Do While MyNumber <> ""Temp = GetHundreds(Right(MyNumber, 3))If Temp <> "" Then Dollars = Temp place(Count) Dollars If Len(MyNumber) > 3 ThenMyNumber = Left(MyNumber, Len(MyNumber) - 3)ElseMyNumber = ""End IfCount = Count + 1LoopSelect Case DollarsCase ""Dollars = "No Dollars"Case "One"Dollars = "One Dollar"Case ElseDollars = Dollars " 元"End SelectSelect Case CentsCase ""Cents = " and No Cents"Case "One"Cents = " and One Cent"Case ElseCents = " and " Cents " 分"End Select人民币 = Dollars CentsEnd FunctionFunction GetHundreds(ByVal MyNumber)Dim Result As StringIf Val(MyNumber) = 0 Then Exit FunctionMyNumber = Right("000" MyNumber, 3)If Mid(MyNumber, 1, 1) <> "0" ThenResult = GetDigit(Mid(MyNumber, 1, 1)) " 百"End IfIf Mid(MyNumber, 2, 1) <> "0" ThenResult = Result GetDigit(Mid(MyNumber, 2, 1)) " 十"ElseIf Mid(MyNumber, 1, 1) <> "0" And Mid(MyNumber, 2, 1) = "0" ThenResult = Result " 零"End IfEnd IfIf Mid(MyNumber, 3, 1) <> "0" ThenResult = Result GetDigit(Mid(MyNumber, 3, 1))End IfGetHundreds = ResultEnd FunctionFunction GetTens(TensText)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 = "十"Case 11: Result = "十一"Case 12: Result = "十二"Case 13: Result = "十三"Case 14: Result = "十四"Case 15: Result = "十五"Case 16: Result = "十六"Case 17: Result = "十七"Case 18: Result = "十八"Case 19: Result = "十九"Case ElseEnd SelectElse ' If value between 20-99...Select Case Val(Left(TensText, 1))Case 2: Result = "二十 "Case 3: Result = "三十 "Case 4: Result = "四十 "Case 5: Result = "五十 "Case 6: Result = "六十 "Case 7: Result = "七十 "Case 8: Result = "八十 "Case 9: Result = "九十 "Case ElseEnd SelectResult = Result GetDigit _(Right(TensText, 1)) ' Retrieve ones place. End IfGetTens = ResultEnd FunctionFunction GetDigit(Digit)Select Case Val(Digit)Case 1: GetDigit = "一"Case 2: GetDigit = "二"Case 3: GetDigit = "三"Case 4: GetDigit = "四"Case 5: GetDigit = "五"Case 6: GetDigit = "六"Case 7: GetDigit = "七"Case 8: GetDigit = "八"Case 9: GetDigit = "九"Case Else: GetDigit = ""End SelectEnd Function4. 使用自定义函数在完成自定义函数的编写后,我们可以在B列的第一个单元格中输入=人民币(A1),然后按下Enter键,即可看到A1单元格中的人民币金额被自动转换成人民币大写的形式,并显示在B1单元格中。
Excel中金额大小写转换(四舍五入都OK)工程造价,财务常用,小写金额自动转换为大写金额,四舍五入都OK Excel中金额大小写转换编制工程造价很有用编制EXCEL财务表也很有用Excel中金额大小写转换函数[=ntoc(单元格)]一、使用加载宏方法:对于有四舍五入都没问题啊“工具栏”→ “宏”→ “Visual Basic编辑器”,在“Visual Basic编辑器”中顶部选“插入”→ “模块”,在“模块”对话框中选“通用”,并在编辑区域内粘贴以下内容:Function NtoC(n) 'n as singleConst cNum = "零壹贰叁肆伍陆柒捌玖-万仟佰拾亿仟佰拾万仟佰拾元角分"Const cCha = "零仟零佰零拾零零零零零亿零万零元亿万零角零分零整-零零零零零亿万元亿零整整" NtoC = ""n = Round(n, 2)sNum = Trim(Str(Int(n * 100)))For i = 1 To Len(sNum) '逐位转换NtoC = NtoC + Mid(cNum, (Mid(sNum, i, 1)) + 1, 1) + Mid(cNum, 26 - Len(sNum) + i, 1)NextFor i = 0 To 11 '去掉多余的零NtoC = Replace(NtoC, Mid(cCha, i * 2 + 1, 2), Mid(cCha, i + 26, 1))NextEnd Function然后单击“保存”,关闭“Visual Basic编辑器”,回到“工作表1”,输入函数“=NtoC(单元格)”即可。
例如在单元格A1输入:A1=222, 在单元格A2输入:A2=NTOC(A1) 即可,这样A1单元格输入的数变化,A2单元格的大写自动变化。
A2单元格最好进行单元锁定。
一、介绍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技巧,都是和财会行业有关的,一个是金额单位转换,另一个是小写金额转大写。
1,金额单位转换
财务人员在日常工作中,经常需要将金额显示为不同单位,以满足不同场合的报表需求,比如千元、万元、十万元、百万元等等。
1)以千元为单位显示
选中金额所在的单元格区域,按组合键<Ctrl+1>,打开【设置单元格格式】对话框。
在【数字】选项卡下,单击[自定义]类别选项,在右侧的格式类型编辑框中输入以下代码即可将金额以千元为单位显示。
#0.00,
2)以万为单位显示
在【设置单元格格式】对话框的格式类型编辑框以下代码,单元格中的数据将以万为单位显示:
#0!.0,
逗号是千分位分隔符,前面再加两个0也就是十万了。
EXCEL金额大小写转换公式大全在Excel中,可以使用以下公式将金额从数字形式转换为大写形式:1.数字转换为大写金额:=IF(A1<0,"负","")&NUMBERTEXT(ABS(A1))这个公式将数字转换为大写金额。
如果数字为负数,则在转换后的金额前面加上“负”字样。
2.人民币大写金额:=TEXT(NUMBERTEXT(A1),"[DBNum2][$¥-804]")&"整"此公式将数字转换为人民币大写金额,并在金额后面加上“整”字样。
3.美元大写金额:=TEXT(A1,"[$-409]0")&"美元整"此公式将数字转换为美元大写金额,并在金额后面加上“美元整”字样。
4.英文大写金额:=PROPER(TEXT(A1,"[ENG11A]General Number")) & " DOLLARS"此公式将数字转换为英文大写金额,并在金额后面加上“DOLLARS”。
5.澳大利亚元大写金额:=TEXT(A1,"[$-C09]0") & " Australian Dollars"此公式将数字转换为澳大利亚元大写金额,并在金额后面加上“Australian Dollars”。
6.日元大写金额:=TEXT(A1,"[$¥-411]")&"日元整"此公式将数字转换为日元大写金额,并在金额后面加上“日元整”。
7.欧元大写金额:=TEXT(A1,"[$€-40C]")&"欧元整"此公式将数字转换为欧元大写金额,并在金额后面加上“欧元整”。
8.加拿大元大写金额:=TEXT(A1,"[$C0A]") & " Canadian Dollars"此公式将数字转换为加拿大元大写金额,并在金额后面加上“Canadian Dollars”。
财务金额的自动化大小写转换
在与报销单类似的财务单据填写过程中,货币金额的小写和大写转化是一个很重要的环节,在手工处理时,不但输入时很繁琐,而且还往往会出现不符合财务上描述货币数字的情况。
在本例中,我们事先自定义一个函数,然后再利用自定义的函数来实现自动转换,具体的操作步骤如下:(1)执行菜单栏中的【工具】|【宏】|【Visual Basic编辑器】命令,进入“Visual Basic编辑”窗口。
(2)在“Visual Basic编辑”窗口中,执行菜单栏中的【插入】|【模块】命令,插入一个模块(如图1所示)。
双击左侧的“模块1”,在窗口右边展开“模块1(代码)”编辑窗口,输入如下代码:
图1 插入模块
Function dx(q)
ybb = Round(q * 100) '将输入的数值扩大100倍,进行四舍五入
y = Int(ybb / 100) '截取出整数部分
j = Int(ybb / 10) - y * 10 '截取出十分位
f = ybb - y * 100 - j * 10 '截取出百分位
zy = Application.WorksheetFunction.Text(y, "[dbnum2]") '将整数部分转为中文大写
zj = Application.WorksheetFunction.Text(j, "[dbnum2]") '将十分位转为中文大写
zf = Application.WorksheetFunction.Text(f, "[dbnum2]") '将百分位转为中文大写
dx = zy & "元" & "整"
d1 = zy & "元"
If f <> 0 And j <> 0 Then
dx = d1 & zj & "角" & zf & "分"
If y = 0 Then
dx = zj & "角" & zf & "分"
End If
End If
If f = 0 And j <> 0 Then
dx = d1 & zj & "角" & "整"
If y = 0 Then
dx = zj & "角" & "整"
End If
End If
If f <> 0 And j = 0 Then
dx = d1 & zj & zf & "分"
If y = 0 Then
dx = zf & "分"
End If
End If
If q = "" Then
dx = 0 '如没有输入任何数值为0
End If
End Function
提示:代码中“dx”是自定义函数名称,读者可以修改为其他字符。
(3)输入完成后,关闭VBA编辑窗口返回工作表状态。
(4)在D13单元格中输入公式:=dx(F12),确认后即可将F12单元格中所示的小写数字金额转换为大写的数字金额,并将结果显示在D13单元格中,如图2所示。
财务小写金额转大写金额的多种方法
2010-01-20 12:43:53| 分类:电脑知识主要exce | 标签:|字号大中小订阅
第一种方法:=IF(ISERROR(FIND(".",A1)),NUMBERSTRING(INT(A1),2)&"元整",IF(ISERROR(NUMBERSTRING(MID(A1,FIND(".",A1)+2,1),2)),NUMBERSTRING(INT(A1),2)&"元"&NUMBERSTRING(MID(A1,FIND(".",A1)+1,1),2)&"角整",NUMBERSTRING(INT(A1),2)&"元"&NUMBERSTRING(MID(A1,FIND(".",A1)+1,1),2)&"角"&NUMBERSTRING(MID(A1,FIND(".",A1)+2,1),2)&"分"))
生成效果:肆佰叁拾伍元整
第二种方法:=IF(ISERROR(FIND(".",A1)),TEXT(INT(A1),"[DBNum2]G/通用格式")&"元整",IF(ISERROR(TEXT(MID(A1,FIND(".",A1)+2,1),"[DBNum2]G/通用格式")),TEXT(INT(A1),"[DBNum2]G/通用格式")&"元"&TEXT(MID(A1,FIND(".",A1)+1,1),"[DBNum2]G/通用格式")&"角整",TEXT(INT(A1),"[DBNum2]G/通用格式")&"元"&TEXT(MID(A1,FIND(".",A1)+1,1),"[DBNum2]G/通用格式")&"角"&TEXT(MID(A1,FIND(".",A1)+2,1),"[DBNum2]G/通用格式")&"分"))
生成效果:肆佰叁拾伍元整
第三种方法:=IF((INT(A1*10)-INT(A1)*10)=0,TEXT(INT(A1),"[DBNum2]G/通用格式")&"元"&IF((INT(A1*100)-INT((A1)*10)*10)=0,"整","零"&TEXT(INT(A1*100)-INT(A1*10)*10,"[DBNum2]G/通用格式")&"分"),TEXT(INT(A1),"[DBNum2]G/通用格式")&"元"&IF((INT(A1*100)-INT((A1)*10)*10)=0,TEXT((INT(A1*10)-INT(A1)*10),"[DBNum2]G/通用格式")&"角整",TEXT((INT(A1*10)-INT(A1)*10),"[DBNum2]G/通用格式")&"角"&TEXT(INT(A1*100)-INT(A1*10)*10,"[DBNum2]G/通用格式")&"分"))
生成效果:肆佰叁拾伍元整
第四种方法:=SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(NUMBERSTRING(INT(A1),2)&"圆"&TEXT(MOD(A1,1)*100,"[dbnum2]0角整0分"),"零角零分","整"),"零角","零"),"零分","")
生成效果:肆佰叁拾伍元整
第五种方法:=IF(A1=0,"零",IF(A1>-0.5%,,"负")&TEXT(INT(ABS(A1)),"[dbnum2]G/通用格式元;;")&SUBSTITUTE(SUBSTITUTE(TEXT(RIGHT(FIXED(A1),2),"[dbnum2]0角0分;;"),"零角",IF(ABS(A1)<1,,"零")),"零分","整"))
生成效果:肆佰叁拾伍元整
第六种方法:=SUBSTITUTE(SUBSTITUTE(TEXT(TRUNC(FIXED(A1)),"合计人民币大写金额:[dbnum2]G/通用格式元;负[dbnum2]G/通用格式元;"&IF(A1>-0.5%,,"负"))&TEXT(RIGHT(FIXED(A1),2),"[dbnum2]0角0分;;"&IF(ABS(A1)>1%,"整",)),"零角",IF(ABS(A1)<1,,"零")),"零分","整")
生成效果:合计人民币大写金额:肆佰叁拾伍元整
上面的多种方法有的可能考虑的不太周到还需要改进,等待大家的改进,如果还有更好的方法,发上来大家分享一下。