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:
- File theo dõi tình hình nghỉ của CBNV
- Giứp đỡ điền giá trị vào ô khi có nhiều điều kiện và điều kiện thay đổi
- Giúp mình về dò tìm và tham chiếu mỗi Sheet
- Cập nhật dữ liệu từ File khác khi File khác bị insert hoặc delete dòng.
- Giúp em tìm kiếm những giữ liệu trùng nhau trong một file excel
- Nhâop liệu nhanh trong excel
- Trả về giá trị tìm kiếm theo nhiều cột
- Dùng hàm VLOOKUP bị lỗi khi trùng RANK
- Lấy toàn bộ nội dung từ sheet khác thông qua list box.?
- cần giúp về lọc và lấy dữ liệu từ sheet này qua sheet khác