Select
ActiveCell.FormulaR1C1 = "=NOW()"
Range("B1").Select
ActiveCell.FormulaR1C1 = "=TEXT(NOW(),""hh:mm:ss"")"
End Sub
7. 录制宏完成之后,可以在VBA编辑器中添加注释以便于理解和管理代码。在保存文件之前,务必仔细检查宏代码的正确性和完整性;
8. 保存代码并退出VBA编辑器。录制好的宏现在可以在Excel入库表中使用,仅需按下对应的快捷键或者执行命令即可运行宏。
Select
ActiveCell.FormulaR1C1 = "=NOW()"
Range("B1").Select
ActiveCell.FormulaR1C1 = "=TEXT(NOW(),""hh:mm:ss"")"
End Sub
7. 录制宏完成之后,可以在VBA编辑器中添加注释以便于理解和管理代码。在保存文件之前,务必仔细检查宏代码的正确性和完整性;
8. 保存代码并退出VBA编辑器。录制好的宏现在可以在Excel入库表中使用,仅需按下对应的快捷键或者执行命令即可运行宏。