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

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>

复制代码

jesus123321

sunya_0529 发表于 2023-4-26 21:14

感谢老师，真是太谢谢啦！完美解决了我的解决问题！

jesus123321

sunya_0529 发表于 2023-4-26 21:14

抱歉老师，打扰您了，好像出了点小问题，不知道是不是我操作的问题
1.《在职表》里F列只要输入任意内容整行就会直接消失，新的信息填不进去，原先表里状态为在职的人只要点击单元格里“在职”两个字，也会整行消失...
2.可不可以在移进《离职表》里的时候，把B列的序号也给去掉呀（那个B列的分序号在《在职表》里有用，在《离职表》里就没有用啦）
再次感谢老师！

jesus123321

sunya_0529 发表于 2023-4-26 21:14

老师，我是这两天才发现这个宝藏论坛的，无奈我暂时还没有私聊的权限，就只能在这里给您留言了，可以获得一下您的联系方式嘛？我没什么基础，想向您学习，也想向您表达一下谢意！

jesus123321

sunya_0529 发表于 2023-4-26 21:14

1. Option Explicit
   
2. 
   
3. Private Sub Worksheet_Change(ByVal Target As Range)
   
4. On Error Resume Next '设置错误处理
   
5. Dim wstLZ As Worksheet, wstTX As Worksheet, intR%, j%
   
6. Set wstLZ = Sheets("离职表")
   
7. Set wstTX = Sheets("退休表")
   
8. Application.ScreenUpdating = False '关闭屏幕刷新
   
9. If Target.Cells.Count = 1 Then
   
10.   If Target.Column = 6 And Target.Row > 1 And Len(Target.Value) > 0 And Cells(Target.Row, 6) = "离职" Then
    
11.     Select Case Target.Value
    
12.       Case "离职"
    
13.         intR = wstLZ.[A65536].End(xlUp).Row + 1 '获取离职表可添数据行号
    
14.         Target.EntireRow.Copy wstLZ.Cells(intR, 1)  '复制到离职表
    
15.         wstLZ.Cells(intR, Target.Column).Interior.ThemeColor = 8
    
16.     End Select
    
17.     Target.EntireRow.Delete '删除当前行
    
18.   ElseIf Target.Column = 6 And Target.Row > 1 And Len(Target.Value) > 0 And Cells(Target.Row, 6) = "退休" Then
    
19.     Select Case Target.Value
    
20.       Case "退休"
    
21.         intR = wstLZ.[A65536].End(xlUp).Row + 1
    
22.         Target.EntireRow.Copy wstLZ.Cells(intR, 1)
    
23.         wstLZ.Cells(intR, Target.Column).Interior.ThemeColor = 10
    
24.         With wstTX '提取数据到退休表
    
25.           intR = .[A65536].End(xlUp).Row + 1 '获取退休表可添数据行号
    
26.           .Cells(intR, 1).Formula = "=ROW()-1" '写入序号公式
    
27.           For j = 2 To .[A1].End(xlToRight).Column '使用循环匹配表头对应数据
    
28.             .Cells(intR, j) = Cells(Target.Row, [1:1].Find(.Cells(1, j), LookIn:=xlValues).Column)
    
29.           Next
    
30.           .Cells(intR, .[1:1].Find("状态", LookIn:=xlValues).Column).Interior.ThemeColor = 10
    
31.         End With
    
32.     End Select
    
33.     Target.EntireRow.Delete '删除当前行
    
34.     '设置边框线
    
35.     wstLZ.[A1].CurrentRegion.Borders.LineStyle = xlContinuous
    
36.     wstTX.[A1].CurrentRegion.Borders.LineStyle = xlContinuous
    
37.   End If
    
38. End If
    
39. '释放资源
    
40. Set wstLZ = Nothing
    
41. Set wstTX = Nothing
    
42. Application.ScreenUpdating = True '打开屏幕刷新
    
43. End Sub
    

复制代码

不知道我这样修改的对不对，但是《在职表》移到《离职表》删除B列那个我就不会啦，希望得到您的指点~

sunya_0529

jesus123321 发表于 2023-4-27 00:26
抱歉老师，打扰您了，好像出了点小问题，不知道是不是我操作的问题
1.《在职表》里F列只要输入任意内容 ...

1. Option Explicit
   
2. 
   
3. Private Sub Worksheet_Change(ByVal Target As Range)
   
4. On Error Resume Next '设置错误处理
   
5. Dim wstLZ As Worksheet, wstTX As Worksheet, intR%, j%
   
6. Set wstLZ = Sheets("离职表")
   
7. Set wstTX = Sheets("退休表")
   
8. Application.ScreenUpdating = False '关闭屏幕刷新
   
9. If Target.Cells.Count = 1 Then
   
10.   If Target.Column = 6 And Target.Row > 1 And Len(Target.Value) > 0 Then
    
11.     Select Case Target.Value
    
12.       Case "离职"
    
13.         intR = wstLZ.[A65536].End(xlUp).Row + 1 '获取离职表可添数据行号
    
14.         Target.EntireRow.Copy wstLZ.Cells(intR, 1)  '复制到离职表
    
15.         wstLZ.Cells(intR, 2) = ""
    
16.         wstLZ.Cells(intR, Target.Column).Interior.ThemeColor = 8
    
17.       Case "退休"
    
18.         intR = wstLZ.[A65536].End(xlUp).Row + 1
    
19.         Target.EntireRow.Copy wstLZ.Cells(intR, 1)
    
20.         wstLZ.Cells(intR, 2) = ""
    
21.         wstLZ.Cells(intR, Target.Column).Interior.ThemeColor = 10
    
22.         With wstTX '提取数据到退休表
    
23.           intR = .[A65536].End(xlUp).Row + 1 '获取退休表可添数据行号
    
24.           .Cells(intR, 1).Formula = "=ROW()-1" '写入序号公式
    
25.           For j = 2 To .[A1].End(xlToRight).Column '使用循环匹配表头对应数据
    
26.             .Cells(intR, j) = Cells(Target.Row, [1:1].Find(.Cells(1, j), LookIn:=xlValues).Column)
    
27.           Next
    
28.           .Cells(intR, .[1:1].Find("状态", LookIn:=xlValues).Column).Interior.ThemeColor = 10
    
29.         End With
    
30.       Case Else
    
31.         Exit Sub
    
32.     End Select
    
33.     Target.EntireRow.Delete '删除当前行
    
34.     '设置边框线
    
35.     wstLZ.[A1].CurrentRegion.Borders.LineStyle = xlContinuous
    
36.     wstTX.[A1].CurrentRegion.Borders.LineStyle = xlContinuous
    
37.   End If
    
38. End If
    
39. '释放资源
    
40. Set wstLZ = Nothing
    
41. Set wstTX = Nothing
    
42. Application.ScreenUpdating = True '打开屏幕刷新
    
43. End Sub

复制代码

jesus123321

sunya_0529 发表于 2023-4-27 17:21

太感谢老师了！

疏且浅

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

可以用三个表，一个汇总表，一个离职人员，一个在职人员表，不然可以让人用VBA才能实现这个功能

予一

实用~不过状态不可逆，如果不小心写了离职跳到离职表里无法再改回来

13145203

学习了很多，不过我这个有个小问题想请教下各位大神，表格一中公司的花名册。但是在表格二中，我是一次表，就是从表格一中筛选出来，如果表格二中有离职的人员，那么表格一中将不会显示，如何用公式或者是其他的就是不要用那个代码和那个宏