Thông báo bằng msgbox (1 người xem)

[xuantamc6]

Chào các anh/ chị.
Em có một bài tập về msgbox mong mọi người giúp đỡ.
Trong sheet1, thông tin ngày tháng tại cột A (NAME) VÀ B (NGÀY THÁNG) đã có sẵn dữ liệu, Còn cột C (KQ) sẽ có hai kết quả là "NO" VÀ "TRUE" mỗi một ngày một khác.
Như vậy mỗi ngày khi mình mở file lên thì sẽ có một thông báo từ msgbox liệt kê danh sách "NAME" thỏa điều kiện là "TRUE"

 

[leonguyenz]

Tham khảo code

Private Sub Workbook_Open()
Dim sAr As Variant, i As Long, Tmp As String
sAr = Sheet1.Range("A2:C" & Sheet1.Range("A65535").End(xlUp).Row).Value2
For i = 1 To UBound(sAr, 1)
    If sAr(i, 3) = "TRUE" Then
        Tmp = Tmp & Chr(10) & sAr(i, 1)
    End If
Next i
MsgBox Tmp
End Sub

 

[phulien1902]

Chào các anh/ chị.
Em có một bài tập về msgbox mong mọi người giúp đỡ.
Trong sheet1, thông tin ngày tháng tại cột A (NAME) VÀ B (NGÀY THÁNG) đã có sẵn dữ liệu, Còn cột C (KQ) sẽ có hai kết quả là "NO" VÀ "TRUE" mỗi một ngày một khác.
Như vậy mỗi ngày khi mình mở file lên thì sẽ có một thông báo từ msgbox liệt kê danh sách "NAME" thỏa điều kiện là "TRUE"

1 cách:

Private Sub Workbook_Open()
    MsgBox Join(Filter([transpose(if(C2:C57="TRUE",A2:A57,char(2)))], Chr(2), 0), vbLf)
End Sub

 

[xuantamc6]

cám ơn anh phulien1902 và anh leonguyenz nhiều ạ