世界上最重要的是什么?是我们的身体健康。
谁最关心你的身体?当然是你亲妈。
但,亲妈也不能时时刻刻跟着你,这时候你需要有一个这样的Excel表格:
如上图所示。只要你预设置好休息的时间,然后Excel就会自动管理你休息时间:工作时间可以正常使用Excel,但休息时间你是无法操作表格的。
为了能让同学们管理好自已的工作时间,兰色用VBA编写了一小段代码,只需几步复制粘贴,你也可以为自已的Excel表格添加一个健康小管家了。
添加步骤:
1、设置休息时间
在下面代码中,array后的括号内添加时间,红色为开始休息时间,蓝色为休息结束时间,中间用逗号隔开。设置的数量不限。
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Dim arr, T
arr = Array('7:00', '7:15', '8:00', '8:25', '9:00', '9:10')
T = Format(Time, 'h:mm')
For x = 0 To UBound(arr) Step 2
If T > arr(x) And T < arr(x + 1) Then
MsgBox '宝贝儿,该休息时间了!' & arr(x + 1) & '再回来工作!', , '你的健康管家'
End If
Next x
End Sub
2、添加代码
复制已设置休息时间的代码,工作表标签右键菜单 - 查看代码,双击新弹出窗口中的Thisworkbook,把代码粘贴在右侧的代码框中。然后关闭弹出的VBA窗口。
3、另存文件
按F12弹出另存为窗口,把文件类型修改为启用宏的文件类型。
注:如果你想修改或停止休息提示,同上操作修改时间或删除代码即可。
兰色说:今天用的是VBA的事件程序,它可以根据你的操作对Excel表格进行自动监测。很多同学问VBA难学吗?需要什么基础。兰色这里一并回答:不需要基础,认真学一个月即可入门。
联系客服