Mã nguồn PHP:
Option ExplicitFunction TìmGT(Num As Long, GHT As Range) Dim WF As Object, sRng As Range Dim jJ As Long, Max_ As Long Set WF = Application.WorksheetFunction Max_ = WF.Max(GHT) If Max_ <= Num Then TìmGT = "Nothing": Exit Function Else For jJ = Num To Max_ Set sRng = GHT.Cells(1, 1).Resize(GHT.Rows.Count).Find(jJ, , xlFormulas, xlWhole) If Not sRng Is Nothing Then If sRng.Offset(, 1) < Num Then TìmGT = sRng.Offset(, -1).Value Exit For End If End If Next jJ End IfEnd Function
View more random threads:
- Trả kết quả với định dạng giống hệt gốc !
- Dò tìm theo nhiều điều kiện, sắp xếp các giá trị tìm được trong một cell
- Tham chiếu dữ liệu tự động có điều kiện để lọc danh sách
- [hỏi] vlookup sheet khác bị n/a
- Thay đổi dữ liệu sau khi chọn Validation
- Nhờ chỉ giúp truy xuất dữ liệu có nhiều điều kiện.
- [Cần giúp] Lỗi định dạng trong tham chiếu với vlookup
- Xin giúp đỡ: tìm kiếm trên nhiều file Excel
- dùng hàm vlookup và IF
- Giúp em tìm và xóa dữ liệu bị trùng lập!