四舍六入函數模板

本人根據四舍六入奇進偶不進原則，利用vba做了個自定義的函數，希望對大家有用。
函數語音是    Round2(被修約數據，小數位數）
例如把3.45修約保留一位小數，就是    =round（3.45,1）
此表格嵌套了vba，所以只能在此表中進行操作。

此函數利用vba，極大精簡了使用函數的復雜計算步驟。同時有別于目前發表論文中的方法（本人已發），能有效去除excel中浮點誤差的影響。目前其他方法基本上都是根據小數點后七位數字大小判斷進行去除浮點誤差，本方法通過強制轉換十進制解決浮點誤差。

一行excel函數解決，=ROUND(A1,a)-(MOD(A1*10^(a+1),20)=5)*10^(-a)，A1是需要修約的數的單元格，a為修約位數。

alickglyn 發表于 2021-7-28 15:45
一行excel函數解決，=ROUND(A1,a)-(MOD(A1*10^(a+1),20)=5)*10^(-a)，A1是需要修約的數的單元格，a為修約位 ...

第一，麻煩，每次都要替換，尤其是有時候公式嵌套公式，就更復雜了
第二，excel小數存在浮點誤差影響，這個公式有誤判。
第三，你這個負數修約結果是錯的

謝謝樓主的分享，最近也在開始自學用宏，正好用你的來學習下。
vba版的確實好用，不過用宏的話，當表格傳到別的電腦很有可能就會失效啊。有很多電腦的excel默認禁用了宏。

唐家琨少 發表于 2021-7-29 09:15
謝謝樓主的分享，最近也在開始自學用宏，正好用你的來學習下。
vba版的確實好用，不過用宏的話，當表格傳到 ...

取消禁止就可以用了。

學習一下，很有幫助

大家有方便實用的工具也可以互相交流一下啊

修約間隔為10，你這函數就扒瞎了

連長 發表于 2021-7-30 15:05
修約間隔為10，你這函數就扒瞎了

修約間隔為5和10的可以再搞個函數，或者直接拿這個數除相應的數以后修約再乘回來

excel里面的修約函數也沒有2間隔、5間隔之類的

可以按照規則，結合excel的數據處理，自己寫個function，費點勁，但不難。

難者不會  會者不難

特殊情況適應了么，3.001，8.9999。還是用了編程，要全部用內建函數。編程可以把很多漏洞補上

A2輸入待修約數值，B2輸入保留小數點位數，C2輸入公式。對9.9999多的情況不適用，還待改進

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)))))

wangyiyong7703 發表于 2023-9-18 18:34
A2輸入待修約數值，B2輸入保留小數點位數，C2輸入公式。對9.9999多的情況不適用，還待改進

IF(B2=0,IF(OR ...

你不覺得你的公式很麻煩么。。。。

sunrry 發表于 2023-9-22 14:57
你不覺得你的公式很麻煩么。。。。

開始設計有點麻煩而已，你直接復制使用有什么麻煩的。如果你用宏去做才真的麻煩。這個公式避開了宏代碼，也相當于宏代碼

wangyiyong7703 發表于 2023-9-22 17:11
開始設計有點麻煩而已，你直接復制使用有什么麻煩的。如果你用宏去做才真的麻煩。這個公式避開了宏代碼， ...

對對對，你說的都對。

IF(OR(AND(ISEVEN(MID(A2,FIND(".",A2)+B2,1)*1),MID(A2,FIND(".",A2)+B2+1,1)="5",IFERROR(RIGHT(A2,LEN(A2)-FIND(".",A2)-B2-1)*1,0)=0),MID(A2,FIND(".",A2)+B2+1,1)*1<5),LEFT(A2,FIND(".",A2,1)+B2),IF(IFERROR(FIND(".",LEFT(A2,FIND(".",A2,1)*1+B2)*1+IF(A2*1<0,-1,1)/POWER(10,B2),1),0)=0,LEFT(A2,FIND(".",A2,1)*1+B2)*1+IF(A2*1<0,-1,1)/POWER(10,B2)&"."&REPT("0",B2),LEFT(A2,FIND(".",A2,1)*1+B2)*1+IF(A2*1<0,-1,1)/POWER(10,B2)&REPT("0",B2-(LEN(LEFT(A2,FIND(".",A2,1)*1+B2)*1+IF(A2*1<0,-1,1)/POWER(10,B2))-IFERROR(FIND(".",LEFT(A2,FIND(".",A2,1)*1+B2)*1+IF(A2*1<0,-1,1)/POWER(10,B2),1),0)))))

sunrry 發表于 2023-9-25 13:21
對對對，你說的都對。

新的算法做的，麻煩抽空指正一下。

wangyiyong7703 發表于 2023-10-2 13:06
新的算法做的，麻煩抽空指正一下。

1、小數點有效位數為0直接報錯
2、多次計算后的浮點小數無法避免，后面一堆錯誤。（可以看圖，B2=A2+0.1,C2=B2+0.1,以此類推）

=IF(ABS(ABS(A2/1*10^B2-TRUNC(A2/1,B2)*10^B2)-0.5)<10^-7,CEILING(ABS(TRUNC(A2/1,B2)),2*10^-B2)*SIGN(A2/1)*1,ROUND(A2/1,B2)*1)

sunrry 發表于 2023-10-7 13:09
1、小數點有效位數為0直接報錯
2、多次計算后的浮點小數無法避免，后面一堆錯誤。（可以看圖，B2=A2+0.1, ...

謝謝，，，，，，

sunrry 發表于 2023-10-7 13:20
=IF(ABS(ABS(A2/1*10^B2-TRUNC(A2/1,B2)*10^B2)-0.5)

我設計的是保留多少位小數的，1位以上，不含０位的。０位及以上可以再設計。主要是出現整數后的加零補位。你說的浮點問題具體指出來，我的是沒有的

sunrry 發表于 2023-10-7 13:09
1、小數點有效位數為0直接報錯
2、多次計算后的浮點小數無法避免，后面一堆錯誤。（可以看圖，B2=A2+0.1, ...

我看了一下，不是我要解決浮點問題，是你的輸入本來就有問題，6.94999999999999，不是顯示的6.95