[已解决]高手出招！在单元格中输入一个或多个数字转化为日期

Robbie777

例如在单元格中i3中输入28，回车后要求显示为2012-12-29 12：00    （以当天为28日为例）date=date()+8/24+28/24这是输入一个数字的例子。

如在单元格i4中输入28；38，回车后要求显示2012-12-29 12：00                 date1=date()+8/24+28/24
                                                                      2012-12-30 22：00                 date2=date()+8/24+38/24
最后不管单元格中有多少个时间，只要有在48小时内的（以当天早上8点计）都着色。我的附件不能实现两个时间的功能。

     生产中输入数字是原料完全耗尽的小时数，想借助vba实现快速转化为预计续料的日期。并通过单元格着色来提醒，未来48小时内要换料的机台。大多数机台只需要两种机台，本人的代码已可以实现功能。

           有少数机台有两种以上的原料，所以要求助各位大侠帮忙，如何输入一个分号隔开的数字来实现两个日期的转化！！！

最佳答案

月排行榜 / 总排行榜

suye1010

2012-11-28 19:27

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. Dim Arr, i
   
3. On Error Resume Next
   
4. Application.EnableEvents = False
   
5. Arr = Split(Target.Value, ";")
   
6. For i = 0 To UBound(Arr)
   
7.     Arr(i) = Date + (8 + Arr(i)) / 24
   
8. Next
   
9. Target = Join(Arr, Chr(10)) '加入换行符来显示时间
   
10. Application.EnableEvents = True
    
11. End Sub

复制代码

跳转到最佳答案楼层

chaojiajin

我看到题目时信心满满的来了，结果原来是路过

Robbie777

上个附件，附件不好好啊

suye1010

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. Dim Arr, i
   
3. On Error Resume Next
   
4. Application.EnableEvents = False
   
5. Arr = Split(Target.Value, ";")
   
6. For i = 0 To UBound(Arr)
   
7.     Arr(i) = Date + (8 + Arr(i)) / 24
   
8. Next
   
9. Target = Join(Arr, Chr(10)) '加入换行符来显示时间
   
10. Application.EnableEvents = True
    
11. End Sub

复制代码

Robbie777

suye1010 发表于 2012-11-28 19:27

完全正确！但是jion处有些不理解；另只输入一个时间的情况可以写在一起吗？

水上漂123

来学习一下            

Robbie777

suye1010 发表于 2012-11-28 19:27

输入一个数字时，转化成的时间不对，是

1900-2-29 0:00

  不知是什么原因？
哦，输入一个数字也加一个分号的话是对的；输入1个数字可以不加这个分号吗？
测试时输入一个数字时不加分号时有时可以有时不正确，为什么呢？

Robbie777

Robbie777 发表于 2012-11-29 08:22
输入一个数字时，转化成的时间不对，是   不知是什么原因？
哦，输入一个数字也加一个分号的话是对的； ...

                加个if判断似乎要稳定些

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. Dim Arr, i
   
3. On Error Resume Next
   
4. Application.EnableEvents = False
   
5. If InStr(Target.Value, ";") > 0 Then
   
6. Arr = Split(Target.Value, ";")
   
7. For i = 0 To UBound(Arr)
   
8. Arr(i) = Date + (8 + Arr(i)) / 24
   
9. Next
   
10. Target = Join(Arr, Chr(10)) '加入换行符来显示时间
    
11. Else
    
12. Target.Value = Date + (8 + Target.Value) / 24
    
13. End If
    
14. Application.EnableEvents = True
    
15. End Sub

复制代码

hechzjm

值得来学习一下

猛哥

有一招，学一手