alin72 发表于 2023-2-27 14:23:16

太牛了。公式我看着都头晕

stacay 发表于 2023-2-27 15:30:19

wangyiyong7703 发表于 2023-2-25 15:17
请您亲测一下，多提提意见，原创不易

EXCEL受限于浮点运算机制，是比较难处理 的。

yshf530 发表于 2023-2-27 15:58:08

谢谢你的分享，用心了

wangyiyong7703 发表于 2023-2-27 17:05:27

stacay 发表于 2023-2-27 15:30
EXCEL受限于浮点运算机制，是比较难处理 的。

确实碰到这种情况，改变了思路，才破解了。很不容易。不用宏程序解决确实太难了。我用宏程序测试过，目前还没有发现异常，宏程序在文件里面。可运行

22063974 发表于 2023-3-1 09:52:55

非常好用的，谢谢，这是编程界的来到了计量领域

Maybeanyou 发表于 2023-3-1 13:56:17

谢谢，帮大忙了

26826768 发表于 2023-3-1 14:40:08

牛啊！这个数据处理太牛了

于是乎 发表于 2023-3-1 15:43:55

谢谢你的分享，真是太牛了。

azthankyou 发表于 2023-3-9 19:02:03

厉害了！我的哥！

wangyiyong7703 发表于 2023-9-16 00:46:32

A2 输入待修约数，B2输入小数点，C2输入公式


IF(LEN(IF(OR(AND(ISEVEN(INT(A2*POWER(10,B2))),A2*POWER(10,B2)-INT(A2*POWER(10,B2))=0.5),A2*POWER(10,B2)-INT(A2*POWER(10,B2))<0.5),INT(A2*POWER(10,B2))/POWER(10,B2),(INT(A2*POWER(10,B2))+1)/POWER(10,B2)))=LEN(INT(A2)),IF(OR(AND(ISEVEN(INT(A2*POWER(10,B2))),A2*POWER(10,B2)-INT(A2*POWER(10,B2))=0.5),A2*POWER(10,B2)-INT(A2*POWER(10,B2))<0.5),INT(A2*POWER(10,B2))/POWER(10,B2),(INT(A2*POWER(10,B2))+1)/POWER(10,B2))&"."&REPT("0",B2),IF(LEN(INT(A2*POWER(10,B2)))+1>LEN((IF(OR(AND(ISEVEN(INT(A2*POWER(10,B2))),A2*POWER(10,B2)-INT(A2*POWER(10,B2))=0.5),A2*POWER(10,B2)-INT(A2*POWER(10,B2))<0.5),INT(A2*POWER(10,B2))/POWER(10,B2),(INT(A2*POWER(10,B2))+1)/POWER(10,B2)))),(IF(OR(AND(ISEVEN(INT(A2*POWER(10,B2))),A2*POWER(10,B2)-INT(A2*POWER(10,B2))=0.5),A2*POWER(10,B2)-INT(A2*POWER(10,B2))<0.5),INT(A2*POWER(10,B2))/POWER(10,B2),(INT(A2*POWER(10,B2))+1)/POWER(10,B2)))&REPT("0",LEN(INT(A2*POWER(10,B2)))-1-LEN((IF(OR(AND(ISEVEN(INT(A2*POWER(10,B2))),A2*POWER(10,B2)-INT(A2*POWER(10,B2))=0.5),A2*POWER(10,B2)-INT(A2*POWER(10,B2))<0.5),INT(A2*POWER(10,B2))/POWER(10,B2),(INT(A2*POWER(10,B2))+1)/POWER(10,B2))))),IF(OR(AND(ISEVEN(INT(A2*POWER(10,B2))),A2*POWER(10,B2)-INT(A2*POWER(10,B2))=0.5),A2*POWER(10,B2)-INT(A2*POWER(10,B2))<0.5),INT(A2*POWER(10,B2))/POWER(10,B2),(INT(A2*POWER(10,B2))+1)/POWER(10,B2))))

wangyiyong7703 发表于 2023-9-16 01:01:35

