求助：如何修改VBA语句424报错情况

zjl19860613

测试 10.17人事库.rar (43.26 KB, 下载次数: 12)

2014-11-8 00:32 上传

点击文件名下载附件
人事库

本人根据论坛上的一个帖子（如果sunya_0529本人能看到帮助解决，那就更好了！），自己做了一个在职、离职表人员数据在不同工作表之间的切换， 在职库里面当出现“自动离职”或“正常离职”均需要汇总到离职库，我自己做了下，自动离职可以过去，但正常离职 报错，运行时对象 出错，424，自己改了半天也没有改出来，麻烦大师们看下，调试下语句，

1. Option Explicit
   
2. Private Sub Worksheet_Change(ByVal Target As Range)
   
3. If Target.Cells.Count > 1 Then Exit Sub
   
4. If Target.Value = "正常离职" Then
   
5. Target.EntireRow.Copy Sheets(2).Range("A65536").End(xlUp).Offset(1, 0)
   
6. Target.EntireRow.Delete
   
7. End If
   
8. If Target.Value = "自动离职" Then
   
9. Target.EntireRow.Copy Sheets(2).Range("A65536").End(xlUp).Offset(1, 0)
   
10. Target.EntireRow.Delete
    
11. End If
    
12. End Sub
    
13. 
    
14. 
    

复制代码

谢谢！

lu_zhao_long

问题出在对于“正常离职”的数据已经被复制并被删除了，此时再执行检查 Target.Value = "自动离职" 的语句时，Target 已经不存在了。因此才会报这个 424 错误！
同时，楼主的代码还是有一些错误的，特别是会引起循环进行运算的。下面的代码供楼主参考，Sheet7 工作表中的代码最好也能这样修改：

Private Sub Worksheet_Change(ByVal Target As Range)

Application.EnableEvents = False        '禁止中断
If Target.Cells.Count > 1 Then Exit Sub
If Target.Value = "正常离职" Then
  Target.EntireRow.Copy Sheets(2).Range("A65536").End(xlUp).Offset(1, 0)
  Target.EntireRow.Delete
  GoTo ExitHandle                       '数据处理完毕后退出
End If
If Target.Value = "自动离职" Then
  Target.EntireRow.Copy Sheets(2).Range("A65536").End(xlUp).Offset(1, 0)
  Target.EntireRow.Delete
  GoTo ExitHandle                       '数据处理完毕后退出
End If
ExitHandle:
Application.EnableEvents = True         '恢复中断
End Sub

或者，索性使用一个 ElseIF 语句来实现：
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False        '禁止中断
If Target.Cells.Count > 1 Then Exit Sub
If Target.Value = "正常离职" Then
  Target.EntireRow.Copy Sheets(2).Range("A65536").End(xlUp).Offset(1, 0)
  Target.EntireRow.Delete
  
ElseIf Target.Value = "自动离职" Then
        Target.EntireRow.Copy Sheets(2).Range("A65536").End(xlUp).Offset(1, 0)
        Target.EntireRow.Delete
End If
Application.EnableEvents = True         '恢复中断
End Sub

sunya_0529

lu_zhao_long 发表于 2014-11-8 08:49
问题出在对于“正常离职”的数据已经被复制并被删除了，此时再执行检查 Target.Value = "自动离职" 的语句时 ...

总结得真好。

看楼主的意思，不管是“正常离职”还是“自动离职”，都需要移动，除了增加错误处理和改用分支判断的方法，还可以用：

1. Option Explicit
   
2. 
   
3. Private Sub Worksheet_Change(ByVal Target As Range)
   
4. Application.EnableEvents = False
   
5. If Target.Cells.Count > 1 Then Exit Sub
   
6. If InStr(Target.Value, "离职") > 0 Then
   
7.   Target.EntireRow.Copy Sheets(2).Range("A65536").End(xlUp).Offset(1, 0)
   
8.   Target.EntireRow.Delete
   
9. End If
   
10. Application.EnableEvents = True
    
11. End Sub
    

复制代码

To 楼主：

一直很好奇，这个通过Worksheet_Change()来实现的移动数据的功能为什么会有这么多人追捧。从数据管理的角度，不建议在源数据上直接做修改。真的有需要话，其实可以在源数据里增加一列用来标识状态，需要的时候可以通过透视表，或者是高级筛选将需要用的数据在其他工作表中汇总出来。这样可以保证源数据的准确性和一致性，实现数据存储和分析处理的逻辑分离。

zjl19860613

lu_zhao_long 发表于 2014-11-8 08:49
问题出在对于“正常离职”的数据已经被复制并被删除了，此时再执行检查 Target.Value = "自动离职" 的语句时 ...

很详细，非常感谢！

zjl19860613

sunya_0529 发表于 2014-11-8 15:57
总结得真好。

看楼主的意思，不管是“正常离职”还是“自动离职”，都需要移动，除了增加错误处理和改 ...

TO 大师：
    很荣幸得到你的回复，分析的很到位。 其实你说的很对，维护一个数据源头，然后在其他工作表做展现。由于企业里面入职、离职特别频繁，特别是还有多次离职、入职的，当月来了又走了，也就是离职库有多条信息，毕竟EXCEL不是一个HR系统，无法通过属性上去识别多次的离职记录。因此也就有你的那条回帖有超高人气的原因了。