将数值转换成财务需要的包含元角分的中文大写表达式.doc

自定义函数：将数值转换成财务需要的包含元角分的中文大写表达方式 日常财务工作，会有一种工作需求：将纯数字数据转换成包含有“元，角，分”字样的中文大写表达形式，在EXCEL的自定义格式里没有这样一种模板，通过自定义函数可以实现这样一种工作要求。以下为自定义函数内容： Public Function 中文大写 数字 As Currency As String Dim A As Variant, b As Integer, c As Integer Dim q 1 To 9 As String, s1 As Variant q 1 壹: q 2 贰: q 3 叁: q 4 肆 q 5 伍: q 6 陆: q 7 柒: q 8 捌: q 9 玖 A Int 数字 b Val Mid Str 数字 , InStr 1, Str 数字 , . + 1, 1 c Val Right Application.Text Str 数字 * 100 , 0 , 1 s1 Application.Text A, [DBNum2] If A 0 Then If b 0 Then If c 0 Then 中文大写 Exit Function Else 中文大写 q c 分 Exit Function End If ElseIf c 0 Then 中文大写 q b 角整 Exit Function Else 中文大写 q b 角 q c 分 Exit Function End If ElseIf b 0 Then If c 0 Then 中文大写 s1 元整 Exit Function Else 中文大写 s1 元零 q c 分 Exit Function End If ElseIf c 0 Then 中文大写 s1 元 q b 角整 Exit Function Else 中文大写 s1 元 q b 角 q c 分 Exit Function End IfEnd Function 这个函数名字为? “中文大写”，当然你也可以改成任何一个你觉得方便你喜欢的名字。? 在加载了这个函数的工作簿中，我们可以把这个函数象任何一个EXCEL内置函数一样使用了。 但同时，一个新的问题出现了！ 新开的工作簿，也就是没有加载这个函数的工作簿就无法用这个函数，或者是别人的电脑想用这个函数，如何解决这个问题呢？ 通常，自定义的函数只能在当前工作薄使用，如果该函数需要在其它工作薄中使用，则选择菜单“文件→另存为”命令，打开“另存为”对话框，选择保存类型为“Mircosoft Excel加载宏”，然后输入一个文件名，如“aa”单击“确定”后文件就被保存为加载宏。然后选择菜单“工具→加载宏”命令，打开“加载宏”对话框，勾选“可用加载宏”列表框中的“aa”复选框即可，单击“确定”按钮后，就可以在本机上的所有工作薄中使用该自定义函数了。 如果想要在其它机器上使用该自定义函数，只要把上面的加载宏文件复制到其它电脑上加载宏的默认保存位置即可。加载宏存放路径一般如下：C:\Documents and Settings\Administrator\Application Data\Microsoft\AddIns操作视频如下：?