快速输入时间

dongjianjun

计时器.rar (9.37 KB, 下载次数: 36)

2013-7-4 23:48 上传

点击文件名下载附件

前几天做了一个快速输入时间的excel表格，默认输入四位数自动转换为时间，比如输入“1234”则自动转换为“12:34”。但是水平有限，有些特殊的时间无法用这种方法输入，比如“300”、“1500”、“824”等等，哪位大侠帮忙解决一下，小弟多谢了。

wshcw

单元格格式:
00\:00

zyhui1961

wshcw 发表于 2013-7-5 00:52
单元格格式:
00\:00

好!!!!!!!!!!!!!!!

jsxjd

你在赋值的时间又进行了一次处理！这里需要循环吗？

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. With Target
   
3.     If .Column <> 2 And .Column <> 3 Then Exit Sub
   
4.     s = Trim(.Value)
   
5.     If Len(s) = 3 Then s = "0" & s
   
6.     If Len(s) <> 4 Then Exit Sub
   
7.     If Right(s, 2) >= 60 Then Exit Sub
   
8.    
   
9.     Application.EnableEvents = False
   
10.         .Value = Left(s, 2) & ":" & Right(s, 2)
    
11.     Application.EnableEvents = True
    
12. End With
    
13. End Sub
    

复制代码

jsxjd

wshcw 发表于 2013-7-5 00:52
单元格格式:
00\:00

学了一招：以假乱真

dongjianjun

wshcw 发表于 2013-7-5 00:52
单元格格式:
00\:00

这种格式不能用于计算的，填入时间后还要将时间加减运算，所以这个不行的，还有##!:##、00!:00我都试过了，不行的

dongjianjun

jsxjd 发表于 2013-7-5 08:23
你在赋值的时间又进行了一次处理！这里需要循环吗？

真厉害！您这么一说我明白了，我说怎么不对劲呢。高人呀，十分感谢！！

dongjianjun

jsxjd 发表于 2013-7-5 08:23
你在赋值的时间又进行了一次处理！这里需要循环吗？

这个函数在单个单元格中使用时非常好，我用的循环式为了可以多选操作，比如要清空的时候全选按delete。你的这段代码只能单独使用，多选之后会出错的。我对原来的代码做了修改，请您指正
Private Sub Worksheet_Change(ByVal Target As Range)
With Target

If .Column <> 2 And .Column <> 3 Then Exit Sub

For b = .Row To .Row + .Rows.Count - 1
    If Len(Cells(b, .Column)) = 4 Or Len(Cells(b, .Column)) = 3 Then
   
Application.EnableEvents = False
        If Right(Cells(b, .Column), 2) < 60 Then
        Cells(b, .Column) = Left(Cells(b, .Column), Len(Cells(b, .Column)) - 2) & ":" & Right(Cells(b, .Column), 2)
    End If
Application.EnableEvents = True

Else
End If

Next
End With
End Sub

jsxjd

加上这一句：
   If .Rows.Count > 1 Or .Columns.Count > 1 Then Exit Sub

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. With Target
   
3.     If .Rows.Count > 1 Or .Columns.Count > 1 Then Exit Sub
   
4.     If .Column <> 2 And .Column <> 3 Then Exit Sub
   
5.     s = Trim(.Value)
   
6.     If Len(s) < 3 Then Exit Sub
   
7.     If Len(s) > 4 Then Exit Sub
   
8.     If Right(s, 2) >= 60 Then Exit Sub
   
9.    
   
10.     If Len(s) = 3 Then s = "0" & s
    
11.     Application.EnableEvents = False
    
12.         .Value = Left(s, 2) & ":" & Right(s, 2)
    
13.     Application.EnableEvents = True
    
14. End With
    
15. End Sub
    

复制代码