計量論壇

其實沒那么復雜，只要建一個自定義函數，應用時直接調用即可。

4舍6入5留雙自定義函數：

Function Yround(ByVal a As Double, Optional ByVal d As integer)

        Yround=Round(CDec(a),d)

End Function

注：參數a為傳值型雙精度變量(擬修約數)，參數d為可選整型參數(需保留的小數位數)。

如您1樓的例子，只需在A2單元格輸入擬修約數，B2單元格輸入欲保留的小數位數，在C2單元格中直接調用自定義函數(輸入“=Yround(A2, B2)”)即可得到修約結果。無論A2單元格的擬修約數是正數還是負數，都會按自動按照“4舍6入5留雙”的修約規則進行修約。

建立自定義函數，目的就是要讓普通用戶能用起來呀。用時就像內部函數一樣調用即可。你鍵入那么復雜的函數都能用，難道鍵入“＝Yroug(A2, B2)”還更難？

您這個公式我試了一下，存在以下問題：

-1.035000000，修約結果沒有按照“4舍6入5留雙”的修約規則修約至-1.04，而是修約至-1.03。

不明白您說的很多麻煩到底是什么麻煩。我們單位在LIMS系統中應用這么多年，從來沒有聽說過遇到什么麻煩。網絡版office安裝時就已經進行了安全設置，自定義函數都放在安全可信路徑下，原始記錄等都已制作成了智能型空白模板，試驗/檢測人員調用模板生成原始記錄的操作非常簡單，對于選擇項只需點擊下拉列表框、復選框、控件等進行選擇，只需錄入檢測數據，所有的數據處理和結果都是自動完成，試驗/檢測人員根本沒有感覺，也無需其他任何操作，完全做成了一種“傻瓜型”的智能Excel模板。

單機版的也一樣，又不要用戶去編輯宏代碼，就像調用普通內部函數一樣。

我說的“用戶”，不是指OFFICE用戶，而是指具體填寫原始記錄的檢測/校準人員。如果見過，那就不叫“自定義函數”了。

a.png (97.27 KB, 下載次數: 825)

下載附件

2023-10-4 10:53 上傳

b.png (108.3 KB, 下載次數: 759)

下載附件

2023-10-4 10:53 上傳

您的A列的數據格式不是“數字”，而是“文本”，所以才會得出“正?！钡募傧?。

另外，擬修約數和修約后的最終結果，還應該根據實際需要，為其設置顯示格式，如：是否顯示正負號、小數位數，包括條件格式等(如7樓截圖)。

以下截圖示例中，E列用“4舍5入法”修約保留3位小數的修約結果；F列用“4舍6入5留雙法”(本人7樓提供的自定義函數)修約保留3位小數的修約結果。G列和H列都是用本人提供的自定義函數修約，保留2位小數的最終修約結果。

a.png (76.71 KB, 下載次數: 786)

下載附件

2023-10-6 13:57 上傳

1.這個當然要用文本格式來弄，電子表格是智能的，默認自動舍去后面的0，相當于修約過，按正常的情況下，是不能這樣操作的。因為用文本格式是必須的。

這個理由是不成立的。如果是“文本”格式，中間有可能夾雜了其他文本字符，您的公式照樣發現不了，如：

2.您的反例要符合正常的要求，全數的有效位要大于修約后的有效位數。

修約前的全數有效位數多少，完全取決于數據處理的結果(如：多次測量結果的平均值)，大于、小于、等于修約后的小數位數都是有可能的。

正常情況下，一些文獻提供的公式基本上都能滿足，可惜的是特殊情況下是不能滿足的。0.100000009，9.99999999.我的算法正是進行文本操作，避開了浮點的問題。

我提供的自定義函數，不存在浮點的問題。

沒看明白什么叫“有相雙精度計算”？您說的“補位”是啥意思？我最初也是與您的想法一樣，想通過您這種方式實現。結果研究了很長時間，也沒有找到一種能夠完全自動識別與控制的方法，而且迭代、嵌套、交叉引用太多，無法做成“傻瓜型”，滿足現場檢測/校準人員的錄入操作需求。最終還是用自定義函數方式解決問題，使過程大為簡化。最終要結合單元格格式、條件格式等設置，實現數據有效性自動識別、敲錄錯誤自動攔截提醒、自動生成符合性判定結論等功能。

