Code nối các ghi chú với nhau theo điều kiện (1 người xem)

[AnhThu-1976]

Đầu năm em xin Chúc toàn thể Thầy cô, anh chị và các bạn Một năm mới nhiều
SỨC KHOẺ - HẠNH PHÚC
AN KHANG – THỊNH VƯỢNG

*****************
Em xin Thầy, cô, anh chị và các bạn tạo code Ghi chú giúp em như sau
Ở Sheet Phieu, khi em nhập số phiếu tại ô F1 (ví dụ: 1/1)
thì code sẽ tham chiếu sheet TH , cột A có cùng số phiếu 1/1 sẽ lấy tương ứng toàn bộ ghi chú tại cột T và ghép liên tục với nhau
Kết quả sẽ ghi vào ô cố định là F10 của sheet Phieu
kết quả ở ô F10-sheet Phieu là acd
---------
Nếu ở Sheet Phieu, khi em nhập số phiếu tại ô F1 là 1/2
Thì kết quả ở ô F10-sheet Phieu là “trống không” (vì không có ghi chú)

Nếu ở Sheet Phieu, khi em nhập số phiếu tại ô F1 là 1/3
Thì kết quả ở ô F10-sheet Phieu là Cai
Em xin cảm ơn!

 

[SA_DQ]

Bạn có thể thử nghiệm với con macro sự kiện này ở trang 'Phieu'

Private Sub Worksheet_Change(ByVal Target As Range)
 If Not Intersect(Target, [f1]) Is Nothing Then
    Dim StrC As String:                 Dim Rws As Long, J As Long
    Dim Sh As Worksheet, Arr()
  
    Set Sh = ThisWorkbook.Worksheets("TH")
    Rws = Sh.UsedRange.Rows.Count
    Arr() = Sh.[A8].Resize(Rws, 20).Value
    For J = 1 To UBound(Arr())
        If Arr(J, 1) = Target.Value Then StrC = StrC & Arr(J, 20)
    Next J
    [F10].Value = StrC:         [F10].Interior.ColorIndex = 34 + (Len(StrC) Mod 9)
 End If
End Sub

 

[HUONGHCKT]

Đầu năm em xin Chúc toàn thể Thầy cô, anh chị và các bạn Một năm mới nhiều
SỨC KHOẺ - HẠNH PHÚC
AN KHANG – THỊNH VƯỢNG

*****************
Em xin Thầy, cô, anh chị và các bạn tạo code Ghi chú giúp em như sau
Ở Sheet Phieu, khi em nhập số phiếu tại ô F1 (ví dụ: 1/1)
thì code sẽ tham chiếu sheet TH , cột A có cùng số phiếu 1/1 sẽ lấy tương ứng toàn bộ ghi chú tại cột T và ghép liên tục với nhau
Kết quả sẽ ghi vào ô cố định là F10 của sheet Phieu
kết quả ở ô F10-sheet Phieu là acd
---------
Nếu ở Sheet Phieu, khi em nhập số phiếu tại ô F1 là 1/2
Thì kết quả ở ô F10-sheet Phieu là “trống không” (vì không có ghi chú)

Nếu ở Sheet Phieu, khi em nhập số phiếu tại ô F1 là 1/3
Thì kết quả ở ô F10-sheet Phieu là Cai
Em xin cảm ơn!

Trong khi chờ các giải pháp khác thử thm khảo code trong file đính kèm sau:
Khi click chọn 1 mã trong list ở ô F1 thì đã có kết quả: Ô F10 là chạy sub , Ô G10 là hàm UDF
Khi thêm hoặc bớt dữ liệu của cột A /sh TH thì List ở F1/sh Phieu cũng sẽ thay đổi theo.
Hy vọng giúp được bạn.