Thử với hàm "xi-ma-chao" này xemCó File đính kèm các Bác xem giúp đở.
Cảm ơn nhiều
Public Function Timso(Dk, Vung)
Dim I As Long, Kq
For I = 1 To Vung.Columns.Count
If Vung(I) = Dk Then Kq = Kq & "," & I
Next
Timso = Right(Kq, Len(Kq) - 1)
End Function
Tạm thời sử thế này cũng đượcCảm ơn Bác ConCoGia nhiều ! Bác cho tôi hỏi khi thay hàng số bằng hàng chữ thì cũng giống như điều kiện ban đầu thì Fuction Timso sẽ sửa lại như thế nào.
Có kèm File
Cảm ơn Các Bác quan Tâm