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

henbin · 发表于 2011-3-11 14:06

非常好的内容，谢谢！！

cycssky · 发表于 2011-3-11 15:07

原帖由 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 · 发表于 2011-3-11 16:05

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

cycssky · 发表于 2011-3-11 16:37

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

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

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

H2598 · 发表于 2011-3-13 21:02

学习了谢谢！！

w26 · 发表于 2011-3-14 10:14

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

cycssky · 发表于 2011-3-15 08:15

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

sunya_0529 · 发表于 2011-3-15 09:06

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

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

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = 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).PasteSpecial Paste:=xlValues
Target.EntireRow.Delete
End If
Application.CutCopyMode = False '退出复制粘贴模式
Application.ScreenUpdating = True '打开屏幕刷新
End Sub

复制代码

Angel.haiyan · 发表于 2011-3-15 22:49

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

ghy0753 · 发表于 2011-3-18 17:48

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

		自动登录	找回密码
密码			免费注册

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