Báo khi chưa nhập nhiệu đầy đủ

[lp0042019.dkdn]

Kính gửi các anh chị,
Nhờ các anh chị viết giúp em VBA để khi cột số lượng có dữ liệu mà cột giá chưa nhập thì báo " chưa nhập giá" theo file đính kèm giúp em ạ. Cảm ơn các anh chị.

 

[SA_DQ]

Bạn gán 1 Name có tên là CNG với Refers to là "Chưa Nhập Giá"
& cho macro sau chạy:

Sub ChuaNhapGia()
 Dim Cls As Range, Rng As Range
 
 If Cells(1, "C").Value <> "" Then
    Set Rng = Range([C1], [C65500].End(xlUp))
 Else
    Set Rng = Range([C1].End(xlDown), [C65500].End(xlUp))
 End If
 For Each Cls In Rng
    If IsNumeric(Cls.Value) And Cls.Value <> "" And Cls.Offset(, 1).Value = "" Then
        Cls.Offset(, 1).FormulaR1C1 = "=CNG"       '<=|  "
    End If
 Next Cls
End Sub

 

[VetMini]

Cái này dùng conditional formatting chứ tội gì phải dùng cốt kiếc.