如何在Excel中创建支持双向联动的单位转换工作表？

Excel默认的公式依赖是单向的，要实现修改任意单位单元格后其余单元格自动更新，只能通过VBA监听单元格变化来反向计算。以下是针对你的米、英寸、英尺转换需求的具体实现步骤：

实现步骤 #

1. 打开VBA编辑器
   按Alt+F11组合键，或者右键目标工作表标签（比如“Sheet1”），选择「查看代码」。

2. 粘贴事件处理代码
   在弹出的工作表代码窗口中，粘贴以下VBA代码：

   Private Sub Worksheet_Change(ByVal Target As Range)
       Application.EnableEvents = False ' 关闭事件避免循环触发
       
       If Not Intersect(Target, Range("A1:C1")) Is Nothing Then
           Select Case Target.Address
               Case "$A$1" ' 修改米的数值
                   If IsNumeric(Target.Value) Then
                       Range("B1").Value = Target.Value * 39.7
                       Range("C1").Value = Range("B1").Value / 12
                   End If
               Case "$B$1" ' 修改英寸的数值
                   If IsNumeric(Target.Value) Then
                       Range("A1").Value = Target.Value / 39.7
                       Range("C1").Value = Target.Value / 12
                   End If
               Case "$C$1" ' 修改英尺的数值
                   If IsNumeric(Target.Value) Then
                       Range("B1").Value = Target.Value * 12
                       Range("A1").Value = Range("B1").Value / 39.7
                   End If
           End Select
       End If
       
       Application.EnableEvents = True ' 恢复事件触发
   End Sub
   

3. 设置单元格格式（可选但推荐）
   为了直观显示单位，给单元格设置自定义格式：

   • 选中A1，右键→「设置单元格格式」→「自定义」，输入0.00"米"，确定后输入数字会自动显示为“X.XX米”
   • B1设置为0.00"英寸"，C1设置为0.00"英尺"

注意事项 #

• 保存文件时需选择「Excel启用宏的工作簿（.xlsm）」格式，否则宏会失效
• 输入数值时仅输入纯数字，不要带单位（自定义格式会自动添加显示单位，不影响计算）
• 若要扩展更多单位，只需在Select Case分支中添加对应单元格地址和转换公式即可

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