一种常用办公软件内置VBA语言,可编程实现具备计时功能的电子表。
1、 首先获取当前系统日期和时间。
2、 在A1单元格输入=NOW()公式,可自动获取系统当前的日期与时间。
3、 选中A1单元格,点击格式-单元格,在数字选项卡中选择自定义,于右侧类型栏输入指定格式即可。
4、 为制作电子表面板,需添加文本框。先点击视图-工具,打开绘图工具栏,选择文本框工具,再用鼠标在界面拖动,绘制出合适尺寸的文本框即可。
5、 将鼠标移至文本框边框处点击,切勿点中心位置,右键选择设置文本框格式,按所示图示进行配置即可。
6、 第五步,添加自动计时功能。
7、 完成制作后,电子表外观已呈现,但时间固定不变。需添加VBA宏代码,实现每秒自动刷新时间功能,使显示动态更新。
8、 按下ALT+F11打开VBA编辑器,插入新模块,将提供的两段代码复制到其中即可。
9、 计时功能开始执行
10、 重新计算工作表中的所有公式和数据。
11、 将当前时间加上一秒的时间间隔,用于设置定时操作。
12、 到达设定时间后,自动执行计时过程。
13、 停止执行程序
14、 在指定时间执行计时过程,不重复调用,取消先前设置的定时任务。
15、 在电子表下方添加两个艺术字按钮,分别标注计时和停止。
16、 右键点击计时按钮,选择宏命令,在弹出的对话框中选定计时宏并确认执行。
评论
更多评论