A2输入待修约数字，B2输入保留小数点位数，C2输入公式

IF(B2=0,IF(OR(AND(ISEVEN(INT(A2)),A2-INT(A2)=0.5),A2-INT(A2)<0.5),INT(A2),INT(A2)+1),IF(LEN(IF(OR(AND(ISEVEN(INT(A2*POWER(10,B2))),A2*POWER(10,B2)-INT(A2*POWER(10,B2))=0.5),A2*POWER(10,B2)-INT(A2*POWER(10,B2))<0.5),INT(A2*POWER(10,B2))/POWER(10,B2),(INT(A2*POWER(10,B2))+1)/POWER(10,B2)))=LEN(INT(A2)),IF(OR(AND(ISEVEN(INT(A2*POWER(10,B2))),A2*POWER(10,B2)-INT(A2*POWER(10,B2))=0.5),A2*POWER(10,B2)-INT(A2*POWER(10,B2))<0.5),INT(A2*POWER(10,B2))/POWER(10,B2),(INT(A2*POWER(10,B2))+1)/POWER(10,B2))&"."&REPT("0",B2),IF(LEN(INT(A2*POWER(10,B2)))+1>LEN((IF(OR(AND(ISEVEN(INT(A2*POWER(10,B2))),A2*POWER(10,B2)-INT(A2*POWER(10,B2))=0.5),A2*POWER(10,B2)-INT(A2*POWER(10,B2))<0.5),INT(A2*POWER(10,B2))/POWER(10,B2),(INT(A2*POWER(10,B2))+1)/POWER(10,B2)))),(IF(OR(AND(ISEVEN(INT(A2*POWER(10,B2))),A2*POWER(10,B2)-INT(A2*POWER(10,B2))=0.5),A2*POWER(10,B2)-INT(A2*POWER(10,B2))<0.5),INT(A2*POWER(10,B2))/POWER(10,B2),(INT(A2*POWER(10,B2))+1)/POWER(10,B2)))&REPT("0",LEN(INT(A2*POWER(10,B2)))-1-LEN((IF(OR(AND(ISEVEN(INT(A2*POWER(10,B2))),A2*POWER(10,B2)-INT(A2*POWER(10,B2))=0.5),A2*POWER(10,B2)-INT(A2*POWER(10,B2))<0.5),INT(A2*POWER(10,B2))/POWER(10,B2),(INT(A2*POWER(10,B2))+1)/POWER(10,B2))))),IF(OR(AND(ISEVEN(INT(A2*POWER(10,B2))),A2*POWER(10,B2)-INT(A2*POWER(10,B2))=0.5),A2*POWER(10,B2)-INT(A2*POWER(10,B2))<0.5),INT(A2*POWER(10,B2))/POWER(10,B2),(INT(A2*POWER(10,B2))+1)/POWER(10,B2)))))

唐家琨少 发表于 2023-12-15 16:48:49

大佬思路太牛了，看了一下都是用很基础的excel公式解决的，这个应该就不存在文件转发给别人之后会因为office不一样或者对方用WPS打开而失效了。

wangyiyong7703 发表于 2023-12-19 15:50:36

唐家琨少 发表于 2023-12-15 16:48
大佬思路太牛了，看了一下都是用很基础的excel公式解决的，这个应该就不存在文件转发给别人之后会因为offic ...

关注之我后，还有更新的你可以看一哈其他的。用VB做过。现在做的这个还是有漏洞

allene 发表于 2023-12-25 08:21:10

谢谢你的分享

zzylyau126 发表于 2023-12-25 11:06:33

这个厉害！条件太多，复杂

redxsnake 发表于 2023-12-28 16:17:12

讲的很好，受益匪浅！学习了

yuanxu2021 发表于 2024-11-16 11:07:09

感谢楼主分享！

ge1422915514 发表于 2024-11-16 11:35:41


高级，提高生产力水平，不错

a7835209 发表于 2024-11-29 10:14:12

感谢楼主分享！下载学习了
页: 1 [2]
查看完整版本: 四舍六入五成双EXCEL实现