在EXCEL中怎样将表格内的辞职人员自动跳到另一个表格内

henbin

非常好的内容，谢谢！！

cycssky

原帖由 sunya_0529 于 2011-1-31 15:19 发表



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

佩服得内牛满面，正好运用到的我“劳动合同管理系统”里面，哈哈哈，有人离职就直接点一下就好。不过新的问题来了，公司4000多人，难免会点错，能不能这样来一下，在离职那里如果选择“在职”，那相应的行又跑回到原来的表格里了捏？我的意思就是相当于OFFICE中常常用到的“撤消”命令，有时候会做错的嘛。。。。。

d06550133

相当给力，学习了，就是自己做的时候总是出错

cycssky

原帖由 cycssky 于 2011-3-11 15:07 发表

佩服得内牛满面，正好运用到的我“劳动合同管理系统”里面，哈哈哈，有人离职就直接点一下就好。不过新的问题来了，公司4000多人，难免会点错，能不能这样来一下，在离职那里如果选择“在职”，那相应的行又跑回到 ...

已经解决，把“离职”改成“在职”，sheet(2)改成sheet(1)，KO！！！！

H2598

学习了谢谢！！

w26

有了这东西以后算起来就更简单了，至于自动删除源数据的问题，我觉得倒是可以不用

cycssky

问一下，那个比如说从sheet1中点击“离职”后，该行被剪切并复制到sheet2中，但是复制的是全部，如果只想复制其值，不想连带公式啊格式啊什么的一起，应该如何实现？？求达人正解。

sunya_0529

原帖由 cycssky 于 2011-3-15 08:15 发表
问一下，那个比如说从sheet1中点击“离职”后，该行被剪切并复制到sheet2中，但是复制的是全部，如果只想复制其值，不想连带公式啊格式啊什么的一起，应该如何实现？？求达人正解。

用选择性粘贴就好了，也就是pastespecial方法，代码如下：

1. 
   
2. Option Explicit
   
3. Private Sub Worksheet_Change(ByVal Target As Range)
   
4. Application.ScreenUpdating = False '禁用屏幕刷新
   
5. If Target.Cells.Count > 1 Then Exit Sub
   
6. If Target.Value = "离职" Then
   
7.   Target.EntireRow.Copy
   
8.   Sheets(2).Range("A65536").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlValues
   
9.   Target.EntireRow.Delete
   
10. End If
    
11. Application.CutCopyMode = False '退出复制粘贴模式
    
12. Application.ScreenUpdating = True '打开屏幕刷新
    
13. End Sub
    

复制代码

Angel.haiyan

非常好！正是我想要用的！谢谢

ghy0753

好东西啊，一直想要找的，谢谢了！