电子表格数字转换成大写数字，并且大写数字要对应到单元格里，效果图如下，求大神帮忙！

例如输入金额456，转换成大写时对应的万位、千位为“*”，角、分为“零”，求解，期待中……

推荐答案 2012-09-16

在A2里输入=TEXT(IF(ROUNDDOWN(J2,-6)>0,(ROUNDDOWN(J2,-6)-ROUNDDOWN(J2,-7))/1000000,""),"[dbnum2]G/通用格式;;")

在B2里输入=TEXT(IF(ROUNDDOWN(J2,-5)>0,(ROUNDDOWN(J2,-5)-ROUNDDOWN(J2,-6))/100000,""),"[dbnum2]G/通用格式;;")
在C2里输入=TEXT(IF(ROUNDDOWN(J2,-4)>0,(ROUNDDOWN(J2,-4)-ROUNDDOWN(J2,-5)/10000,""),"[dbnum2]G/通用格式;;")
在D2里输入=TEXT(IF(ROUNDDOWN(J2,-3)>0,(ROUNDDOWN(J2,-3)-ROUNDDOWN(J2,-4)/1000,""),"[dbnum2]G/通用格式;;")
在E2里输入=TEXT(IF(ROUNDDOWN(J2,-2)>0,(ROUNDDOWN(J2,-2)-ROUNDDOWN(J2,-3)/100,""),"[dbnum2]G/通用格式;;")
在F2里输入=TEXT(IF(ROUNDDOWN(J2,-1)>0,(ROUNDDOWN(J2,-1)-ROUNDDOWN(J2,-2)/10,""),"[dbnum2]G/通用格式;;")
在G2里输入=TEXT(IF(ROUNDDOWN(J2,0)>0,(ROUNDDOWN(J2,0)-ROUNDDOWN(J2,-1),""),"[dbnum2]G/通用格式;;")
在H2里输入=TEXT((ROUNDDOWN(J2,1)-ROUNDDOWN(J2,0))*10,"[dbnum2]0")
在I2里输入=TEXT((ROUNDDOWN(J2,2)-ROUNDDOWN(J2,1))*100,"[dbnum2]0")
随后可以把A2的公式下拉，A列（A3、A4等）就自动填写了有效公式。对B2、C2、D2、E2、F2、G2、H2、I2进行同样的下拉操作。

温馨提示：答案为网友推荐，仅供参考

当前网址：https://verywind.cn/ee/3jf7yrvrr.html

其他回答

第1个回答 2012-09-12

利用查找替换

第2个回答 2012-09-12

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
cr = Target.Row
cc = Target.Column
If cr < 2 Or cc <> 10 Then End
dx = Array("零", "壹", "贰", "叁", "肆", "伍", "陆", "柒", "捌", "玖")
sz = Int(Cells(cr - 1, cc).Value * 100)
Target.Value = ""
For i = 1 To 9
ys = sz Mod 10
If sz = 0 Then
vv = "*"
Else
vv = dx(ys)
End If
Cells(cr - 1, 10 - i).Value = vv
sz = Int(sz / 10)
Next
End Sub

你可能感兴趣的内容

大家正在搜

电子表格金额数字转换大写电子表格数字转大写电子表格数字怎样转变大写电子表格合并单元格电子表格金额小写转大写电子表格小写变大写电子表格金额变大写表格怎么添加单元格电子表格每页都有表头怎么设置

非常风气网www.verywind.cn

电子表格数字转换成大写数字，并且大写数字要对应到单元格里，效果图如下，求大神帮忙！

相关了解……

你可能感兴趣的内容