用Excel实现VBA消除人为错误
我有一个电子表格,我正在尝试设置一些代码,因此当用户更改字段E13时,会出现一个提示,突出显示字段E19、E29、E31、E39、E41。E13是一个具有货币价值的变更单字段,我希望用户知道,一旦他们更改E13,他们需要处理其他字段。如果可能,我希望突出显示单元格。在工作表代码区域安装以下事件宏:用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
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
由于它是工作表代码,因此安装和自动使用非常容易: