随着手机里面功能越来越丰富，让我们使用起来越来越方便了，给我们的生活带来了极大的便利。怎样使用VBA人民币大写？
工具/原料
手机
方法/步骤
1、首先在开发工具中打开VBA编辑器
2、在单元格区域当中输入一些内容作为例子
3、在VBA编辑器中插入模块
4、在模块当中输入如下代码，然后运行FunctionRmbs(rngAsVari瞢铍库祢ant)AsS墉掠载牿tring'大写Application.VolatileIfNotVBA.IsNumeric(rng)ThenRmbs="":ExitFunctionIfrng=""ThenRmbs="":ExitFunctionIfrng=0ThenRmbs="零圆整":ExitFunctionRmbs=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,"零圆",""),"零角","")EndFunction
5、数倌栗受绽据如图所示，其中有数字、零值、空值、文本，要求仅仅对数字转换为大写。在单元格B1中输入公式“=Rmbs(A1)”再下拉，结果如图