這個也是很簡單的，f(x)是公式中要求得的結果，f(x) & “00000”即可，補0即可。我們把主函數寫出來，電腦修約過度然后根據情況進行補位即可。我們是要避開VB，只用內建函數寫

不需要在公式中用“& 00000”方式補0，只需對修約后的測量結果所在單元格設置數字格式即可實現。

還是要有一定的規范，不可能做一個適用所有情況。否則VB也做不過來。通過規范使用者的操作行為。簡化函數。

通過VBA編制的“4舍6入5留雙修約自定義函數”，本來就是適用于所有數據按此修約規則的修約。就如同求平均值的內部函數“AVERAGE( )”和求和函數“SUM( )”一樣，這么方便、高效的函數您不用，非要逐個數據采取加減乘除四則運算的辦法去求。我也實在是想不明白圖什么？

現場實際操作的檢測/校準人員，對EXCEL的操作技能并不都十分精通，尤其對各種函數的應用、單元格格式的設置、條件格式的應用更是知之甚少，甚至一無所知。VBA本身就是微軟為個性化應用提供的高效應用工具，非常方便。我們不需要把VBA看得如臨大敵，談宏色變，沒那么可怕。我們的目的，就是要根據實際需要編制相應的標準化《原始記錄》模板表單，讓所有不懂EXCEL操作人員，只要會敲入數據，經過幾分鐘的簡單培訓，就能夠掌握、編制、生成每一份數據統一、規范、美觀的《原始記錄》，而且不會出現誤操作(因為所有不讓操作人員編輯的單元格都做了屏蔽設置，未經授權是點不進去的)。

1、我的自定義函數(見7樓)您不是已經試用了嗎，單機版與網絡版都能用，只是要將文件另存為“Excel啟用宏的模板(*.xltm)”即可。

2、對于單元格來說，其默認的數字格式是“G/通用格式”(即“常規”格式)，這種“常規”格式，其默認的有效顯示的數字位數只能10位。鍵入的數值位數超過15位時則會截尾，且數值在10[sup]-10[/sup]～10[sup]10[/sup]時，最多顯示前10位。若數值大于10[sup]10[/sup]或小于10[sup]-10[/sup]時，則以科學計數法顯示。所以必須配合單元格的數字格式設置(即：將數字格式設置為“自定義”格式)，才能正常顯示。

3、除了科學研究，一般的檢測/校準領域，基本上不會遇到需要保留10位及以上“有效數字”的情形，所以該自定義函數在10[sup]-10[/sup]～10[sup]10[/sup]數值范圍內應用，是沒有任何問題的。如果真有這種需求，那恐怕就不是VBA宏能夠解決的了。

4、您是將數值轉換成文本來處理，修約結果也是文本，無法顯示正數的符號“+”。且數字中夾雜有其他字符，也同樣會在修約結果中顯示。所以這種處理方式實質上是“文本字符的截取與組合”。

打賭就沒有意思了。我只是說“恐怕就不是VBA宏能夠解決的了”。EXCEL的數值處理范圍區間大小是有限的。您所提供的公式中，除了“POWER()”是數學類“工作表函數”外，基本上全是文字處理類或邏輯判斷類的“工作表函數”，而不是數值處理的內建函數。

本主題討論的是數據(非文本數據)的修約問題，EXCEL中與數值修約相關的，就只有“ROUND()”、“ROUNDDOWN()”和“ROUNDUP()”三個“工作表函數”。最為接近的就是“ROUND()”函數，僅僅是修約規則有那么一點點差異?！?/font>ROUND()”函數的修約規則是“四舍五入”，自定義函數的修約規則是“四舍六入五留雙”。

其實“ROUND()”函數有兩個，一個就是“工作表函數”(即您所說的“內建函數”)，另一個是“VB函數”，盡管這兩個函數名稱一模一樣，但兩者的算法規則是不同的。