【神器分享】拒绝手工计算！晒晒你自己做的Excel自动生成原始记录模板（附下载奖励）
📊 【神器分享】拒绝手工计算！
晒晒你的 Excel 自动生成原始记录模板
（解放双手 · 告别计算器 · 附高额悬赏）
🤔 2026年了，你还在这样干活吗？
手工填数据 ➡️ 拿计算器算误差 ➡️ 翻规程查允差 ➡️ 涂改液改修约...
STOP！这种低效的时代该结束了！
一个好的 Excel 模板，应该输入读数后，结果、判定、不确定度全部自动跳出来！
📂 我们在找什么样的“神器”？
欢迎大神们分享以下类型的自动化表格（含公式或VBA）：
[*] 力学类： 压力表（自动算回程）、电子秤（防作弊检查表）、天平。
[*] 长度类： 卡尺、千分尺（自动判定平行度/平面度）。
[*] 热工类： 环境试验箱（自动计算15点均匀性、波动度）。
[*] 化学类： pH计、气相色谱（自动算检出限）。
[*] 高阶版： 自动计算不确定度、一键生成证书打印版。
💰 悬赏令：晒图/分享有奖
独乐乐不如众乐乐，你的 Excel 水平值多少金币？
🥉 参与奖： 仅晒出模板界面截图，奖励 20 金币
🥈 贡献奖： 分享无加密源文件（附件），奖励 100 金币
🥇 大神奖： 包含 VBA 宏自动化生成证书功能的，直接加精 + 500 金币！
💡 小贴士：
1. 如果您的模板包含商业秘密，可以只分享计算核心部分。
2. 不懂函数的小白，也可以在楼下回帖求助（比如：怎么用Excel修约到偶数？）。 推荐软件
螺纹公差查询与计算 作者通过业余时间，编写的一款十分实用的螺纹公差查询和计算的软件，一直再更新。
《Excel在测量不确定度评定中的应用及实例》电子版
哈哈，我也来简单分享一下螺纹原始记录模版，使用前需设置excel的宏安全性：勾选启用所有宏，勾选信任VBA对工程对象的访问，且office版本满足2010及以上 点击链接，下载软件：不确定度计算器
点击链接下载和讨论
平板原始记录（水平仪+对角线法）
看到楼主的号召，我也来晒一个压箱底的“神器”！
针对 **JJG 196《常用玻璃量器》** 检定中最大的痛点——查 K(t) 值表，我做了一个基于 VBA 的全自动计算脚本。
😫 传统痛点：
以前做滴定管、容量瓶检定，每次都要拿着温度对着规程附录里的 K 值表查半天。如果温度是 20.5℃ 这种带小数的，还得用插值法算，不仅慢还容易算错。
🚀 我的解决方案：
直接把 Tanaka 水密度公式 和 K值计算公式 写成了 Excel 自定义函数。
不用查表，输入温度直接出结果！精度完全满足规程要求。
✨ 功能亮点：
1. 告别查表： 输入水温，自动计算水密度和 K 值。
2. 材质区分： 支持选择 1 (硼硅玻璃) 或 2 (钠钙玻璃)，自动调用不同的膨胀系数（10×10⁻⁶ 或 25×10⁻⁶）。
3. 判定自动： 结合允许误差，自动判定“合格/不合格”。
💻 VBA 核心代码分享（复制到模块里就能用）：
Function GetKValue(Temp As Double, Optional GlassType As Integer = 2) As Double
' GlassType: 1=硼硅玻璃, 2=钠钙玻璃
Dim Beta As Double
Dim Rho_W As Double, Rho_Air As Double, Rho_Weight As Double
Rho_Air = 0.0012 ' 空气密度
Rho_Weight = 8.0 ' 砝码密度
' 设定膨胀系数
If GlassType = 1 Then
Beta = 0.00001
Else
Beta = 0.000025
End If
' Tanaka 水密度公式
Dim a1 As Double, a2 As Double, a3 As Double, a4 As Double, a5 As Double
a1 = -3.983035: a2 = 301.797: a3 = 522528.9: a4 = 69.34881: a5 = 0.99997495
Rho_W = a5 * (1 - ((Temp + a1) ^ 2 * (Temp + 398.15244)) / (a2 * (Temp + 362.561) ^ 2))
' 计算 K 值
GetKValue = (1 / (Rho_W - Rho_Air)) * (1 - (Rho_Air / Rho_Weight)) * (1 - Beta * (Temp - 20))
End Function
Function CalV20(Mass As Double, Temp As Double, Optional GlassType As Integer = 2) As Double
' 自动计算20℃标准体积
CalV20 = Mass * GetKValue(Temp, GlassType)
End Function
📝 使用方法：
在 Excel 单元格里像用 SUM 函数一样：
[*]计算 K 值：=GetKValue(水温, 材质代码)
[*]计算体积：=CalV20(称重读数, 水温, 材质代码)
从此告别计算器，希望能帮到做容量检定的同仁们！🙌 ph计怎么解决结果显示指数，而不是excel里的科学技术E 这篇帖子大家要努力推上去，对于计量检定人员会有很大帮助！ 这是一个压力表原始记录和证书生成EXCEL文件，包括了原始记录和证书，配合VBA程序可批量自动生成数据、处理结果、生成证书，很适合现场压力表批量检测使用，使用本程序的前提是压力表已知合格（你懂的），本程序只是爱好编写的程序，供学习使用，不承担后续的任何法律责任：
1.电子表格采用VBA程序处理；
2.在维护区已经有相应范围、分度值对应的检定点时，先填写好测量范围、分度值、等级和最大允许误差，点击“自动生成所有数据”即可随机生成符合要求的检定数据、误差等；
3.如果维护区没有相应的检定点，可以添加进去，方便下次使用。或者自定义检定点，点击“自定义检定点数据”即可生成相应数据。
4.检完一个表后可点击“下一个”，自动生成一个新数据区域，进行下一个压力表检定，重复上述过程；
5. 所有的压力表检定完成后点击“生成证书”，在“检定证书”表格里就自动生成了检定结果，自动添加行。
6.数据处理符合计量专业的修约规则；
7.点击初始化可恢复到默认的一个记录状态； 这是某业务系统的工作压力表记录模板 有指示表的计算表格么，谢谢了 本帖最后由 一心MAX 于 2026-1-13 09:27 编辑
平板检定流程，可以导出报告，可以导出数据，可以生成3D图。类似的还有环境试验设备、天平、电子秤、温升等 一心MAX 发表于 2026-1-13 09:20
平板检定流程，可以导出报告，可以导出数据，可以生成3D图。类似的还有环境试验设备、天平、电子秤、温升等 ...
这是啥，求分享 模版多了去了，就是不敢在论坛发。。。。。 【干货分享】别再用 Excel 自带的 Round 了！VBA 实现 GB/T 8170“四舍六入五成双”修约代码
很多坛友在做原始记录模板时，都会遇到一个坑：
Excel 自带的 ROUND 函数是标准的“四舍五入”，而我们计量检定规程通常要求依据 GB/T 8170 实行“四舍六入五成双”（奇进偶不进）。
虽然网上也有用 IF 函数嵌套的写法，但公式太长容易错，且处理浮点数（比如 2.65 存成 2.649999）时容易翻车。
分享一段我正在用的 VBA 自定义函数，完美解决这两个问题。
包含两个功能：
1. Round_GBT：数值修约
2. Judge_GBT：自动判定（修约值比较法）
👇 核心代码（复制到 VBA 模块中）：
Option Explicit
' ==========================================================
' 函数名：Round_GBT
' 功能：依据 GB/T 8170 "四舍六入五成双" 规则进行数值修约
' 特点：使用 CDec 高精度计算，避免浮点数误差
' ==========================================================
Function Round_GBT(ByVal Value As Variant, ByVal Digits As Integer) As Double
Dim vDec As Variant
Dim Factor As Variant
Dim Temp As Variant
Dim IntegerPart As Variant
Dim FractionPart As Variant
Dim Sign As Integer
If Not IsNumeric(Value) Then
Round_GBT = 0
Exit Function
End If
' 转换为 Decimal 类型以避免浮点数陷阱 (关键！)
vDec = CDec(Value)
If vDec < 0 Then Sign = -1 Else Sign = 1
vDec = Abs(vDec)
Factor = CDec(10 ^ Digits)
Temp = vDec * Factor
IntegerPart = Fix(Temp)
FractionPart = Temp - IntegerPart
' 核心逻辑：四舍六入五成双
If FractionPart > 0.5 Then
IntegerPart = IntegerPart + 1 '六入
ElseIf FractionPart < 0.5 Then
IntegerPart = IntegerPart '四舍
Else
' 等于0.5：看前一位奇偶性
If (IntegerPart / 2) <> Fix(IntegerPart / 2) Then
IntegerPart = IntegerPart + 1 '奇进
End If
' 偶数则不进
End If
Round_GBT = Sign * (IntegerPart / Factor)
End Function
' ==========================================================
' 函数名：Judge_GBT
' 功能：修约值比较法判定 (PASS/FAIL)
' ==========================================================
Function Judge_GBT(ByVal Measured As Variant, Optional ByVal UpperLimit As Variant, Optional ByVal LowerLimit As Variant, Optional ByVal Digits As Integer = 2) As String
Dim RoundVal As Double
' 先修约
RoundVal = Round_GBT(Measured, Digits)
Dim Result As Boolean
Result = True
' 判定上限
If Not IsMissing(UpperLimit) And Not IsEmpty(UpperLimit) Then
If RoundVal > UpperLimit Then Result = False
End If
' 判定下限
If Not IsMissing(LowerLimit) And Not IsEmpty(LowerLimit) Then
If RoundVal < LowerLimit Then Result = False
End If
If Result Then Judge_GBT = "PASS" Else Judge_GBT = "FAIL"
End Function
🧪 验证测试数据（保留1位小数）：
原始值自带Round函数本代码(Round_GBT)说明
0.350.40.4前为奇数3，进
0.450.5 (错)0.4前为偶数4，舍
0.45010.50.55后有数，进
0.460.50.5六入
使用方法：
1. 复制上面代码。
2. Excel 中按 Alt+F11，右键左侧列表 -> 插入 -> 模块。
3. 粘贴代码。
4. 回到表格直接用公式：=Round_GBT(A1, 2) (对A1保留2位小数)
希望对大家做自动计算模板有帮助！觉得有用请给个好评~ :lol 【源码分享】别再手算 U 了！写了一个通用的“测量不确定度”计算函数 (支持A类+B类自动合成)
很多兄弟在做 Excel 原始记录模板时，最头大的就是算不确定度。
虽然每个项目的模型不一样，但最基础的结构其实都是：
U = k * Sqrt(uA^2 + uB^2)
为了偷懒，我依据 JJF 1059.1-2012 撸了一个 VBA 自定义函数 UNC_Calc。
它把 重复性(A类) 和 标准器/分辨力(B类) 的合成逻辑封装在一起了，以后算 U 只需要一个公式。
🛠️ 功能亮点：
1. 自动算 A 类： 只要圈选重复性数据，自动算贝塞尔公式标准差。
2. 自动算 B 类： 输入标准器的 U 和 k，或者 MPE。
3. 支持分辨力： 可选是否引入被测件分辨力分量。
4. 灵活切换： 支持“平均值”不确定度（除根号n）和“单次值”不确定度（不除）的切换。
💻 VBA 代码 (复制到模块)：
Option Explicit
' ==================================================================
' 函数名：UNC_Calc
' 功能：通用扩展不确定度计算
' 参数：
' DataRange : 重复性测量数据区域 (例如 A1:A10)
' U_Std : 标准器的扩展不确定度 (或 MPE)
' k_Std : 标准器的包含因子 (默认2。若是MPE，请输入1.732)
' Res : [可选] 被测件分辨力 (默认0，不参与计算)
' k_Target: [可选] 目标结果的 k 值 (默认2)
' IsMean : [可选] 结果取平均值(True)还是单次值(False)？(默认True)
' ==================================================================
Function UNC_Calc(DataRange As Range, _
ByVal U_Std As Double, _
Optional ByVal k_Std As Double = 2, _
Optional ByVal Res As Double = 0, _
Optional ByVal k_Target As Double = 2, _
Optional ByVal IsMean As Boolean = True) As Variant
Dim i As Long, n As Long
Dim Sum As Double, Mean As Double, SumSqDiff As Double
Dim StDev As Double
Dim uA As Double, uB_Std As Double, uB_Res As Double, uC As Double
Dim Element As Variant
' 1. 统计数据个数 n 和 总和
n = 0: Sum = 0
For Each Element In DataRange
If IsNumeric(Element) And Not IsEmpty(Element) Then
n = n + 1
Sum = Sum + Element
End If
Next Element
If n < 2 Then UNC_Calc = "Err:数据<2": Exit Function
' 2. 计算贝塞尔标准偏差 (s)
Mean = Sum / n
SumSqDiff = 0
For Each Element In DataRange
If IsNumeric(Element) And Not IsEmpty(Element) Then
SumSqDiff = SumSqDiff + (Element - Mean) ^ 2
End If
Next Element
StDev = Sqr(SumSqDiff / (n - 1))
' 3. 计算 uA (重复性引入)
' 平均值测量时除以根号n，单次测量时不除
If IsMean Then
uA = StDev / Sqr(n)
Else
uA = StDev
End If
' 4. 计算 uB (标准器引入)
uB_Std = U_Std / k_Std
' 5. 计算 uB (分辨力引入 - 假设均匀分布)
If Res > 0 Then
uB_Res = (Res / 2) / Sqr(3)
Else
uB_Res = 0
End If
' 6. 合成并扩展
uC = Sqr(uA ^ 2 + uB_Std ^ 2 + uB_Res ^ 2)
UNC_Calc = k_Target * uC
End Function
📝 食用方法举例：
假设 A1:A10 是你的 10 个测量数据。
标准器证书给的 U=0.06, k=2。
[*] 最简单用法（只含重复性+标准器）：
=UNC_Calc(A1:A10, 0.06, 2)
[*] 如果是按 MPE 算的（比如 MPE=±0.1）：
=UNC_Calc(A1:A10, 0.1, 1.732)
*注：1.732 是根号3，代表均匀分布
[*] 如果要加上“分辨力”的影响（比如分辨力 0.01）：
=UNC_Calc(A1:A10, 0.06, 2, 0.01)
[*] 如果是压力表这种“单次测量”的（uA不除以根号n）：
=UNC_Calc(A1:A10, 0.06, 2, 0, 2, FALSE)
代码刚写完，欢迎大家测试指正！觉得好用的求个评分~ :handshake 一心MAX 发表于 2026-1-13 09:20
平板检定流程，可以导出报告，可以导出数据，可以生成3D图。类似的还有环境试验设备、天平、电子秤、温升等 ...
这一看就是收费项目 感谢各位分享，学习了 长度室 发表于 2026-1-12 09:18
有指示表的计算表格么，谢谢了
指示表示值误差和回程误差检校记录表，EXCEL版。因没有从事过指示表检定，如有错误之处，请斧正！ 高手云集，感谢分享。 大神们，谁有气体检测仪检定软件啊，跪求啊，不想手搓证书 有没有全站仪和GNSS的计算
斤斤计较 发表于 2026-1-13 12:56
【干货分享】别再用 Excel 自带的 Round 了！VBA 实现 GB/T 8170“四舍六入五成双”修约代码
很多坛友在做 ...
现在WPS有个roundbank公式就实现了 wjyiscool 发表于 2026-1-13 18:57
指示表示值误差和回程误差检校记录表，EXCEL版。因没有从事过指示表检定，如有错误之处，请斧正！ ...
太感谢了，我看了下，做的挺好的。录入这些计算公式得挺费时间的啊。谢谢您的分享。 本帖最后由 古都秋白 于 2026-1-14 09:22 编辑
砝码检定运算记录，使用前需手工录入自家标准砝码修正值。可备份为PDF格式记录。