excel快速输入时间值法

Excel 快速输入时间值法大家都知道，在 Excel 中输入时间是需要带上冒号的，如果有大量的时间值等待输入的话，这个冒号可得耽误不少功夫，而且又容易输入错误。有什么好办法可以解决这个难题呢？当然是用嵌套在 Excel 里的利器 VBA 了！以下就是所有源代码，只要您按照我的说法一步一步做下去，即使对这些代码一点也不懂，也能依葫芦画瓢，迅速实现在 Excel 中不必输入冒号就能输入时间值的效果！一、 启动 Excel，打开您需要大量输入时间值的那个工作簿，然后按 Alt-F11，启动 VBA 编辑器。二、 选择菜单中“插入”“添加模块”命令。这时，在屏幕左上方“工程”窗口中，会出现一个“模块”的子目录，在它的右侧，显示着刚刚添加进来的模块“Module1” ，您可以将它改名为您所喜欢的名字如“fasttime” 。三、 双击模块“fasttime” （如果您修改过模块名称的话） ，在右侧的代码编辑器中输入以下代码（或者从我的示例工作簿中复制） 。Option ExplicitSub Auto_Open()Application.OnEntry = Fast 每当工作表内容发生变化时就运行指定过程End SubSub Fast()On Error GoTo EnterError 如果有错误就跳往 EnterTimeError 语句If Intersect(Application.Caller, Range(fasttime) Is Nothing ThenExit Sub 如果是非fasttime区域的单元格被改变，则结束过程End If如果输入值小于 1 或者大于 2400，则显示对话框用户输入值非法If Application.Caller 1 Or Application.Caller 2400 ThenMsgBox 对不起，您的输入值非法！, vbExclamationApplication.Caller.Value = Exit SubEnd If 将输入值改成 HH:MM 格式Application.Caller.Value = Format(Application.Caller, 00:00)Exit SubEnterError:Exit SubEnd Sub四、把您将要大量输入时间值的单元格区域命名为“fasttime” 。命名方法为，先将需要命名的单元格区域抹黑，然后选择 Excel 的菜单命令“插入”“命名”“定义” ，在“在当前工作簿中的名称”栏中输入“fasttime” ，最后按确定即可。好了，完工！现在往“fasttime”区域里输入时间值试试看，是不是不用冒号了！？这里需要注意的是，输入值必须介于 1 到 2400 之间，否则将被视作非法值。举个例子来说，如果您需要输入上午九点二十分这样一个时间值，您就只需要输入0920 这样一个数字就行了，Excel 将在单元格中显示为“09:20 AM”；如果您需要输入晚上一十一点一十五分这样一个时间值，您就只需要输入 2315这样一个数字就行了，Excel 将在单元格中显示为“11:15 PM”。是不是很方便？如果您对 Excel 的时间显示方式不满意的话，您还可以在“单元格格式”里进行修改，Excel 内置了 10 种时间显示方式，调一款您喜欢的吧！大家都知道，在 Excel 中输入时间是需要带上冒号的，如果有大量的时间值等待输入的话，这个冒号可得耽误不少功夫，而且又容易输入错误。有什么好办法可以解决这个难题呢？当然是用嵌套在 Excel 里的利器 VBA 了！以下就是所有源代码，只要您按照我的说法一步一步做下去，即使对这些代码一点也不懂，也能依葫芦画瓢，迅速实现在 Excel 中不必输入冒号就能输入时间值的效果！一、 启动 Excel，打开您需要大量输入时间值的那个工作簿，然后按 Alt-F11，启动 VBA 编辑器。二、 选择菜单中“插入”“添加模块”命令。这时，在屏幕左上方“工程”窗口中，会出现一个“模块”的子目录，在它的右侧，显示着刚刚添加进来的模块“Module1” ，您可以将它改名为您所喜欢的名字如“fasttime” 。三、 双击模块“fasttime” （如果您修改过模块名称的话） ，在右侧的代码编辑器中输入以下代码（或者从我的示例工作簿中复制） 。Option ExplicitSub Auto_Open()Application.OnEntry = Fast 每当工作表内容发生变化时就运行指定过程End SubSub Fast()On Error GoTo EnterError 如果有错误就跳往 EnterTimeError 语句If Intersect(Application.Caller, Range(fasttime) Is Nothing ThenExit Sub 如果是非fasttime区域的单元格被改变，则结束过程End If如果输入值小于 1 或者大于 2400，则显示对话框用户输入值非法If Application.Caller 1 Or Application.Caller 2400 ThenMsgBox 对不起，您的输入值非法！, vbExclamationApplication.Caller.Value = Exit SubEnd If 将输入值改成 HH:MM 格式Application.Caller.Value = Format(Application.Caller, 00:00)Exit SubEnterError:Exit SubEnd Sub四、把您将要大量输入时间值的单元格区域命名为“fasttime” 。命名方法为，先将需要命名的单元格区域抹黑，然后选择 Excel 的菜单命令“插入”“命名”“定义” ，在“在当前工作簿中的名称”栏中输入“fasttime” ，最后按确定即可。好了，完工！现在往“fasttime”区域里输入时间值试试看，是不是不用冒号了！？这里需要注意的是，输入值必须介于 1 到 2400 之间，否则将被视作非法值。举个例子来说，如果您需要输入上午九点二十分这样一个时间值，您就只需要输入0920 这样一个数字就行了，Excel 将在单元格中显示为“09:20 AM”；如果您需要输入晚上一十一点一十五分这样一个时间值，您就只需要输入 2315这样一个数字就行了，Excel 将在单元格中显示为“11:15 PM”。是不是很方便？如果您对 Excel 的时间显示方式不满意的话，您还可以在“单元格格式”里进行修改，Excel 内置了 10 种时间显示方式，调一款您喜欢的吧！大家都知道，在 Excel 中输入时间是需要带上冒号的，如果有大量的时间值等待输入的话，这个冒号可得耽误不少功夫，而且又容易输入错误。有什么好办法可以解决这个难题呢？当然是用嵌套在 Excel 里的利器 VBA 了！以下就是所有源代码，只要您按照我的说法一步一步做下去，即使对这些代码一点也不懂，也能依葫芦画瓢，迅速实现在 Excel 中不必输入冒号就能输入时间值的效果！一、 启动 Excel，打开您需要大量输入时间值的那个工作簿，然后按 Alt-F11，启动 VBA 编辑器。二、 选择菜单中“插入”“添加模块”命令。这时，在屏幕左上方“工程”窗口中，会出现一个“模块”的子目录，在它的右侧，显示着刚刚添加进来的模块“Module1” ，您可以将它改名为您所喜欢的名字如“fasttime” 。三、 双击模块“fasttime” （如果您修改过模块名称的话） ，在右侧的代码编辑器中输入以下代码（或者从我的示例工作簿中复制） 。Option ExplicitSub Auto_Open()Application.OnEntry = Fast 每当工作表内容发生变化时就运行指定过程End SubSub Fast()On Error GoTo EnterError 如果有错误就跳往 EnterTimeError 语句If Intersect(Application.Caller, Range(fasttime) Is Nothing ThenExit Sub 如果是非fasttime区域的单元格被改变，则结束过程End If如果输入值小于 1 或者大于 2400，则显示对话框用户输入值非法If Application.Caller 1 Or Application.Caller 2400 ThenMsgBox 对不起，您的输入值非法！, vbExclamationApplication.Caller.Value = Exit SubEnd If 将输入值改成 HH:MM 格式Application.Caller.Value = Format(Application.Caller, 00:00)Exit SubEnterError:Exit SubEnd Sub四、把您将要大量输入时间值的单元格区域命名为“fasttime” 。命名方法为，先将需要命名的单元格区域抹黑，然后选择 Excel 的菜单命令“插入”“命名”“定义” ，在“在当前工作簿中的名称”栏中输入“fasttime” ，最后按确定即可。好了，完工！现在往“fasttime”区域里输入时间值试试看，是不是不用冒号了！？这里需要注意的是，输入值必须介于 1 到 2400 之间，否则将被视作非法值。举个例子来说，如果您需要输入上午九点二十分这样