Tìm giá trị thõa điều kiện theo ngày gần nhất (1 người xem)

[ngocrin1]

Chào các bạn!
Mình đang cần viết một hàm tìm giá trị thõa điều kiện nếu ngày hôm nay là ngày mà trong bảng biểu có số liệu thì sẽ lấy giá trị đó, nhưng nếu ngày hôm nay là ngày ko có số liệu thì nó sẽ lấy giá trị của ngày gần nhất có giá trị. Cảm ơn các bạn.
Chi tiết ví dụ và câu hỏi trong file đính kèm.

 

[khuongvietphong]

Chào các bạn!
Mình đang cần viết một hàm tìm giá trị thõa điều kiện nếu ngày hôm nay là ngày mà trong bảng biểu có số liệu thì sẽ lấy giá trị đó, nhưng nếu ngày hôm nay là ngày ko có số liệu thì nó sẽ lấy giá trị của ngày gần nhất có giá trị. Cảm ơn các bạn.
Chi tiết ví dụ và câu hỏi trong file đính kèm.

Bạn đánh công thức này vào ô H6 nè : =IF(G6=0,H5,G6)

 

[ChanhTQ@]

Thêm 1 tham khảo về hàm tự tạo cho bạn & chúc vui khỏe dịp cuối tuần!

 

[ngocrin1]

Cảm ơn 2 bạn, 1 dùng cột phụ, 1 dùng hàm.

 

[adult]

Thêm 1 tham khảo về hàm tự tạo cho bạn & chúc vui khỏe dịp cuối tuần!

Bác ơi, trong trường hợp dữ liệu cần trả về ko phải kiểu số thì hàm này báo #Value, bác có thể sửa cho nó linh hoạt được không?

 

[SA_DQ]

Bạn thữ với cái ni xem đúng ý bạn hết chửa:

Option Explicit
Function SLGN(Rng As Range, Dat As Date) As Variant
 Dim Arr()
 Dim J As Long, Rws As Long
 
 Arr = Rng.Value
GPE:
 For J = 1 To UBound(Arr())
    If Arr(J, 1) = Dat And Arr(J, 2) > 0 Then
        SLGN = Arr(J, 2):       Exit For
    End If
 Next J
 If SLGN = 0 Then
    Dat = Dat - 1
    GoTo GPE
 End If
End Function

 

[adult]

Bạn thữ với cái ni xem đúng ý bạn hết chửa:

Option Explicit
Function SLGN(Rng As Range, Dat As Date) As Variant
Dim Arr()
Dim J As Long, Rws As Long

Arr = Rng.Value
GPE:
For J = 1 To UBound(Arr())
    If Arr(J, 1) = Dat And Arr(J, 2) > 0 Then
        SLGN = Arr(J, 2):       Exit For
    End If
Next J
If SLGN = 0 Then
    Dat = Dat - 1
    GoTo GPE
End If
End Function

à, quả thật nó nằm ở việc khai báo, ban đầu em sửa Function SLGN (...) as double thành string nhưng không được, thì ra phải khai là Variant. Cảm ơn bác.