Thử viết lại hàm "LOC" của bài 3
Cú pháp:=LOC(Danh sách CN, Tên, Danh sách Công tác)Mã:Public Function LOC(DanhSach As Range, Ten As String, CongViec As Range) Dim r As Long For r = 1 To DanhSach.Rows.Count If DanhSach(r, 1) = Ten Then LOC = LOC & " " & CongViec(r, 1) End If Next r LOC = Replace(Trim(LOC), " ", ", ") End Function