《Excel设置会计专用大写金额方法.docx》由会员分享,可在线阅读,更多相关《Excel设置会计专用大写金额方法.docx(3页珍藏版)》请在三一办公上搜索。
1、Excel设置会计专用大写金额方法打开Excel,在任意一个工作表右击鼠标键,点击“查看代码”,在VB代码界面的左窗口空白处右击鼠标键,点击导入文件选择压缩包里的“大写.bas”,导入成功后,保存,退出。 导入后的界面如下图:然后在返回刚才的Execl用“DaXie”这个函数就可以得到专用的大写金额了。实际如下图注意:此方法只能针对单一的Excel工作簿,每新增一个工作薄都要做同样的工作才能得到 大写的效果。如其他群友宣传此方法,请注明出处。代码如下:试编写数字金额转中文大写的函数Function DaXie(ByVal Num) 人民币中文大写函数Application.Volatile T
2、ruePlace = ”分角元拾佰仟万拾佰仟亿拾佰仟万”Dn =壹贰叁肆伍陆柒捌玖”D1 =”整零元零零零万零零零亿零零零万”If 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非零数字转换Nu
3、mC = 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 FunctionBy:康师傅