Office中国论坛/Access中国论坛

标题: 数字转人民币大写金额的vba方法在2007中不通用阿？ [打印本页]

作者: shawb 时间: 2008-4-29 10:12
标题: 数字转人民币大写金额的vba方法在2007中不通用阿？
按照微软的帮助，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 时间: 2008-4-29 13:13
改成：
zy = Application.WorksheetFunction.Text(y, "[DBNum2]") '将整数部分转为中文大写
zj = Application.WorksheetFunction.Text(j, "[DBNum2]") '将十分位转为中文大写
zf = Application.WorksheetFunction.Text(f, "[DBNum2]") '将百分位转为中文大写

作者: shawb 时间: 2008-4-29 14:46
谢谢你的回复，这下单元格显示：

#NAME?

晕。

我的具体做法是：

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

继续求解。

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

作者: shawb 时间: 2008-4-29 14:59
没有问题了，关闭再打开一下就好了。谢谢你。

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

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

作者: shawb 时间: 2008-4-29 15:24
好了，我弄好了：

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

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)