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

hws20080808

向大神们学习了！

xiaoyao202

flhy99 发表于 2011-3-21 19:47
能不能用先加IF条件后，自动运行您的宏：
例如：=IF(B5-TODAY()=0,"离职","")
           =IF(B6-TODAY() ...

请问你这个代码搞定没啊。我也是这样的

lynnzhong

新纪元 发表于 2010-1-23 12:53
附件中的样式应该满足LZ的需求（注：用07版做的，03版如不能显示公式，可用07版打开）

求大神解救

李积极

非常及时呀，下载看一下

374238856

ywang691 发表于 2010-2-10 21:54
不错, 但如果能让sheet 1中的辞职人员消除而显示在sheet2中就更实用了.

有这个办法解决吗

光几何

好东西 学习学习 谢谢

jesus123321

sunya_0529 发表于 2010-5-13 19:03
纯用函数实现难度挺大，用宏的话就小菜了。

如附件所示，在F列输入“离职”，会自动在“离职”表里 ...

请问老师，如果只是想从在职人员里把A，C，F三列的内容复制到离职人员的A，B，C三列里，该怎么修改代码呀？

sunya_0529

jesus123321 发表于 2023-4-25 12:46
请问老师，如果只是想从在职人员里把A，C，F三列的内容复制到离职人员的A，B，C三列里，该怎么修改代码呀 ...

上传一个模拟附件来看看~

jesus123321

sunya_0529 发表于 2023-4-26 12:02
上传一个模拟附件来看看~

感谢老师解答，想要这样的
1.如果在《在职表》里改为“离职”，人员移动至《离职表》
2.如果在《在职表》里改为“退休”，人员移动至《离职表》，同时把相对应列的信息也填写进《退休表》
注：《退休表》里第一列想要有自动行号的公式，可以自动标序号
3.最好可以把每个表里不同状态的人标记一下颜色，我用的是条件格式，但是我发现如果用宏代码移动之后，新移过来的信息条件格式就不起作用了。

sunya_0529

jesus123321 发表于 2023-4-26 13:49
感谢老师解答，想要这样的
1.如果在《在职表》里改为“离职”，人员移动至《离职表》
2.如果在《在职表 ...

1. <p>Option Explicit</p><p>
   
2. </p><p>Private Sub Worksheet_Change(ByVal Target As Range)</p><p>On Error Resume Next '设置错误处理</p><p>Dim wstLZ As Worksheet, wstTX As Worksheet, intR%, j%</p><p>Set wstLZ = Sheets("离职表")</p><p>Set wstTX = Sheets("退休表")</p><p>Application.ScreenUpdating = False '关闭屏幕刷新</p><p>If Target.Cells.Count = 1 Then</p><p>  If Target.Column = 6 And Target.Row > 1 And Len(Target.Value) > 0 Then</p><p>    Select Case Target.Value</p><p>      Case "离职"</p><p>        intR = wstLZ.[A65536].End(xlUp).Row + 1 '获取离职表可添数据行号</p><p>        Target.EntireRow.Copy wstLZ.Cells(intR, 1)  '复制到离职表</p><p>        wstLZ.Cells(intR, Target.Column).Interior.ThemeColor = 8</p><p>      Case "退休"</p><p>        intR = wstLZ.[A65536].End(xlUp).Row + 1</p><p>        Target.EntireRow.Copy wstLZ.Cells(intR, 1)</p><p>        wstLZ.Cells(intR, Target.Column).Interior.ThemeColor = 10</p><p>        With wstTX '提取数据到退休表</p><p>          intR = .[A65536].End(xlUp).Row + 1 '获取退休表可添数据行号</p><p>          .Cells(intR, 1).Formula = "=ROW()-1" '写入序号公式</p><p>          For j = 2 To .[A1].End(xlToRight).Column '使用循环匹配表头对应数据</p><p>            .Cells(intR, j) = Cells(Target.Row, [1:1].Find(.Cells(1, j), LookIn:=xlValues).Column)</p><p>          Next</p><p>          .Cells(intR, .[1:1].Find("状态", LookIn:=xlValues).Column).Interior.ThemeColor = 10</p><p>        End With</p><p>    End Select</p><p>    Target.EntireRow.Delete '删除当前行</p><p>    '设置边框线</p><p>    wstLZ.[A1].CurrentRegion.Borders.LineStyle = xlContinuous</p><p>    wstTX.[A1].CurrentRegion.Borders.LineStyle = xlContinuous</p><p>  End If</p><p>End If</p><p>'释放资源</p><p>Set wstLZ = Nothing</p><p>Set wstTX = Nothing</p><p>Application.ScreenUpdating = True '打开屏幕刷新</p><p>End Sub</p>

复制代码