到底哪里出了问题

/**
 * 新员工录入 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();

}
 

  • 24
    点赞
  • 16
    收藏
    觉得还不错? 一键收藏
  • 1
    评论
站用交流系统断路器保护灵敏度校验整改及剩余电流监测试点应用站用交流系统断路器保护灵敏度校验整改及剩余电流监测试点应用站用交流系统断路器保护灵敏度校验整改及剩余电流监测试点应用站用交流系统断路器保护灵敏度校验整改及剩余电流监测试点应用站用交流系统断路器保护灵敏度校验整改及剩余电流监测试点应用站用交流系统断路器保护灵敏度校验整改及剩余电流监测试点应用站用交流系统断路器保护灵敏度校验整改及剩余电流监测试点应用站用交流系统断路器保护灵敏度校验整改及剩余电流监测试点应用站用交流系统断路器保护灵敏度校验整改及剩余电流监测试点应用站用交流系统断路器保护灵敏度校验整改及剩余电流监测试点应用站用交流系统断路器保护灵敏度校验整改及剩余电流监测试点应用站用交流系统断路器保护灵敏度校验整改及剩余电流监测试点应用站用交流系统断路器保护灵敏度校验整改及剩余电流监测试点应用站用交流系统断路器保护灵敏度校验整改及剩余电流监测试点应用站用交流系统断路器保护灵敏度校验整改及剩余电流监测试点应用站用交流系统断路器保护灵敏度校验整改及剩余电流监测试点应用站用交流系统断路器保护灵敏度校验整改及剩余电流监测试点应用站用交流系统断

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论 1
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值