数字转人民币大写金额的vba方法在2007中不通用阿？

shawb

按照微软的帮助，http://support.microsoft.com/kb/890704/zh-cn

在本例中，我们事先自定义一个函数，然后再利用自定义的函数来实现自动转换，具体的操作步骤如下：

执行菜单栏中的【工具】|【宏】|【Visual Basic编辑器】命令，进入“Visual Basic编辑”窗口。

在“Visual Basic编辑”窗口中，执行菜单栏中的【插入】|【模块】命令，插入一个模块（如图1所示）。双击左侧的“模块1”，在窗口右边展开“模块1（代码）”编辑窗口，输入如下代码: Function dx(q) ybb = Round(q * 100) '将输入的数值扩大100倍，进行四舍五入 y = Int(ybb / 100) '截取出整数部分 j = Int(ybb / 10) - y * 10 '截取出十分位 f = ybb - y * 100 - j * 10 '截取出百分位 zy = Application.WorksheetFunction.Text(y, "[DBNum2][$-804]G/通用格式") '将整数部分转为中文大写 zj = Application.WorksheetFunction.Text(j, "[DBNum2][$-804]G/通用格式") '将十分位转为中文大写 zf = Application.WorksheetFunction.Text(f, "[DBNum2][$-804]G/通用格式") '将百分位转为中文大写 dx = zy & "元" & "整" d1 = zy & "元" If f <> 0 And j <> 0 Then   dx = d1 & zj & "角" & zf & "分"   If y = 0 Then                                                                                                                                                     dx = zj & "角" & zf & "分"          End If End If If f = 0 And j <> 0 Then    dx = d1 & zj & "角" & "整"                                      If y = 0 Then       dx = zj & "角" & "整"      End If End If If f <> 0 And j = 0 Then   dx = d1 & zj & zf & "分"   If y = 0 Then      dx = zf & "分"   End If End If If q = "" Then    dx = 0 '如没有输入任何数值为0 End If End Function

输入完成后，关闭VBA编辑窗口返回工作表状态。

在D13单元格中输入公式：=dx(F12)，确认后即可将F12单元格中所示的小写数字金额转换为大写的数字金额，并将结果显示在D13单元格中，如图2所示。

用excel2007做下来单元格显示出来的不是大写金额，而是以下内容：

/通用格式元整

是不是哪里错了？请求援助。

[ 本帖最后由 shawb 于 2008-4-29 10:15 编辑 ]

bonesoup

改成：
zy = Application.WorksheetFunction.Text(y, "[DBNum2]") '将整数部分转为中文大写
zj = Application.WorksheetFunction.Text(j, "[DBNum2]") '将十分位转为中文大写
zf = Application.WorksheetFunction.Text(f, "[DBNum2]") '将百分位转为中文大写

shawb

谢谢你的回复，这下单元格显示：

#NAME?

晕。

我的具体做法是：

1。打开excel2007，对着表标签，右键“查看代码”；
2。在Visual Basic中新建了一个模块，输入以上代码；
3。然后回到工作表中使用 =dx() 函数，计算结果是上面那样。

继续求解。

[ 本帖最后由 shawb 于 2008-4-29 14:52 编辑 ]

shawb

没有问题了，关闭再打开一下就好了。谢谢你。

想让大写金额前再出现“人民币”三个字，程序里加在哪里？

[ 本帖最后由 shawb 于 2008-4-29 15:03 编辑 ]

shawb

好了，我弄好了：

Function dx(q)

ybb = Round(q * 100)        '将输入的数值扩大100倍，进行四舍五入
y = Int(q)                  '截取出整数部分
j = Int(ybb / 10) - y * 10  '截取出十分位
f = ybb - y * 100 - j * 10  '截取出百分位

zy = Application.WorksheetFunction.Text(y, "[DBNum2]") '将整数部分转为中文大写
zj = Application.WorksheetFunction.Text(j, "[DBNum2]") '将十分位转为中文大写
zf = Application.WorksheetFunction.Text(f, "[DBNum2]") '将百分位转为中文大写
dx = "人民币" & zy & "圆" & "整"
d1 = "人民币" & zy & "圆"

If f <> 0 And j <> 0 Then
    dx = d1 & zj & "角" & zf & "分"
    If y = 0 Then
        dx = zj & "角" & zf & "分"
    End If
End If

If f = 0 And j <> 0 Then
    dx = d1 & zj & "角" & "整"
    If y = 0 Then
        dx = "人民币" & zj & "角" & "整"
    End If
End If

If f <> 0 And j = 0 Then
    dx = d1 & zj & zf & "分"
    If y = 0 Then
        dx = "人民币" & zf & "分"
    End If
End If

If q = "" Then
    dx = "表格填写尚未完成"   '空白时返回值
End If

End Function