求那位大神帮我看看这个录入表

a530132209

这个录入表能保存，但他不能录入到员工表里，不知道保存到哪里了

a530132209

还有能在状态里点离职，怎么显示当天的离职时间

a530132209

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Row > 1 And Target.Column = 1 And Target.Count = 1 Then
        If Target.Value = "离职" Then
            Cells(Target.Row, 24) = Date
            Call aa
        ElseIf Target.Value = "在职" Then
            Cells(Target.Row, 24) = ""
            Call aa
        End If
    End If
End Sub

a530132209

Sub aa()
    Dim arr, x&, arr1()
    With Sheets("员工表")
        arr = .Range("A3:x" & .Range("A65536").End(xlUp).Row)
    End With
    For x = 2 To UBound(arr)
        If arr(x, 1) = "离职" Then
            i = i + 1
            ReDim Preserve arr1(1 To UBound(arr, 2), 0 To i)
            arr1(1, i) = i
            For y = 2 To UBound(arr, 2)
                arr1(y, i) = arr(x, y)
            Next y
        End If
    Next x
    For x = 1 To UBound(arr, 2)
        arr1(x, 0) = arr(1, x)
    Next x
    Sheets("离职管理").Select
    Columns("A:x").Borders.LineStyle = 0
    Columns("A:x").ClearContents
    Range("A1").Resize(UBound(arr1, 2) + 1, UBound(arr1)) = Application.Transpose(arr1)
    Range("A1").Resize(UBound(arr1, 2) + 1, UBound(arr1)).Borders.LineStyle = 1
    Columns("B:G").Select
    With Sheets("离职管理").Sort
        .SortFields.Clear
        .SortFields.Add Key:=Range("G2:G200"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
        .SetRange Range("B1:G200")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A1").Select
End Sub

a530132209

Sub Macro2()
'
' Macro2 Macro
'

'
    Columns("B:X").Select
    ActiveWorkbook.Worksheets("离职管理").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("离职管理").Sort.SortFields.Add Key:=Range("X2:X200"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("离职管理").Sort
        .SetRange Range("B1:X200")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("D200").Select
End Sub

a530132209

怎么样才能显示当天的离职日期