/**
* 新员工录入 Macro
* 宏由 rs2 录制,时间: 2023/11/27
*/
function 新员工录入()
{
Sheets.Item("入职明细表").Activate();
Rows.Item("2:2").Select();
Selection.AutoFilter(undefined, undefined, xlAnd, undefined, undefined);
ActiveWorkbook.Names.Add("入职明细表!_FilterDatabase", "=入职明细表!$A$2:$BD$2", false, undefined, undefined, undefined, undefined, undefined, undefined, undefined, undefined);
(obj=>{
(obj=>{
obj.Clear();
obj.Add(Range("A2"), undefined, xlDescending, undefined, undefined);
})(obj.SortFields);
obj.Header = xlYes;
obj.MatchCase = false;
obj.SortMethod = xlPinYin;
obj.Orientation = xlSortColumns;
obj.Apply();
})(ActiveSheet.AutoFilter.Sort);
ActiveWindow.ScrollRow = 3;
Rows.Item("3:3").Select();
Selection.Insert(xlShiftDown, undefined);
Range("A4").Select();
Selection.AutoFill(Range("A3:A4"), xlFillDefault);
Range("A3:A4").Select();
Selection.Activate();
Sheets.Item("入离职办理").Activate();
Range("E4:E9").Select();
Selection.Copy(undefined);
Sheets.Item("入职明细表").Activate();
Range("B3").Select();
Selection.PasteSpecial(xlPasteAll, xlPasteSpecialOperationNone, false, true);
Sheets.Item("入离职办理").Activate();
Range("C4:C9").Select();
Selection.Copy(undefined);
Sheets.Item("入职明细表").Activate();
Range("H3").Select();
Selection.PasteSpecial(xlPasteAll, xlPasteSpecialOperationNone, false, true);
ActiveWindow.ScrollColumn = 13;
Range("N4:P4").Select();
Selection.AutoFill(Range("N3:P4"), xlFillDefault);
Range("N3:P4").Select();
Range("N4").Activate();
ActiveWindow.ScrollColumn = 15;
Sheets.Item("入离职办理").Activate();
Range("C10:C14").Select();
Selection.Copy(undefined);
Sheets.Item("入职明细表").Activate();
Range("Q3").Select();
Selection.PasteSpecial(xlPasteAll, xlPasteSpecialOperationNone, false, true);
Sheets.Item("入离职办理").Activate();
Range("G7:G8").Select();
Selection.Copy(undefined);
Sheets.Item("入职明细表").Activate();
Range("V3").Select();
Selection.PasteSpecial(xlPasteAll, xlPasteSpecialOperationNone, false, true);
ActiveWindow.ScrollColumn = 22;
Sheets.Item("入离职办理").Activate();
Range("E10:E12").Select();
Selection.Copy(undefined);
Sheets.Item("入职明细表").Activate();
Range("X3").Select();
Selection.PasteSpecial(xlPasteAll, xlPasteSpecialOperationNone, false, true);
Range("AA4").Select();
Selection.AutoFill(Range("AA3:AA4"), xlFillDefault);
Range("AA3:AA4").Select();
Range("BA4").Activate();
Sheets.Item("入离职办理").Activate();
Range("E14").Select();
Selection.Copy(undefined);
Sheets.Item("入职明细表").Activate();
ActiveWindow.ScrollColumn = 25;
Range("AB3").Select();
Selection.PasteSpecial(xlPasteValues, xlPasteSpecialOperationNone, false, false);
Range("AC4").Select();
Selection.AutoFill(Range("AC3:AC4"), xlFillDefault);
Range("AC3:AC4").Select();
Range("BC4").Activate();
Range("AD4").Select();
ActiveWindow.ScrollColumn = 28;
Range("AD4:AE4").Select();
Selection.AutoFill(Range("AD3:AE4"), xlFillDefault);
Range("AD3:AE4").Select();
Range("BD4").Activate();
Sheets.Item("入离职办理").Activate();
Range("G4:G6").Select();
Selection.Copy(undefined);
Sheets.Item("入职明细表").Activate();
Range("AF3").Select();
Selection.PasteSpecial(xlPasteAll, xlPasteSpecialOperationNone, false, true);
ActiveWindow.ScrollColumn = 35;
Range("AI4").Select();
Selection.AutoFill(Range("AI3:AI4"), xlFillDefault);
Range("AI3:AI4").Select();
Range("BI4").Activate();
Sheets.Item("入离职办理").Activate();
Range("G9:G11").Select();
Selection.Copy(undefined);
Sheets.Item("入职明细表").Activate();
Range("AJ3").Select();
Selection.PasteSpecial(xlPasteAll, xlPasteSpecialOperationNone, false, true);
Range("AM4:AN4").Select();
Selection.AutoFill(Range("AM3:AN4"), xlFillDefault);
Range("AM3:AN4").Select();
Range("BM4").Activate();
ActiveWindow.ScrollColumn = 39;
Range("AO4").Select();
Selection.AutoFill(Range("AO3:AO4"), xlFillDefault);
Range("AO3:AO4").Select();
Range("BO4").Activate();
Sheets.Item("入离职办理").Activate();
Range("G12").Select();
Selection.Copy(undefined);
Sheets.Item("入职明细表").Activate();
Range("AP3").Select();
Selection.PasteSpecial(xlPasteValues, xlPasteSpecialOperationNone, false, false);
Range("AQ4").Select();
Selection.AutoFill(Range("AQ3:AQ4"), xlFillDefault);
Range("AQ3:AQ4").Select();
Range("BQ4").Activate();
ActiveWindow.ScrollColumn = 42;
Range("AR4:AU4").Select();
Selection.AutoFill(Range("AR3:AU4"), xlFillDefault);
Range("AR3:AU4").Select();
Range("BR4").Activate();
Sheets.Item("入离职办理").Activate();
Range("G14").Select();
Selection.Copy(undefined);
Sheets.Item("入职明细表").Activate();
ActiveWindow.ScrollColumn = 45;
Range("AV3").Select();
Selection.PasteSpecial(xlPasteAll, xlPasteSpecialOperationNone, false, true);
ActiveWindow.ScrollColumn = 48;
Range("AW4:BB4").Select();
Selection.AutoFill(Range("AW3:BB4"), xlFillDefault);
Range("AW3:BB4").Select();
Range("I4").Activate();
ActiveWindow.ScrollColumn = 50;
(obj=>{
(obj=>{
obj.Clear();
obj.Add(Range("A2"), undefined, xlDescending, undefined, undefined);
})(obj.SortFields);
obj.Header = xlYes;
obj.MatchCase = false;
obj.SortMethod = xlPinYin;
obj.Orientation = xlSortColumns;
obj.Apply();
})(ActiveSheet.AutoFilter.Sort);
ActiveWindow.ScrollRow = 5;
Sheets.Item("入离职办理").Activate();
}