用于将值从一张工作表粘贴到另一张工作表的 vba worksheet_change 不起作用，但可以手动工作

Question

Private Sub Worksheet_Change(ByVal target As Range)

    If Intersect(target, Worksheets("SheetA").Range("V:V")) Is Nothing Then 
        Application.EnableEvents = False
        thisrow = target.Row
        Worksheets("SheetB").Cells(12, 1).Value = Worksheets("SheetA").Range("A" & thisrow).Value
    End If

    Application.EnableEvents = True
End Sub

我试图在SheetA的V列被触发的情况下填充SheetB的单元格A12，并且我分配SheetB A12的值是A&触发器的行。

但是，我似乎无法让代码工作。

如果有人能指出代码的问题，那就太好了!我想知道是否有人有关于调试像 Workbook_SheetChange/worksheet_change 这样的子程序的提示

编辑:

我发布了新代码，而不是使用 workbook_sheetchange，而是尝试 worksheet_change。

它仍然无法工作，但是，当我手动运行它时，它确实可以工作。在立即窗口中，我输入“? Application.EnableEvents = True”，它返回 true。

Answer 1

这对我有用。这位于 SheetA 中。

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, WorkSheets("A").Range("V:V")) Is Nothing Then

    'Application.EnableEvents = False

    thisrow = Target.Row
    Debug.Print thisrow

    WorkSheets("B").Cells(12, 1).Value = WorkSheets("A").Cells(thisrow, 1).Value

    'Application.EnableEvents = True

End If

End Sub

编辑:根据 vacip 的评论。