Tìm thời gian nằm trong khoảng

Liên hệ QC
Tôi tuân thủ nội quy khi đăng bài

Quỳnh Ngọc 64

Thành viên mới
Tham gia
10/8/23
Bài viết
5
Được thích
0
Mn ơi, mình đang muốn xác nhận thời gian đặt hàng có nằm trong khoảng thời gian đã xác định hay k mà chưa tìm dc cách. Nhờ hỗ trợ vs nha.

Ví dụ
Đây là vùng dữ liệu thời gian live:

Thời gian bắt đầu liveThời lượng live
2023/07/31/ 10:572h 15min
2023/07/30/ 19:051h 35min
2023/07/30/ 15:002h 15min

Đây là vùng dữ liệu thời gian đặt hàng:
TG đặt hàng
12/07/2023 19:55:44
11/07/2023 23:14:25
13/07/2023 16:33:12
 

File đính kèm

  • Book2.xlsx
    46.9 KB · Đọc: 2
Mn ơi, mình đang muốn xác nhận thời gian đặt hàng có nằm trong khoảng thời gian đã xác định hay k mà chưa tìm dc cách. Nhờ hỗ trợ vs nha.

Đổi 2h 15min thành 2:15, ...

Thử công thức:

=IF(SUMPRODUCT(($A$2:$A$5<=A7)*($A$2:$A$5+$B$2:$B$5>=A7))>0,"Trong","Ngoài")

.
 
Hiệu quả phụ thuộc vào mặt hàng và diễn viên livechim nhé, có những mặt hàng mà khách hàng mặt "đờ ra xem" mà quên đặt hàng...
 
Đổi 2h 15min thành 2:15, ...

Thử công thức:

=IF(SUMPRODUCT(($A$2:$A$5<=A7)*($A$2:$A$5+$B$2:$B$5>=A7))>0,"Trong","Ngoài")

.
Biết dữ liệu kiểu gì không mà cả gan đưa công thức. :D
Nhìn dữ liệu là thấy không ổn rồi. :p

Thời gian bắt đầu live
2023/07/31/ 10:57
2023/07/30/ 19:05
2023/07/30/ 15:00
 
Xài đỡ cái UDF này. Kết quả trả về TG bắt đầu tương ứng nếu tìm thấy, còn không thì trả về chuỗi Text

Click chuột phải vào tên sheet, chọn ViewCode, insert module rồi paste cái code này vô. Lưu file dạng .xlsm

Capture.JPG
PHP:
Option Explicit
Function kiemtra(TG As Range)
Dim lr&, i&, rng, start As Double, dur As Double
With Sheets("timeline")
    lr = .Cells(Rows.Count, "A").End(xlUp).Row
    rng = .Range("A2:B" & lr).Value
End With
For i = 1 To UBound(rng)
    start = CDate(Left(rng(i, 1), 10)) + CDate(Right(rng(i, 1), 5))
    dur = TimeValue(Replace(Replace(Replace(rng(i, 2), " ", ""), "h", ":"), "min", ""))
    If CDate(TG) - start > 0 And CDate(TG) - start <= dur Then
        kiemtra = start
        Exit Function
    End If
Next
kiemtra = "Nam ngoai moc thoi gian"
End Function
 

File đính kèm

  • Book2.xlsm
    65.8 KB · Đọc: 12
Xài đỡ cái UDF này. Kết quả trả về TG bắt đầu tương ứng nếu tìm thấy, còn không thì trả về chuỗi Text

Click chuột phải vào tên sheet, chọn ViewCode, insert module rồi paste cái code này vô. Lưu file dạng .xlsm

View attachment 293683
PHP:
Option Explicit
Function kiemtra(TG As Range)
Dim lr&, i&, rng, start As Double, dur As Double
With Sheets("timeline")
    lr = .Cells(Rows.Count, "A").End(xlUp).Row
    rng = .Range("A2:B" & lr).Value
End With
For i = 1 To UBound(rng)
    start = CDate(Left(rng(i, 1), 10)) + CDate(Right(rng(i, 1), 5))
    dur = TimeValue(Replace(Replace(Replace(rng(i, 2), " ", ""), "h", ":"), "min", ""))
    If CDate(TG) - start > 0 And CDate(TG) - start <= dur Then
        kiemtra = start
        Exit Function
    End If
Next
kiemtra = "Nam ngoai moc thoi gian"
End Function
hay w bác ơi :D
Em cám ơn bác nhiều nhiều ạ ...
 
Web KT
Back
Top Bottom