Question

我正在尝试将存档表添加到我的工作簿中，其中收集了已关闭的票证。我希望特定票证的行从标有“票证”的表格中剪切，并在其状态从打开变为关闭后粘贴到标有“存档”的表格中。我希望这可以使用私有子进行，以便它在单元格更改时发生。状态见第4栏。

如果可能的话我认为可以反过来这样做。因此，如果再次重新打开故障单并在“存档”表单中更改其状态，则会将其剪切并粘贴回“故障单”表单。

这是我们到目前为止的代码。我们似乎可以让它发挥作用。任何帮助将不胜感激。谢谢

Private Sub Worksheet_Change (ByVal Target As Range) 

If Target.Column = 4 Then 
If Target.Value = "Closed" Then
   R = Target.Row 
   Rows(R).Cut 
   Worksheets("Archive").Select
     With ActiveSheet
      lastrow = .Cells(.Rows.Count,"B").End(xlUp).Row
     End With
   Cells(lastrow,1).Select
   Selection.Paste
End If
End If 
End sub

Answer 1

只需对您当前的代码进行少量修改：

If Target.Column = 4 Then
If Target.Value = "Closed" Then
   R = Target.Row
   Rows(R).Cut
   Worksheets("sheet3").Select
     With ActiveSheet
      lastrow = .Cells(.Rows.Count, "B").End(xlUp).Row + 1
      .Cells(lastrow, 1).Select
      .Paste
     End With
End If
End If

使用私有子自动复制和粘贴单元格更改

1 个答案: