haivp_bidv
Thành viên mới 

			
		- Tham gia
 - 11/1/08
 
- Bài viết
 - 1
 
- Được thích
 - 0
 

Function LKe(Rng As Range, Tuoi As Integer) As String
 Dim Cls As Range
 
 For Each Cls In Rng(1).Resize(Rng.Rows.Count)
    If Cls.Offset(, 1).Value = Tuoi Then
        LKe = LKe & "; " & Cls.Value
    End If
 Next Cls
 If Len(LKe) > 2 Then
     LKe = Mid(LKe, 3, Len(LKe))
 Else
    LKe = "Nothing" & Str(Tuoi)
 End If
End Function