自定义函数,ALT+F11,ALT+I+M,复制下面代码,保存,
假设你的数据在A1,在B1输入=dxton(A1),在C1输入=text(b1,"[dbnum2]")
Function DxToN(ss)
For i% = 1 To 9
ss = Replace(ss, Mid("壹贰叁肆伍陆柒捌玖", i, 1), i)
ss = Replace(ss, Mid("一二三四五六七八九", i, 1), i)
Next
For i% = Len(ss) To 1 Step -1
s$ = Mid$(ss, i, 1)
x% = InStr("分角圆拾佰仟万拾佰仟亿拾佰仟兆", s)
If x = 0 Then x% = InStr("分毛元十百千万十百千亿十百千兆", s)
If x Then j% = IIf(j% < x, x, ((j - 3) \ 4) * 4 + x)
If Val(s) Then m# = m# + (s & String(j - 1, "0")) / 100
Next
DxToN = Format(m, "0.00")
If InStr(ss, "-") Or InStr(ss, "负") Then DxToN = "-" & DxToN
End Function
拾壹万柒仟元整(银行是这么写的)
117,000
117,000 十一万七千元整 不知道是不是楼主要的样子 ~~
壹拾壹万柒仟圆整
117,000
壹拾壹万柒仟圆整
117,000.00