首页 > Office专区 > Excel教程 >

Excel如何自动记录数据编辑时间

来源:互联网 2023-02-20 18:33:19 版权归原作者所有,如有侵权,请联系我们

Excel自动记录数据编辑时间,就设计到表格自动化,需要打开宏功能,下面介绍一下具体方法:N7C办公区 - 实用经验教程分享!

Excel如何自动记录数据编辑时间N7C办公区 - 实用经验教程分享!

工具/原料

  • 笔记本
  • 2016版office

方法/步骤

  • 1

    1、要进行编辑宏代码,首先要打开【开发工具】,依次点击【文件】-【选项】-【自定义功能区】,在右侧窗口勾选【开发工具】,点击确定;N7C办公区 - 实用经验教程分享!

    Excel如何自动记录数据编辑时间N7C办公区 - 实用经验教程分享!

  • 2

    2、确定之后回到表格编辑页面,按【ALT F11】组合键,打开VBE窗口,N7C办公区 - 实用经验教程分享!

    Excel如何自动记录数据编辑时间N7C办公区 - 实用经验教程分享!

  • 2本页面未经许可获取自百度经验
  • 3

    3、打开VBE窗口,双击需要编辑宏的工作表【sheet1】,在右侧的代码窗口输入代码【N7C办公区 - 实用经验教程分享!

    Private Sub Worksheet_Change(ByVal Target As Range)N7C办公区 - 实用经验教程分享!

    With TargetN7C办公区 - 实用经验教程分享!

    If .Count = 1 ThenN7C办公区 - 实用经验教程分享!

    If .Column = 1 ThenN7C办公区 - 实用经验教程分享!

    Application.EnableAnimations = FalseN7C办公区 - 实用经验教程分享!

    .Offset(0, 1) = IIf(.Value = "", "", Now)N7C办公区 - 实用经验教程分享!

    Range([A2], [B1048576].End(xlUp)). _N7C办公区 - 实用经验教程分享!

    Borders.LineStyle = x1CoutinuousN7C办公区 - 实用经验教程分享!

    Application.EnableEvents = TrueN7C办公区 - 实用经验教程分享!

    End IfN7C办公区 - 实用经验教程分享!

    End IfN7C办公区 - 实用经验教程分享!

    End WithN7C办公区 - 实用经验教程分享!

    N7C办公区 - 实用经验教程分享!

    End SubN7C办公区 - 实用经验教程分享!

    N7C办公区 - 实用经验教程分享!

    N7C办公区 - 实用经验教程分享!

    Excel如何自动记录数据编辑时间N7C办公区 - 实用经验教程分享!

  • 4

    4、输入完成,点击保存并关闭窗口,回到表格页面,在A列进行签到编辑;N7C办公区 - 实用经验教程分享!

    Excel如何自动记录数据编辑时间N7C办公区 - 实用经验教程分享!

  • 5

    5、员工签到完成之后,就会在B列自动录入签到时间。如下图N7C办公区 - 实用经验教程分享!

    Excel如何自动记录数据编辑时间N7C办公区 - 实用经验教程分享!

    Excel如何自动记录数据编辑时间N7C办公区 - 实用经验教程分享!

  • 总结:

  • 1

    1、要进行编辑宏代码,首先要打开【开发工具】,依次点击【文件】-【选项】-【自定义功能区】,在右侧窗口勾选【开发工具】,点击确定;N7C办公区 - 实用经验教程分享!

    2、确定之后回到表格编辑页面,按【ALT F11】组合键,打开VBE窗口,N7C办公区 - 实用经验教程分享!

    3、打开VBE窗口,双击需要编辑宏的工作表【sheet1】,在右侧的代码窗口输入代码【N7C办公区 - 实用经验教程分享!

    Private Sub Worksheet_Change(ByVal Target As Range)N7C办公区 - 实用经验教程分享!

    With TargetN7C办公区 - 实用经验教程分享!

    If .Count = 1 ThenN7C办公区 - 实用经验教程分享!

    If .Column = 1 ThenN7C办公区 - 实用经验教程分享!

    Application.EnableAnimations = FalseN7C办公区 - 实用经验教程分享!

    .Offset(0, 1) = IIf(.Value = "", "", Now)N7C办公区 - 实用经验教程分享!

    Range([A2], [B1048576].End(xlUp)). _N7C办公区 - 实用经验教程分享!

    Borders.LineStyle = x1CoutinuousN7C办公区 - 实用经验教程分享!

    Application.EnableEvents = TrueN7C办公区 - 实用经验教程分享!

    End IfN7C办公区 - 实用经验教程分享!

    End IfN7C办公区 - 实用经验教程分享!

    End WithN7C办公区 - 实用经验教程分享!

    N7C办公区 - 实用经验教程分享!

    End SubN7C办公区 - 实用经验教程分享!

    N7C办公区 - 实用经验教程分享!

    4、输入完成,点击保存并关闭窗口,回到表格页面,在A列进行签到编辑;N7C办公区 - 实用经验教程分享!

    5、员工签到完成之后,就会在B列自动录入签到时间。N7C办公区 - 实用经验教程分享!

  • 注意事项

    • 如果此篇文章对您有帮助,记得点赞投票,谢谢!

    以上方法由办公区教程网编辑摘抄自百度经验可供大家参考!N7C办公区 - 实用经验教程分享!


    标签: excel记录数据编辑

    办公区 Copyright © 2016-2023 www.bgqu.net. Some Rights Reserved. 备案号:湘ICP备2020019561号