VBA Userform文本框数字格式转换异常，如何实现美式卷尺可读格式？

问题背景 #

我开发了一个用于长度测量的VBA用户窗体计算器，其中一个文本框返回十进制英寸结果，希望另一个文本框转换为美式标准卷尺的易读格式（例如106.59375应显示为106 19/32）。该格式在工作表单元格中可正常显示，但在用户窗体文本框中失效——示例值106.59375经现有代码处理后得到1/07，疑似先被错误四舍五入为107再应用格式。当前使用的代码如下：

UFChordCalc.TBResult.Value = Round(chordLength, 3)
With UFChordCalc.TBER
    .Value = Application.WorksheetFunction.MRound(TBResult, 1 / 32)
    .Value = Format(.Value, "# ##/##")
End With

问题根源 #

1. 文本框值类型偏差：用户窗体文本框的.Value默认是字符串类型，直接将TBResult作为MRound参数时，会触发字符串转数值的隐式转换。而Round(chordLength,3)会把106.59375截断为106.594，导致MRound计算结果偏离预期。
2. 格式字符串兼容性问题：VBA的Format函数对# ##/##格式的解析逻辑与Excel工作表单元格格式不同，处理大整数部分时易出现格式错乱。

解决方案 #

直接基于原始数值chordLength进行计算，手动拆分整数与分数部分，完全控制格式输出：

' 计算到1/32精度的近似值
Dim roundedVal As Double
roundedVal = Application.WorksheetFunction.MRound(chordLength, 1 / 32)

' 拆分整数和分数部分
Dim intPart As Long
Dim fracNum As Integer
intPart = Int(roundedVal)
fracNum = Round((roundedVal - intPart) * 32, 0)

' 可选：对分数进行约分（保持最简形式）
Dim gcd As Integer
gcd = Application.WorksheetFunction.GCD(fracNum, 32)
fracNum = fracNum / gcd
Dim fracDen As Integer
fracDen = 32 / gcd

' 组装并输出美式卷尺格式
With UFChordCalc.TBER
    If fracNum = 0 Then
        .Value = CStr(intPart)
    Else
        .Value = intPart & " " & fracNum & "/" & fracDen
    End If
End With

' 更新十进制结果文本框，保留足够精度
UFChordCalc.TBResult.Value = Round(chordLength, 5)

核心优化点 #

• 跳过文本框的字符串转数值步骤，直接使用原始chordLength计算，避免精度丢失。
• 手动拆分整数与分数部分，彻底规避VBAFormat函数的格式解析问题。
• 可选的约分逻辑让分数显示更简洁（例如2/32会自动转换为1/16）。

内容的提问来源于stack exchange，提问作者jamorrell