Excel人民币大写转换函数
方法
打开Excel,在工作表上点击右键,选择查看代码。
点击插入。
点击模块。
输入以下代码
Function d(q)ybb = Round(q * 100)'将输入的数值扩大100倍,进行四舍五入y = Int(ybb / 100)'截取整数部分j = Int(ybb / 10) - y * 10'截取十分位f = ybb - y * 100 - j * 100'截取百分位zy = Application.WorksheetFunction.Text(y, "[dbnum2]")'将整数部分转为中文大写zj = Application.WorksheetFunction.Text(j, "[dbnum2]")'将十分位转为中文大写zf = Application.WorksheetFunction.Text(f, "[dbnum2]")'将百分位转为中文大写d = zy & "元"If f <> 0 And j <> 0 Thend = d & zj & "角" & zf & "分"If y = 0 Thend = zj & "角" & zf & "分"End IfEnd IfIf f = 0 And j <> 0 Thend = d & zj & "角"If y = 0 Thend = zj & "角" End IfEnd IfIf f <> 0 And j = 0 Thend = d & zj & zf & "分"If y = 0 Then d = zf & "分" End IfEnd IfIf q = "" Then d = 0 '如果没有输入任何数值为0End If End Function
输入数据验证。
如图所示。