Xin Code VBA Hiện bảng thông báo (1 người xem)

[To Minh Phat]

Dear các anh chị.

Em có một file có công thức ở cột G, em muốn khi em nhập thêm data chạy công thức nếu ra dữ liệu "NOT OK" thì nó sẽ hiện lên 1 cái bảng báo là thiếu thông tin yêu cầu
Các anh chị xem file đính kèm và giúp em với ạ.

 

[giaiphap]

Dear các anh chị.

Em có một file có công thức ở cột G, em muốn khi em nhập thêm data chạy công thức nếu ra dữ liệu "NOT OK" thì nó sẽ hiện lên 1 cái bảng báo là thiếu thông tin yêu cầu
Các anh chị xem file đính kèm và giúp em với ạ.

Thế công thức tại cột G thay vì hiện chữ NOT OK thì sao bạn không cho hiện chữ thiếu yêu cầu luôn, một cái bất tiện là trong khi bạn gõ một chữ x (Phải gõ đủ 3 cột B, C và D) thì nó hiện thông báo, gõ lần 2 (Chưa đủ) cũng hiện thông báo, theo bạn trong khi nhập thông tin mà nó cứ thông báo hoài vậy có bực không?

 

[To Minh Phat]

Thế công thức tại cột G thay vì hiện chữ NOT OK thì sao bạn không cho hiện chữ thiếu yêu cầu luôn, một cái bất tiện là trong khi bạn gõ một chữ x (Phải gõ đủ 3 cột B, C và D) thì nó hiện thông báo, gõ lần 2 (Chưa đủ) cũng hiện thông báo, theo bạn trong khi nhập thông tin mà nó cứ thông báo hoài vậy có bực không?

Cám ơn anh,

Máy tính em để định dạng Manual chứ không để Automatic
Ý em là tụi em để hàm trước nó luôn hiện là OK, khi em nhập hết các chữ x vào rồi thì mới Shift + F9 để chạy lại hàm, khi này nếu thiếu dữ liệu thì ở cột G mới thể hiện lại là chữ NOT OK thì nó sẽ hiện bảng thiếu thông tin yêu cầu lên

 

[phulien1902]

Dear các anh chị.

Em có một file có công thức ở cột G, em muốn khi em nhập thêm data chạy công thức nếu ra dữ liệu "NOT OK" thì nó sẽ hiện lên 1 cái bảng báo là thiếu thông tin yêu cầu
Các anh chị xem file đính kèm và giúp em với ạ.

Thử:

Sub abc()
    Dim i&, LR&
    LR = Cells(Rows.Count, 1).End(3).Row
    With Sheets(1)
        For i = 2 To LR
            Range("G2:G" & LR).Formula = "=IF(COUNTIF(B2:D2,""X"")=3,""OK"",""NOT OK"")"
            If Cells(i, "G").Value = "NOT OK" Then
                MsgBox "Thieu du lieu dong: " & Rows(i).Address
            End If
        Next i
         Columns("G:G").EntireColumn.Hidden = True
    End With
End Sub

 

[To Minh Phat]

Thử:

Sub abc()
    Dim i&, LR&
    LR = Cells(Rows.Count, 1).End(3).Row
    With Sheets(1)
        For i = 2 To LR
            Range("G2:G" & LR).Formula = "=IF(COUNTIF(B2:D2,""X"")=3,""OK"",""NOT OK"")"
            If Cells(i, "G").Value = "NOT OK" Then
                MsgBox "Thieu du lieu dong: " & Rows(i).Address
            End If
        Next i
         Columns("G:G").EntireColumn.Hidden = True
    End With
End Sub

Cám ơn bạn nhiều lắm nha