怎样使用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)”再下拉，结果如图