Khi file bị sai (được báo lỗi = conditional fomatting) thì code không close file

[AnhThu-1976]

Anh/chị giúp em trường hợp sau
Em có 1 file công nợ, tại ô A1 của sheet "Congno" em có định dạng conditional fomatting, nếu số liệu sai thì tại ô A1 của sheet "Congno" sẽ tô đỏ cả ô
Nhưng do người làm nhiều khi không chú ý nên thường không kiểm tra rồi giở file cho khách hàng
Do vậy em muốn trước khi close file thì nếu ô A1 của sheet "Congno" vẫn tô đỏ cả ô thì có Msgbox " File còn bị sai", Em cảm ơn!

 

[ndu96081631]

Anh/chị giúp em trường hợp sau
Em có 1 file công nợ, tại ô A1 của sheet "Congno" em có định dạng conditional fomatting, nếu số liệu sai thì tại ô A1 của sheet "Congno" sẽ tô đỏ cả ô
Nhưng do người làm nhiều khi không chú ý nên thường không kiểm tra rồi giở file cho khách hàng
Do vậy em muốn trước khi close file thì nếu ô A1 của sheet "Congno" vẫn tô đỏ cả ô thì có Msgbox " File còn bị sai", Em cảm ơn!

Kiểm tra màu do CF tô bằng DisplayFormat nha bạn. Chẳng hạn:

Sheets("Congno").Range("A1").DisplayFormat.Interior.Color

Hoặc:

Sheets("Congno").Range("A1").DisplayFormat.Interior.ColorIndex

 

[AnhThu-1976]

Kiểm tra màu do CF tô bằng DisplayFormat nha bạn. Chẳng hạn:

Sheets("Congno").Range("A1").DisplayFormat.Interior.Color

Hoặc:

Sheets("Congno").Range("A1").DisplayFormat.Interior.ColorIndex

Em có code

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Application.DisplayAlerts = False
    If Sheets("Congno").Range("A1").DisplayFormat.Interior.ColorIndex = True Then
   
        MsgBox " file bi sai"
    End If
    Application.DisplayAlerts = True
End Sub

em đặt trong ThisWorkbook, Tại ô A1 của sheet Congno vẫn tô đỏ, nhưng khi em close file thì không thấy thông báo gì hết ạ!

 

[giaiphap]

Em có code

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Application.DisplayAlerts = False
    If Sheets("Congno").Range("A1").DisplayFormat.Interior.ColorIndex = True Then
  
        MsgBox " file bi sai"
    End If
    Application.DisplayAlerts = True
End Sub

em đặt trong ThisWorkbook, Tại ô A1 của sheet Congno vẫn tô đỏ, nhưng khi em close file thì không thấy thông báo gì hết ạ!

Lệnh này sai nhé.

If Sheets("Congno").Range("A1").DisplayFormat.Interior.ColorIndex = True Then

 

[AnhThu-1976]

Lệnh này sai nhé.

If Sheets("Congno").Range("A1").DisplayFormat.Interior.ColorIndex = True Then

vậy sửa sao anh?

 

[giaiphap]

vậy sửa sao anh?

Muốn biết sửa sao thì dùng thử lệnh này.

    Msgbox Sheets("Congno").Range("A1").DisplayFormat.Interior.ColorIndex