付款审批单大写自动生成
利用Excel函数公式制作财务大写金额模板
利用Excel函数公式制作财务大写金额模板在Excel中制作财务大写金额模板可以通过使用Excel函数公式来实现。
下面将详细介绍如何使用Excel函数公式制作财务大写金额模板。
第一步：打开Excel并创建一个新的工作簿。
第二步：在第一个单元格（例如A1）输入要转换的数字金额。
第三步：在下一个单元格（例如B1）输入以下公式：=财务大写(A1)第四步：按下回车键，Excel将会自动把数字金额转换成大写金额。
接下来我们将详细介绍如何编写“财务大写”函数。
第一步：选中工具栏上的“开发工具”选项卡。
如果在Excel选项中没有找到该选项卡，请选择“文件”->“选项”->“自定义功能区”，然后勾选“开发工具”。
第四步：在新的模块中，编写下面的VBA代码：Function 财务大写(金额 As Variant) As StringDim 大写金额 As StringDim 数字金额 As DoubleDim 整数部分 As StringDim 小数部分 As StringDim 分号位置 As IntegerDim 节位 As IntegerDim 单位 As StringDim 数字 As IntegerDim i As IntegerDim 已分位 As BooleanDim 零位 As IntegerDim 位 As Integer如果 IsNumeric(金额) = False Then 财务大写="输入有误"Exit FunctionEnd If数字金额=金额如果数字金额 < 0 Then财务大写="负"&财务大写(-数字金额) Exit FunctionEnd If如果数字金额 = 0 Then财务大写="零元整"Exit FunctionEnd If财务大写="数值太大"Exit FunctionEnd If大写金额=""数字 = Int(n)数字金额=数字金额-数字小数部分 = Format(n * 100, "00") & "分"分号位置=0已分位 = False零位=-1Do While 数字 > 0节位=节位+1如果位 > 0 Then位 = 位 Mod 100位 = 位 Mod 10如果位 > 0 Then如果节位 >= 2 Then单位="亿"单位="万"Else单位=""End If如果位 = 1 Then LargeNum = "壹" & 单位ElseIf 位 = 2 Then LargeNum = "贰" & 单位ElseIf 位 = 3 Then LargeNum = "叁" & 单位ElseIf 位 = 4 Then LargeNum = "肆" & 单位ElseIf 位 = 5 Then LargeNum = "伍" & 单位ElseIf 位 = 6 Then LargeNum = "陆" & 单位ElseIf 位 = 7 Then LargeNum = "柒" & 单位LargeNum = "捌" & 单位ElseIf 位 = 9 ThenLargeNum = "玖" & 单位ElseIf 位 >= 10 And 位 <= 19 Then已分位 = True大写金额 = "拾" & Mid(LargeNum, 2) & 大写金额单位=""Else已分位 = True大写金额 = Mid(LargeNum, 位, 1) & 单位 & 大写金额单位=""End IfElseIf 节位 = 1 Then大写金额="零"&大写金额End If如果节位 = 2 And Val(右(Mid(大写金额, 1, 1))) = 0 Then 大写金额=大写金额&"零"End IfElseIf 已分位 = True And 零位 > 0 Then零位=零位-1大写金额 = Mid(LargeNum, 位, 1) & 单位 & 大写金额单位=""ElseIf 已分位 = False And 分号位置 > 0 Then分号位置=分号位置-1大写金额 = Mid(LargeNum, 位, 1) & 单位 & 大写金额单位=""ElseIf 单位 = "元" Then大写金额="零"&单位&大写金额单位=""零位=3已分位 = TrueElse大写金额="零"&大写金额End If数字金额=数字金额*100数字 = Int(数字金额)小数部分 = 在Excel里Format(n * 100, "00") & "分"If Asc(Right(Format(数字, "#.00"), 1)) = 0 Then小数部分=""End IfLoop大写金额="人民币"&大写金额&"元"&小数部分财务大写=大写金额End Function现在，你可以在Excel中使用“财务大写”函数公式来将数字金额转换成大写金额了。
合同审批与付款操作指南
合同审批及付款操作指南南京公司合同审批及付款在OA中实现电子流审批，相关的操作步骤如下：一、发起签呈表目前采用的纸质签呈表，对应于OA系统中的文件会签单，发起签呈表时，只需进入OA系统【综合办公】模块的“南京文件会签单”，点击“新建”即可新建一个文件会签单，如图1-1所示：图1-1表单填写说明：编号：不可编辑，申请单提交后，系统自动生成（编号规则由管理员统一维护）。
✧日期：不可编辑，默认为系统当前日期。
✧文件名称：必填项，填写文件的名称。
✧文件编号：填写文件的编号信息。
✧概要：必填项，填写文件的概要信息。
✧经办人：不可编辑，默认为系统的当前用户名，可以通过“选择“按钮重新选择经办人。
✧部门：不可编辑，默认值为系统当前用户所在部门。
✧是否需要发文：默认值为空，可以选择“是”或“否”，此处的选择仅做为一个标识，不与其他功能相关联。
✧是否需要盖章：默认值为空，可以选择“是”或“否”，此处的选择仅做为一个标识，不与其他功能相关联。
✧是否需要存档：默认值为空，可以选择“是”或“否”，此处的选择仅做为一个标识，不与其他功能相关联。
✧备注：填写需备注说明的信息。
注：需要挂载附件文件时，点击图1-1中红色标识出的回形针按钮，即可上传文件，上传成功后如图1-1所示。
上传的文件大小控制在10M以内，如太大会影响上传的速度，领导查阅时，打开文件的速度也会受到影响。
流程图及说明：图1-2✧顺序审批按选择人员的顺序依次进行审批，全部人员审批结束后，本环节才算审批结束；该环节的审批人可以为一个人，也可以为多个人。
✧并发审批选择的人员必须全部审批通过后（审批不分先后顺序），该环节才算审批结束；该环节的审批人可以为一个人，也可以为多个人。
在并发审批时，如果该环节的审批人为多个（2人及以上），用户打开审批单时，系统会弹出如图1-3所示的提示框：图1-3点击“确定”进行审批即可。
二、发起合同申请审批在文件会签单审批结束后，即可在OA系统中发起合同会签单申请审批，进入【综合办公】模块的“南京合同会签单”，点击“新建”按钮即可新建一个合同会签单，如图1-4所示：图1-4表单填写说明：编号：不可编辑，申请单提交后，系统自动生成（编号规则由管理员统一维护）。
自动生成大写
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]")&"分"))。
付款证明(金额自动转换大写)
年 月
日
联系电话
月
日
0
452526196608206036 北流XXXXX 单价
小写金额
￥0.00
小写金额 合 计 大写金额
￥0.00 0
声明：本申请人填写的以上内容真实、可靠、完整，如有虚假，愿承担法律责任。 申请人签（章）字： 税收缴款书号 税务机关审批意见 年 发票号码 月 日
减免税、不征税依据：
经办人：
付款单位(或个人)证明
付款单位 (个人)名称 (盖章) 付款单位税务登记证号 (单位(个人)名称 提供货物或劳务服务 单位(个人)名称 所购货物或劳务服务名称 数量 单价 大写金额 电话
北流XXXXX
电话
Hale Waihona Puke 小写金额XXXXXX
￥0.00
合
计
0
￥0.00
代开普通统一发票申请表
年
申请单位 (个人)名称 申请单位 经办人姓名 申请个人或申请单 位经办人身份证号 付款单位 (个人)名称 应税劳务名称 XXXXXX 数量 0
付款申请单 (金额小写自动变大写公式)
备注
2.给供应商付款之前应扣费用必须以现金的方式结算清楚 3.如供应商拒付应扣费用，货款将延迟付出由此带来的损失由供应商负债
2018/5/6
发至传真号：
XX公司付款申请单
付款申请单编号 请付给: 合同金额: 人民币 用途说明: 其它说明 实付金额: 人民币 金额 (大写): 壹万元整 金额 (小写): 10000 金额 (大写): 壹万元整 付款方式: 合同编号 金额 (小写): 10000
以下为收款单位银行信息 收款单位全称 账号 开户行 收款单位联系方式 工程部（意见） 采购部（意见） 安全部（意见） 质量部（意见） 行政部（意见） 费控部（审核） 施工经理（意见） 项目经理（盖章,同时具有编号及详细支付内容的申请单方可支付 授权及确认 2. 付出后请将汇款底单传真至022-26809708确认 1.应扣费用为供应商确认好的费用 应扣费用 应扣费用 应扣费用 应扣费用 应扣费用
费用报销单(自动累计转换大写)
日期费用项目
金额票据张数2016.9.1
2016.9.1
2016.9.1小写金额：0.00附件：43 清预支
报销 考核内 考核外日期
费用项目金额票据张数2016.9.1小写金额：0.00附件：2 清预支
报销 考核内 考核外领款人签字出纳签字年 月 日付款方式 现金 支票 转账 电汇 其他收款账号：差旅费（邮费）年 月 日
业务接待费
报销/结算事项描述副总经理会计差旅费（过路费）总经理费用报销单
申请人：
所属部门：公司：开户行：人民币元整
结 算 大 写 金 额：经办人领款人签字出纳签字公司：费用报销单
董事长申请人：
所属部门：董事长开户行：报销/结算事项描述设计费付款方式 现金 支票 转账 电汇 其他收款账号：经办人会计副总经理总经理结 算 大 写 金 额：人民币元整
预算内预算外
预算内预算外。
财务金额的自动化大小写转换
财务金额的自动化大小写转换在与报销单类似的财务单据填写过程中，货币金额的小写和大写转化是一个很重要的环节，在手工处理时，不但输入时很繁琐，而且还往往会出现不符合财务上描述货币数字的情况。
在本例中，我们事先自定义一个函数，然后再利用自定义的函数来实现自动转换，具体的操作步骤如下：（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 Thendx = d1 & zj & "角" & zf & "分"If y = 0 Thendx = zj & "角" & zf & "分"End IfEnd IfIf f = 0 And j <> 0 Thendx = d1 & zj & "角" & "整"If y = 0 Thendx = zj & "角" & "整"End IfEnd IfIf f <> 0 And j = 0 Thendx = d1 & zj & zf & "分"If y = 0 Thendx = zf & "分"End IfEnd IfIf q = "" Thendx = 0 '如没有输入任何数值为0End IfEnd Function提示：代码中“dx”是自定义函数名称，读者可以修改为其他字符。