Office中国论坛/Access中国论坛

标题: 请教老鬼 [打印本页]

作者: 西岭雪 时间: 2005-1-27 07:21
标题: 请教老鬼
你刚说的那个我用了，到也能行。但还是不方便啊你看还有别的办法吗？

祥见文件。谢谢老鬼！！

作者: 西岭雪 时间: 2005-1-27 07:29

以下是引用西岭雪在2005-1-26 23:21:28的发言：

你刚说的那个我用了，到也能行。但还是不方便啊你看还有别的办法吗？

祥见文件。谢谢老鬼！！

[attach]8802[/attach]

作者: 老鬼 时间: 2005-1-27 07:55
加载宏是最方便的方法，如果你想直接点，用一下下面这个公式，不过头不要大了~~~~~~=IF(ROUND(A1,2)=0,"数值为零",IF(ROUND(A1,2)<1,TEXT(IF(TRUNC(ROUND(A1,2),2)=TRUNC(ROUND(A1,2),1),ROUND(A1,2)*10,ROUND(A1,2)*100),IF(ROUND(A1,2)*100<10,"[DBNum2]0分",IF(TRUNC(ROUND(A1,2),2)=TRUNC(ROUND(A1,2),1),"[DBNum2]0角整","[DBNum2]0角0分"))),TEXT(TRUNC(ROUND(A1,2)),IF(TRUNC(ROUND(A1,2),2)=TRUNC(ROUND(A1,2)),"[DBNum2]G/通用格式元整","[DBNum2]G/通用格式元"))&IF((TRUNC(ROUND(A1,2),2)-TRUNC(ROUND(A1,2)))=0,"",TEXT(IF(TRUNC(ROUND(A1,2),2)=TRUNC(ROUND(A1,2),1),(TRUNC(ROUND(A1,2),2)-TRUNC(ROUND(A1,2)))*10,(TRUNC(ROUND(A1,2),2)-TRUNC(ROUND(A1,2)))*100),IF((TRUNC(ROUND(A1,2),2)-TRUNC(ROUND(A1,2)))*100<10,"[DBNum2]00分",IF(TRUNC(ROUND(A1,2),2)=TRUNC(ROUND(A1,2),1),"[DBNum2]0角整","[DBNum2]0角0分"))))))

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