一个很简单的问题，百思不得其解

prevail

代码想做的事是将单元格中的数字转换成大写金额，
然后想把数据分成整数和小数两部分处理，
可为什么小数部分的值不对，xs=rg-int(rg)
见下面截图，对第一个单元格的的计算xs=0.1才对啊，为什么会是0.0996


但是用简单的代码计算，把rg-int(rg)放旁边单元格，完全正确，见下面截图

两者的区别是一个是赋给变量，一个将结果显示在单元格中，为什么赋给变量就不对呢？VBA新手，一眼能看出的勿抨啊，
给点菜鸟学下去的勇气！
求解，求解，快疯了！

静听溪流

浮点运算的问题    直接用四舍五入函数保留2位小数点就好了

zjdh

楼上说得对，由于是浮点运算你的Q列数据是有4位小数的值。
所以 rg - Int(rg) 得4位小数的值，而你的S列设置为2位小数，故得到你认为合理的值。
要想赋值给变量也是2为小数，只能用函数四舍五入！
AA = Round(rg - Int(rg), 2)

prevail

静听溪流 发表于 2020-7-5 15:06
浮点运算的问题    直接用四舍五入函数保留2位小数点就好了

谢谢，问题解决！

深秋的黎明

人民币大写，用函数公式更简单，本身就是工作表里，何必用代码？

prevail

深秋的黎明 发表于 2020-7-5 16:42
人民币大写，用函数公式更简单，本身就是工作表里，何必用代码？

练习vba，在学。但用公式我也不会啊，怎么弄

深秋的黎明

=IF(G13=0,"",(IF(TRUNC(G13)=0,"",TEXT(TRUNC(G13),"[DBNum2]G/通用格式")&"元"))&(IF(AND(TRUNC(G13)<>0,TRUNC(G13*10)-TRUNC(G13)*10=0,TRUNC(G13*100)-TRUNC(G13*10)*10<>0),"零",IF(AND(TRUNC(G13)<>0,TRUNC(G13*10)-TRUNC(G13)*10=0,TRUNC(G13*100)-TRUNC(G13*10)*10=0),"整",IF(TRUNC(G13*10)-TRUNC(G13*10,-1)=0,"",TEXT(TRUNC(G13*10)-TRUNC(G13*10,-1),"[DBNum2]G/通用格式")&"角")))))&(IF(TRUNC(G13*100)-TRUNC(G13*10)*10=0,"",TEXT(TRUNC(G13*100)-TRUNC(G13*10)*10,"[DBNum2]G/通用格式")&"分"))
数据源是单元格G13，你可以通过查找替换的方法随意更改

13729178717

又明白了一点，学习了

花儿为什么这样

深秋的黎明 发表于 2020-7-5 21:58
=IF(G13=0,"",(IF(TRUNC(G13)=0,"",TEXT(TRUNC(G13),"[DBNum2]G/通用格式")&"元"))&(IF(AND(TRUNC(G13)0,TR ...

这公式太厉害了，膜拜

zjdh

给你一个数字转大写比较短的函数公式：
=SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(IF(A2>-0.5%,,"负")&TEXT(INT(FIXED(ABS(A2))),"[dbnum2]")&TEXT(RIGHT(FIXED(A2),2),"[dbnum2]元0角0分;;元"&IF(ABS(A2)>1%,"整",)),"零角",IF(ABS(A2)<1,,"零")),"零元",),"零分","整")