用Excel实现VBA消除人为错误

用Excel实现VBA消除人为错误,excel,Excel,我有一个电子表格,我正在尝试设置一些代码,因此当用户更改字段E13时,会出现一个提示,突出显示字段E19、E29、E31、E39、E41。E13是一个具有货币价值的变更单字段,我希望用户知道,一旦他们更改E13,他们需要处理其他字段。如果可能,我希望突出显示单元格。在工作表代码区域安装以下事件宏: Private Sub Worksheet_Change(ByVal Target As Range) Dim E13 As Range, rFix As Range Set E13

我有一个电子表格,我正在尝试设置一些代码,因此当用户更改字段E13时,会出现一个提示,突出显示字段E19、E29、E31、E39、E41。E13是一个具有货币价值的变更单字段,我希望用户知道,一旦他们更改E13,他们需要处理其他字段。如果可能,我希望突出显示单元格。

在工作表代码区域安装以下事件宏:

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim E13 As Range, rFix As Range
    Set E13 = Range("E13")
    Set rFix = Range("E19,E29,E31,E39,E41")
    If Intersect(E13, Target) Is Nothing Then Exit Sub
    Application.EnableEvents = False
        rFix.Interior.ColorIndex = 6
        MsgBox "Please update the hi-lighted cells and remove the hi-lighting"
    Application.EnableEvents = True
End Sub
由于它是工作表代码,因此安装和自动使用非常容易:

  • 在Excel窗口底部附近的选项卡名称上单击鼠标右键
  • 选择查看代码-这将打开一个VBE窗口
  • 粘贴内容并关闭VBE窗口
  • 如果您有任何顾虑,请先在试用工作表上试用

    如果保存工作簿,宏将与工作簿一起保存。 如果在2003年以后使用Excel版本,则必须保存 文件的格式为.xlsm而不是.xlsx

    要删除宏,请执行以下操作:

  • 如上所述打开VBE窗口
  • 清除代码
  • 关闭VBE窗口
  • 要了解有关宏的更多信息,请参阅:

    要了解有关事件宏(工作表代码)的详细信息,请参阅:

    必须启用宏才能工作

    +1:)你可能也想看看。。。第三点。。。因为您正在使用工作表\u更改