怎么根据时间条件更改前面一列的日期？

xlb563

0313.rar (6.61 KB, 下载次数: 4)

2023-10-17 22:40 上传

点击文件名下载附件
想要B列的时间条件来更改A列的日期：当B列的时间小于10：00时，B列该时间改为23：00，对应的A列日期减少一天。
例如：当B1的时间小于“10：00”时，B1的值改为“23：00”（文本格式），A1的日期由“10月20日”改为“10月19日”（日期格式）

林木水123

1. Sub 时间修改()
   
2. Dim arr, h As Integer, i As Integer
   
3. With Sheet1
   
4.     h = .Range("a" & .Rows.Count).End(xlUp).Row
   
5.     arr = .Range("a1:b" & h)
   
6.     For i = 1 To UBound(arr)
   
7.         If VBA.Split(arr(i, 2), ":")(0) < 10 Then
   
8.             arr(i, 2) = "23:00"
   
9.             arr(i, 1) = arr(i, 1) - 1
   
10.         End If
    
11.     Next
    
12.     .Range("A1").Resize(UBound(arr), 2) = arr
    
13. End With
    
14. End Sub

复制代码

林木水123

这个方法很多：
1.上述拆分字符判断
2.用时间去运算一次变成数值，例如6:00-0=0.25，也就是0.25天，那么10:00就是10/24=0.41666666天，可以判断前面B列-0与10/24的关系，若小于，则进行修改，这个方法你自己可以试试~

xlb563

林木水123 发表于 2023-10-21 10:23
这个方法很多：
1.上述拆分字符判断
2.用时间去运算一次变成数值，例如6:00-0=0.25，也就是0.25天，那么1 ...

感谢指导！