Excel VBA工程单位转换器代码异常，数值计算错误求助

你的代码存在三个核心问题，导致单位转换数值错误：

1. 公式依赖逻辑完全反向 #

原代码中，单元格的公式是逆向依赖的（比如B3=G3/304800），这意味着你需要在G3输入数值，B3才会得到转换结果，但实际需求应该是任意单元格输入数值，其他单元格自动转换。这种反向依赖不仅不符合使用习惯，还会导致转换链混乱。

2. 转换系数错误 #

原代码中的系数存在明显错误，比如英尺转米的系数写成了/304800，而正确的转换是1英尺=0.3048米，对应公式应该是B3=G3*0.3048，多余的三个零直接让数值缩小了1000倍，这是数值错误的主要原因。

3. 事件递归与循环逻辑问题 #

原代码的循环会遍历所有单元格并设置公式，而设置公式会再次触发Worksheet_Change事件，导致递归执行，同时重复设置公式会覆盖已有正确值，引发异常。

修正后的代码 #

假设各单元格对应单位为：

• B3：米（m）
• C3：千米（km）
• D3：分米（dm）
• E3：厘米（cm）
• F3：英寸（in）
• G3：英尺（ft）

将以下代码粘贴到对应工作表的VBA代码窗口（Alt+F11打开编辑器，双击目标工作表）：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 仅处理B3:G3范围内的单个单元格修改
    If Intersect(Target, Range("B3:G3")) Is Nothing Or Target.Cells.Count > 1 Then Exit Sub
    
    Application.EnableEvents = False ' 关闭事件避免递归
    
    Select Case Target.Address(0, 0)
        Case "B3" ' 米转其他单位
            Range("C3").Formula = "=B3/1000"
            Range("D3").Formula = "=B3*10"
            Range("E3").Formula = "=B3*100"
            Range("F3").Formula = "=B3*39.3701"
            Range("G3").Formula = "=B3*3.28084"
        Case "C3" ' 千米转其他单位
            Range("B3").Formula = "=C3*1000"
            Range("D3").Formula = "=C3*10000"
            Range("E3").Formula = "=C3*100000"
            Range("F3").Formula = "=C3*39370.1"
            Range("G3").Formula = "=C3*3280.84"
        Case "D3" ' 分米转其他单位
            Range("B3").Formula = "=D3/10"
            Range("C3").Formula = "=D3/10000"
            Range("E3").Formula = "=D3*10"
            Range("F3").Formula = "=D3*3.93701"
            Range("G3").Formula = "=D3*0.328084"
        Case "E3" ' 厘米转其他单位
            Range("B3").Formula = "=E3/100"
            Range("C3").Formula = "=E3/100000"
            Range("D3").Formula = "=E3/10"
            Range("F3").Formula = "=E3*0.393701"
            Range("G3").Formula = "=E3*0.0328084"
        Case "F3" ' 英寸转其他单位
            Range("B3").Formula = "=F3/39.3701"
            Range("C3").Formula = "=F3/39370.1"
            Range("D3").Formula = "=F3/3.93701"
            Range("E3").Formula = "=F3/0.393701"
            Range("G3").Formula = "=F3/12"
        Case "G3" ' 英尺转其他单位
            Range("B3").Formula = "=G3*0.3048"
            Range("C3").Formula = "=G3*0.0003048"
            Range("D3").Formula = "=G3*3.048"
            Range("E3").Formula = "=G3*30.48"
            Range("F3").Formula = "=G3*12"
    End Select
    
    Application.EnableEvents = True ' 恢复事件触发
End Sub

使用说明 #

1. 在B3-G3任意单元格输入数值，其他单元格会自动转换为对应单位。
2. 如果需要调整单位对应关系或转换系数，直接修改Select Case分支里的公式即可。
3. 拓展温度、压力等其他单位转换时，可复制类似逻辑，针对其他单元格区域编写对应的Change事件处理代码。

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