Question

我正在尝试编写一个更改任何列的宏应该自动保存工作表。

我的Excel表格会扩展到G25。

我尝试了这个，但它不起作用：

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Target.Worksheet.Range("G25")) Is Nothing Then
        ActiveWorkbook.Save
End Sub

我已将其保存在ThisWorkBook下。

感谢任何帮助。

Answer 1

在 ThisWorkbook 下，该处理程序名为Workbook_SheetChange并且它接受两个参数， Sh （类型Object）和目标< / strong>（a Range）。所以，你的代码不会在那里工作。
如果您将代码放在所需的工作表中（例如 Sheet1 ）而不是 ThisWorkbook ，请放置End If并将范围更改为“A1：G25”（表示从第1行A列到第25行第25列的正方形），它应该可以工作。这样做了：

Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Target.Worksheet.Range("A1:G25")) Is Nothing Then MsgBox "changed" End If End Sub

为了完整性，在 ThisWorkbook 下，这将有效：

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) If Not Intersect(Target, Target.Worksheet.Range("A1:G25")) Is Nothing Then MsgBox "changed" End If End Sub

Answer 2

事件不起作用的另一个常见原因是EnableEvents已设置为False

我会把你的问题编码为

通常您需要处理正在测试的兴趣范围。因此，在下面创建变量rng1既可以作为早期退出点，也可以作为要使用的范围对象。在工作表事件Target.Worksheet.Range("A1:G25")将起作用，但实际使用时间很长

如果您确实需要操作范围，则对工作表进行任何进一步更改将触发调用Change事件等，这可能导致Excel崩溃。因此，最好禁用其他事件，运行代码，然后在退出时重新启用事件

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng1 As Range
Set rng1 = Intersect(Target, Range("A1:G25"))
If rng1 Is Nothing Then Exit Sub
Application.EnableEvents = False
'work with rng1
Application.EnableEvents = True
End Sub

Excel Worksheet_Change事件无法正常工作

2 个答案: