excel快速输入时间.doc

《excel快速输入时间.doc》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、Excel表的输入涉及到很多时间时，总是换过来输冒号很麻烦，还容易中英文标点出错。能不能在Excel表中固定一个冒号，这样在输入时间时会比较方便。例如，输入12：00时，可以直接输入1200而不必再去输入那个冒号了？解决方法：【方法一】（不具排错能力，简单方便）选择那一列，单元格自定义格式里使用##":"##，然后输入1245，就显示12:45【方法二】（有排错能力）使用#00":"0#，然后选择数据有效性,条件选择整数,介于0-2359之间【方法三】（有排错能力）一、启动Excel，打开您需要大量输入时间值的

2、那个工作簿，然后按Alt-F11，启动VBA编辑器。二、选择菜单中“插入”──“添加模块”命令。这时，在屏幕左上方“工程”窗口中，会出现一个“模块”的子目录，在它的右侧，显示着刚刚添加进来的模块“Module1”，您可以将它改名为您所喜欢的名字如“fasttime”。【请注意！！】下面的代码，出现“fasttime”的地方，应该改为你自己模块的名称！三、双击模块“fasttime”（如果修改过模块名称的话），在右侧的代码编辑器中输入以下代码OptionExplicitSubAuto_Open()Applicat

3、ion.OnEntry="Fast"'每当工作表内容发生变化时就运行指定过程EndSubSubFast()OnErrorGoToEnterError'如果有错误就跳往EnterTimeError语句IfIntersect(Application.Caller,Range("fasttime"))IsNothingThenExitSub'如果是非"fasttime"区域的单元格被改变，则结束过程EndIf'如果输入值小于1或者大于2400，则显示对话框用户输入值非法IfApplication.Caller<1Or

4、Application.Caller>2400ThenMsgBox"对不起，您的输入值非法！",vbExclamationApplication.Caller.Value=""ExitSubEndIf'将输入值改成HH:MM格式Application.Caller.Value=Format(Application.Caller,"00:00")ExitSubEnterError:ExitSubEndSub四、把您将要大量输入时间值的单元格区域命名为“fasttime”。