没有高手能知道吗 ？ 快捷键输入时间符号，冒号~~~~

BEYBEY

谢谢你这种的直观的想法。感觉应该可以的。但是我想了一下，是不可行的。那样的话时间看上去不直观，已经改变了它格式了。不行。  还有没有其他的了  ，我也试过好几种了 但都是失败的！！！    寻求帮助！！ 谢谢~~~~~

tanand123

用VBA 建一个

BEYBEY

呵呵，， 我是 新新手，VBA听说过，但是不了解，请老师指导 ？~~~
诚谢~~~

ch16

设置单元格格式为自定义，
自定义类型写：  ##!:##
输入8:30 的话只要输  830就可以了
缺点是这个并不是真正意义上的时间，不能直接用于运算，要用于时间运算的话还要用如下公式转换一下

假定单元格A1中输入 1030，显示为 10:30
=(INT(A1/100)+MOD(A1,100)/60)/24   这个公式将1030转换成真正的 10:30分，可用于时间运算

BEYBEY

着急啊 ！ 还未解决！~~~     诚谢帮助~~~~

BEYBEY

你说的第一种我试了，不好使啊 ？？ 第二种说的在A1种输入1030，那么公式写在什么地方？？

DRR0521313

相比之下，还是SHIFT+:比较快啊

ch16

原帖由 DRR0521313 于 2009-4-19 16:36 发表
相比之下，还是SHIFT+:比较快啊

正解，哈哈

zhujin88

一、 启动Excel，打开您需要大量输入时间值的那个工作簿，然后按Alt-F11，启动VBA编辑器。
二、 选择菜单中“插入”──“添加模块”命令。这时，在屏幕左上方“工程”窗口中，会出现一个“模块”的子目录，在它的右侧，显示着刚刚添加进来的模块“Module1”，您可以按F4将它改名为您所喜欢的名字如“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”。是不是很方便？
如果您对Excel的时间显示方式不满意的话，您还可以在“单元格格式”里进行修改，Excel内置了10种时间显示方式，调一款您喜欢的吧！