vba worksheet_change从一个工作表粘贴到另一个不工作，但手动工作

Private Sub Worksheet_Change(ByVal target As Range) If Intersect(target, Worksheets("SheetA").Range("V:V")) Is Nothing Then Exit Sub 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和行。

但是，我似乎无法得到的代码工作。

如果有人能指出那个代码有什么问题，那就太棒了！ 我想知道是否有人有像debuggingWorkbook_SheetChange / worksheet_changedebugging潜艇的提示

谢谢。

****修订我张贴我的新代码，而不是使用workbook_sheetchange，我试图worksheet_change。

它仍然没有工作，但是，当我手动运行它确实工作。 在即时窗口中，input“？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的评论。