基于数据验证下拉框值自动输入公式的Excel VBA求助

我通过数据验证设置了一个下拉框（单元格D155），用户可选择「BUs」或「RUs」选项。下方有两个表格用于录入对应数据，需要VBA脚本实现：当选中某一选项时，在未选中的对应表格单元格中自动填入转换公式。例如，选择「BUs」时，在K159单元格输入公式=D159/10。我尝试了以下代码但未成功：

Private Sub UOM_Formulas()

If Range("d155").Value = "BUs" Then
    Range("k159").Value = "=d159/10"
Else

End Sub

你的代码有两个核心问题：

• 代码结构不完整：Else分支没有闭合，缺少End If和End Sub的完整结构，导致VBA无法正常编译执行。
• 触发方式错误：自定义的UOM_Formulas过程没有自动触发机制，下拉框选择变化时不会主动运行这个代码。需要改用Worksheet_Change事件，当目标单元格（D155）内容变化时自动执行逻辑。

修复后的完整代码如下（需粘贴到对应工作表的代码模块中）：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 仅当D155单元格内容变化时执行
    If Not Intersect(Target, Range("D155")) Is Nothing Then
        Application.EnableEvents = False ' 防止公式写入触发二次事件
        
        Select Case Range("D155").Value
            Case "BUs"
                ' 选择BUs时，给K159写入转换公式
                Range("K159").Formula = "=D159/10"
            Case "RUs"
                ' 选择RUs时，给对应单元格写入反向转换公式（可根据需求调整）
                Range("D159").Formula = "=K159*10"
            Case Else
                ' 若选择空值，清空两个单元格的公式
                Range("D159,K159").ClearContents
        End Select
        
        Application.EnableEvents = True ' 恢复事件触发
    End If
End Sub

• Application.EnableEvents = False是为了避免写入公式时触发新一轮的Worksheet_Change事件，造成循环执行。
• 若需要给多个单元格批量设置公式，可修改Range对象，比如Range("K159:K169").Formula = "=D159/10"（相对引用会自动适配行号）。
• 确保代码粘贴在对应工作表的代码模块中（右键工作表标签→查看代码），而非标准模块。

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