Giúp code hàm Function Tính dòng cuối theo mã hàng

Chia sẻ bởi:hands

★★★★★

‹ điền dữ liệu cột hệ số dựa... Giúp viết code nối cột A và... ›

Quảng cáo

Chào tất cả GPE !. Mình cần 1 đoạn code hàm Function để tính vị trí dòng nằm cuối cùng nếu trùng tên theo mã hàng ( không phân biệt chữ thường chử HOA )
Ví dụ: mã cần tìm là "A" thì tìm kiếm dòng nào cuối cùng có "A" hoặc "A-*" trong đó * là số thứ tự ( VD: A-1, A-2, A-3 )
Nếu không có "A" hoặc "A-*" thì kết quả = 0 . Xin chân thành cảm ơn GPE

135

Sub TimTriCuoiCuaMaHH()
Dim Rng As Range, sRng As Range
Dim MyAdd As String

Set Rng = .CurrentRegion
Set sRng = Rng.Find(.Value, , xlFormulas, xlPart, , xlPrevious)
If Not sRng Is Nothing Then
MsgBox sRng.Address, , "Part"
End If
Set sRng = Rng.Find(.Value, , xlFormulas, xlWhole, , xlPrevious)
If Not sRng Is Nothing Then
MsgBox sRng.Address, , "Whole"
End If
End Sub

www.giaiphapexcel.com/diendan/threads/gi%C3%BAp-code-h%C3%A0m-function-t%C3%ADnh-d%C3%B2ng-cu%E1%BB%91i-theo-m%C3%A3-h%C3%A0ng.163233/

Hơi tự mãn quá. Hàm của tôi ngắn hơn khoảng trên dưới 20 ký tự.

Function TK(FValue As String, Rng As Range) As Long
 Dim sRng As Range

Set sRng = Rng.Find(FValue, , xlFormulas, xlPart, , xlPrevious)
 If Not sRng Is Nothing Then
    TK = sRng.Row
 Else
    TK = "Không Có!"
 End If
End Function

$$$$@ $$$$@ $$$$@ $$$$@