随着手机里面功能越来越丰富，让我们使用起来越来越方便了，给我们的生活带来了极大的便利。怎样使用VBA人民币大写？
工具/原料
手机
方法/步骤
1
首先在开发工具中打开VBA编辑器
2
在单元格区域当中输入一些内容作为例子
3
在VBA编辑器中插入模块
4
在模块当中输入如下代码，然后运行 Function Rmbs(rng As Variant) As String '大写 Application.Volatile If Not VBA.IsNumeric(rng) Then Rmbs='': Exit Function If rng='' Then Rmbs='': Exit Function If rng=0 Then Rmbs='零圆整': Exit Function Rmbs=Replace(Replace(Application.Text(Round(rng, 2), '[DBnum2]'), '.', '圆'), '-', '负') '精确到两位并将小数点替换为圆，将负号替换为“负” Rmbs=IIf(Left(Right(Rmbs, 3), 1)='圆', Left(Rmbs, Len(Rmbs)-1) & '角' & Right(Rmbs, 1) & '分', IIf(Left(Right(Rmbs, 2), 1)='圆', Rmbs & '角', IIf(Rmbs='零', '', Rmbs & '圆整'))) Rmbs=Replace(Replace(Rmbs, '零圆', ''), '零角', '') End Function
5
数据如图所示，其中有数字、零值、空值、文本，要求仅仅对数字转换为大写。在单元格B1中输入公式“=Rmbs(A1)”再下拉，结果如图
注意事项
智能手机助理给我们的生活带来了极大的便利！
上一篇：wps自动生成大写金额
下一篇：填制原始凭证时需注意的事情