Nhờ anh chị chỉ giúp làm ô nhấp nháy khi thoã mãn điều kiện (2 người xem)

[Nguyễn Việt Sinh]

Em muốn cột dữ liệu E của em thoã điều kiện là nếu ngày hiện tại trừ đi ngày báo cáo=0 là đến ngày báo cáo sẽ hiện màu đỏ và nhấp nháy. Kính mong các bạn hướng dẫn giúp. cám ơn nhiều

 

[BuiQuangThuan]

Bạn có nghĩ là nó nhấp nháy thế sẽ ảnh hưởng tới các thao tác khác không? Nó đỏ đỏ lên là được rồi. Nháy chi cho nó đau đầu ra nhỉ

 

[Nguyễn Việt Sinh]

ý là muốn nháy để gây sự chú ý là đến hạn bc để ko bị trễ hẹn

 

[Hoàng Tuấn 868]

đến ngày báo cáo sẽ hiện màu đỏ và nhấp nháy

Vậy thì không báo cáo kịp rồi, phải trước ngày báo cáo 1 vài hôm.

 

[VetMini]

Bạn có nghĩ là nó nhấp nháy thế sẽ ảnh hưởng tới các thao tác khác không? Nó đỏ đỏ lên là được rồi. Nháy chi cho nó đau đầu ra nhỉ

Có thể do người thao tác mắc bệnh kém chú ý, cần phải có cái gì thiệt nổi mới nhìn ra.

Mà chú ý cũng lạ. Ngay ngày hạn (=0) mới "chớp". Còn trễ ngày hạn (<0) thì lướt qua luôn.

 

[Nguyễn Việt Sinh]

mình chỉ nhờ có vậy thôi. còn việc khác ac khỏi phải lo

 

[bebo021999]

Làm đại. Tần số 1s chớp 1 lần.
Nếu muốn lâu hơn thì chỉnh lại TimeValue("00:00:01") nhé

Option Explicit
Dim cell As Range
Sub red()
Application.Cursor = xlNorthwestArrow
For Each cell In Range("D4:D9")
    If cell.Value2 = Date Then cell.Offset(0, 1).Font.Color = vbRed
Next
Calculate
Application.OnTime Now() + TimeValue("00:00:01"), "black"
End Sub
Sub black()
Application.Cursor = xlNorthwestArrow
For Each cell In Range("D4:D9")
    If cell.Value2 = Date Then cell.Offset(0, 1).Font.Color = vbBlack
Next
Calculate
Application.OnTime Now() + TimeValue("00:00:01"), "red"
End Sub

 

[Nguyễn Việt Sinh]

Ok cám ơn bạn bebo021999

 

[batman1]

Nếu đỏ chót mà còn không nhìn thấy thì cho hiện Form modal đi. Lúc đó phải đóng Form mới làm việc tiếp được. Mà đã Form thì thông báo, van xin, rồi giải thích, thuyết phục, nhắc nhở, dặn dò, hướng dẫn. Muốn bao nhiêu thông tin cũng có thể nhét vào cái Form ấy. Thế có phải tốt hơn cái nháy nháy kia không?

 

[Ngocminh19]

Làm đại. Tần số 1s chớp 1 lần.
Nếu muốn lâu hơn thì chỉnh lại TimeValue("00:00:01") nhé

Option Explicit
Dim cell As Range
Sub red()
Application.Cursor = xlNorthwestArrow
For Each cell In Range("D4:D9")
    If cell.Value2 = Date Then cell.Offset(0, 1).Font.Color = vbRed
Next
Calculate
Application.OnTime Now() + TimeValue("00:00:01"), "black"
End Sub
Sub black()
Application.Cursor = xlNorthwestArrow
For Each cell In Range("D4:D9")
    If cell.Value2 = Date Then cell.Offset(0, 1).Font.Color = vbBlack
Next
Calculate
Application.OnTime Now() + TimeValue("00:00:01"), "red"
End Sub

Bác ơi. Cái này có thể để nền Cell đó màu vàng,thay đổi cùng màu chữ được không ạ
Bác có thể thêm giúp với ạ. Em cảm ơn!

 

[bebo021999]

Option Explicit
Dim cell As Range
Sub red()
Application.Cursor = xlNorthwestArrow
    For Each cell In Range("D4:D9")
        With cell.Offset(0, 1)
            If cell.Value2 = Date Then
                .Font.Color = vbRed
                .Interior.Color = vbYellow
            End If
        End With
    Next
Calculate
Application.OnTime Now() + TimeValue("00:00:01"), "black"
End Sub
Sub black()
Application.Cursor = xlNorthwestArrow
    For Each cell In Range("D4:D9")
        With cell.Offset(0, 1)
            If cell.Value2 = Date Then
                .Font.Color = vbBlack
                .Interior.Color = xlNone
            End If
        End With
    Next
Calculate
Application.OnTime Now() + TimeValue("00:00:01"), "red"
End Sub

 

[Nguyễn Việt Sinh]

cho mình hỏi: Mình đã làm cho mã VBA chạy trong phần module rồi và lưu lại ok rồi mà khi tắt và mở file excel lên nó ko kích hoạt VBA chạy mà phải mở lại module cho chạy thì dữ liệu file excel mới chạy. nhờ Anh, Chị chỉ giúp

 

[thepdaoson]

Bạn lưu file dưới dạng Excel Macro-Enabled workbook thử xe.

 

[Nguyễn Việt Sinh]

Bạn lưu file dưới dạng Excel Macro-Enabled workbook thử xe.

Lưu dưới dạng Excel Macro-Enabled workbook rồi vẫn ko chạy