ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
300集Office 2010微视频教程 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
查看: 9089|回复: 12

[2007] 怎样在2007中快速输入时间?

[复制链接]

TA的精华主题

TA的得分主题

发表于 2010-5-12 11:00 | 显示全部楼层 |阅读模式
请各位帮忙,怎样在2007中快速输入时间?
例如输入“0925”则显示 09:25
论坛里有关于2003快速输入的问题,可在2007中套不上。
等待中.....

TA的精华主题

TA的得分主题

发表于 2010-5-12 11:09 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
应该都可以使,上传2003的代码

TA的精华主题

TA的得分主题

发表于 2010-5-12 11:16 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
插入静态的日期或时间
1.在工作表中,选择要在其中插入当前日期或时间的单元格。
2.请执行下列操作之一:
若要插入当前日期,请按 Ctrl+;(分号)。
若要插入当前时间,请按 Ctrl+Shift+;(分号)。
若要插入当前日期和时间,请按 Ctrl+;(分号),然后按空格键,接着按 Ctrl+Shift+;(分号)。
插入会更新值的日期或时间
若要执行此任务,请按照以下示例所示使用 TODAY 和 NOW 函数。
=TODAY() 当前日期(可变)
=NOW() 当前日期和时间(可变)

注释   TODAY 和 NOW 函数的结果仅在计算工作表或运行包含这些函数的宏时才更改。含有这些函数的单元格不会持续更新。所使用的日期和时间取自计算机的系统时钟。

TA的精华主题

TA的得分主题

 楼主| 发表于 2010-5-12 11:22 | 显示全部楼层

回复 2楼 cflood 的帖子

------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------一、 启动Excel,打开您需要大量输入时间值的那个工作簿,然后按Alt-F11,启动VBA编辑器。
二、 选择菜单中“插入”——“添加模块”命令。这时,在屏幕左上方“工程”窗口中,会出现一个“模块”的子目录,在它的右侧,显示着刚刚添加进来的模块“Module1”,您可以将它改名为您所喜欢的名字如“fasttime”。
三、 双击模块“fasttime”(如果您修改过模块名称的话),在右侧的代码编辑器中输入以下代码(或者从我的示例工作簿中复制)。
Option Explicit
Sub Auto_Open()
Application.OnEntry = "Fast" '每当工作表内容发生变化时就运行指定过程
End Sub
Sub Fast()
On Error GoTo EnterError '如果有错误就跳往EnterTimeError语句
If Intersect(Application.Caller, Range("fasttime")) Is Nothing Then
Exit Sub '如果是非"fasttime"区域的单元格被改变,则结束过程
End If
'如果输入值小于1或者大于2400,则显示对话框用户输入值非法
If Application.Caller < 1 Or Application.Caller > 2400 Then
MsgBox "对不起,您的输入值非法!", vbExclamation
Application.Caller.Value = ""
Exit Sub
End If
'\ 将输入值改成 HH:MM格式
Application.Caller.Value = Format(Application.Caller, "00:00")
Exit Sub
EnterError:
Exit Sub
End Sub
四、把您将要大量输入时间值的单元格区域命名为“fasttime”。命名方法为,先将需要命名的单元格区域抹黑,然后选择Excel的菜单命令“插入”——“命名”——“定义”,在“在当前工作簿中的名称”栏中输入“fasttime”,最后按确定即可。
好了,完工!现在往“fasttime”区域里输入时间值试试看,是不是不用冒号了!?这里需要注意的是,输入值必须介于1到2400之间,否则将被视作非法值。举个例子来说,如果您需要输入上午九点二十分这样一个时间值,您就只需要输入0920这样一个数字就行了,Excel将在单元格中显示为“09:20 AM”;如果您需要输入晚上一十一点一十五分这样一个时间值,您就只需要输入2315这样一个数字就行了,Excel将在单元格中显示为“11:15 PM”。是不是很方便?

就是这段代码,可我在2007中找不到“插入”——“命名”——“定义”

TA的精华主题

TA的得分主题

 楼主| 发表于 2010-5-12 11:23 | 显示全部楼层

回复 3楼 youliqi 的帖子

依然谢谢您的帮助

TA的精华主题

TA的得分主题

发表于 2010-5-12 12:24 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
把您将要大量输入时间值的单元格区域命名为“fasttime”。命名方法为,先将需要命名的单元格区域抹黑,然后选择Excel的菜单命令“插入”——“命名”——“定义”,在“在当前工作簿中的名称”栏中输入“fasttime”,最后按确定即可。

干脆在名称框输入 fasttime”也可以啦.(先将命名的单元格区域抹黑)

[ 本帖最后由 hanter007 于 2010-5-12 12:25 编辑 ]

TA的精华主题

TA的得分主题

发表于 2010-5-12 12:46 | 显示全部楼层
原帖由 youliqi 于 2010-5-12 11:16 发表
插入静态的日期或时间
1.在工作表中,选择要在其中插入当前日期或时间的单元格。
2.请执行下列操作之一:
若要插入当前日期,请按 Ctrl+;(分号)。
若要插入当前时间,请按 Ctrl+Shift+;(分号)。
若要插入当 ...


这个就很好。

TA的精华主题

TA的得分主题

 楼主| 发表于 2010-5-12 13:02 | 显示全部楼层

回复 6楼 hanter007 的帖子

谢谢,问题已解决。

[ 本帖最后由 HAOLE1633 于 2010-5-12 13:05 编辑 ]

TA的精华主题

TA的得分主题

 楼主| 发表于 2010-5-12 13:03 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助

回复 7楼 abdias520 的帖子

谢谢,不是我要的。

TA的精华主题

TA的得分主题

发表于 2010-5-12 13:10 | 显示全部楼层
右击单元格格式,设置一种格式应该可以实现的
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-3-28 20:29 , Processed in 0.058212 second(s), 9 queries , Gzip On, Redis On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

快速回复 返回顶部 返回列表