数据跳转问题

yokelman

跳转问题.rar (11.81 KB, 下载次数: 26)

2011-11-16 09:04 上传

点击文件名下载附件
跳转问题

“状态”一栏中，如果是“在职”，就显示在“在职”表中，“离职”就显示在“离职”表中，并且把“在职”表中的数据删除，但是不删除“总表”中的数据。

请看附件，以下为原本的代码：

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Target.Value = "在职" Then
  Target.EntireRow.Copy Sheets("在职").Range("A65536").End(xlUp).Offset(1, 0)
ElseIf Target.Value = "离职" Then
  Target.EntireRow.Copy Sheets("离职").Range("A65536").End(xlUp).Offset(1, 0)
  End If
End Sub

以上是根据论坛的“sunya_0529 ”老师编写的，但是不能实现删除“在职”表的数据，请各位老师帮忙看看。

yokelman

{:soso_e105:}都没人嘛？

sunya_0529

非常抱歉，有一段时间没关注这里了，希望现在回复这个问题为时未晚——

[code=vb]Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next '设置错误处理
If Target.Cells.Count > 1 Then Exit Sub
Application.ScreenUpdating = False '关闭屏幕刷新
If Target.Value = "在职" Then
  Target.EntireRow.Copy Sheets("在职").Range("A65536").End(xlUp).Offset(1, 0) '添加在职员工信息
ElseIf Target.Value = "离职" Then
  Target.EntireRow.Copy Sheets("离职").Range("A65536").End(xlUp).Offset(1, 0) '添加离职员工信息
  Sheets("在职").[A:A].Find(ActiveSheet.Cells(Target.Row, 1), LookIn:=xlValues).EntireRow.Delete '“在职”表中删除离职员工信息
End If
Application.CutCopyMode = False '取消复制剪切模式
Application.ScreenUpdating = True '打开屏幕刷新
End Sub
[/code]