Cách để tạo chữ nhấp nháy khi đến giờ trong ô

[THINHIVANO]

Các anh cho em hỏi, em có một bảng các chuyến bay như hình đính kèm, em muốn khi trước giờ bay 30 phút thì nó sẽ nhấp nháy ở ô đó. các anh có thể chỉ giúp em được không ạ.

 

[MinhKhai]

Các anh cho em hỏi, em có một bảng các chuyến bay như hình đính kèm, em muốn khi trước giờ bay 30 phút thì nó sẽ nhấp nháy ở ô đó. các anh có thể chỉ giúp em được không ạ.

Được bạn ạ. Nó đã nhấp nháy trên file của mình

 

[THINHIVANO]

Được bạn ạ. Nó đã nhấp nháy trên file của mình

Bạn hướng dẫn mình với

 

[leonguyenz]

Các anh cho em hỏi, em có một bảng các chuyến bay như hình đính kèm, em muốn khi trước giờ bay 30 phút thì nó sẽ nhấp nháy ở ô đó. các anh có thể chỉ giúp em được không ạ.

Lần sau hỏi bài làm ơn gửi file mẫu lên.
Code

Option Explicit

Public Stp As Boolean

Sub TgBD()
If Stp = True Then Exit Sub
Dim Cel As Range
For Each Cel In Sheet1.Range("D2:D6")
    If Cel.Value >= Time And _
        Cel.Value <= Time + TimeValue("00:15:00") Then
        Cel.Interior.ColorIndex = 6
    Else
        Cel.Interior.ColorIndex = 0
    End If
Next
Application.OnTime Now + TimeValue("00:00:01"), "TgRp"
End Sub

Sub TgRp()
If Stp = True Then Exit Sub
Dim Cel As Range
For Each Cel In Sheet1.Range("D2:D6")
    If Cel.Value >= Time And _
        Cel.Value <= Time + TimeValue("00:15:00") Then
        Cel.Interior.ColorIndex = 3
    Else
        Cel.Interior.ColorIndex = 0
    End If
Next
Application.OnTime Now + TimeValue("00:00:01"), "TgBD"
End Sub

Sub Dung()
    Stp = True
End Sub

Sub Chay()
    Stp = False
    Call TgBD
End Sub

 

[THINHIVANO]

Lần sau hỏi bài làm ơn gửi file mẫu lên.
Code

Option Explicit

Public Stp As Boolean

Sub TgBD()
If Stp = True Then Exit Sub
Dim Cel As Range
For Each Cel In Sheet1.Range("D2:D6")
    If Cel.Value >= Time And _
        Cel.Value <= Time + TimeValue("00:15:00") Then
        Cel.Interior.ColorIndex = 6
    Else
        Cel.Interior.ColorIndex = 0
    End If
Next
Application.OnTime Now + TimeValue("00:00:01"), "TgRp"
End Sub

Sub TgRp()
If Stp = True Then Exit Sub
Dim Cel As Range
For Each Cel In Sheet1.Range("D2:D6")
    If Cel.Value >= Time And _
        Cel.Value <= Time + TimeValue("00:15:00") Then
        Cel.Interior.ColorIndex = 3
    Else
        Cel.Interior.ColorIndex = 0
    End If
Next
Application.OnTime Now + TimeValue("00:00:01"), "TgBD"
End Sub

Sub Dung()
    Stp = True
End Sub

Sub Chay()
    Stp = False
    Call TgBD
End Sub

DẠ EM CẢM ƠN Ạ, NHƯNG EM THẤY SAU THỜI GIAN ĐÓ NÓ VẪN TIẾP TỤC NHÂP NHÁY CHỨ NÓ K DỪNG

 

[leonguyenz]

DẠ EM CẢM ƠN Ạ, NHƯNG EM THẤY SAU THỜI GIAN ĐÓ NÓ VẪN TIẾP TỤC NHÂP NHÁY CHỨ NÓ K DỪNG

Bạn đừng viết in hoa trong bài như vậy (Nội quy diễn đàn, Mục II.3).
Bạn đưa ví dụ cụ thể xem.

 

[THINHIVANO]

Bạn đừng viết in hoa trong bài như vậy (Nội quy diễn đàn, Mục II.3).
Bạn đưa ví dụ cụ thể xem.

em thấy file của anh vậy á. ý em đang muốn là tới thời gian đó thì nó nhấp nháy, sau đó thì ngừng, nhưng em thấy file anh làm thì qua thời gian đó nó vẫn tiếp tục nhấp nháy

 

[leonguyenz]

em thấy file của anh vậy á. ý em đang muốn là tới thời gian đó thì nó nhấp nháy, sau đó thì ngừng, nhưng em thấy file anh làm thì qua thời gian đó nó vẫn tiếp tục nhấp nháy

Bạn sửa lại đoạn code thời gian trước giờ bay là 30 phút, file cũ tôi đang để 15 phút. (TimeValue("00:15:00"))

 

[THINHIVANO]

Bạn sửa lại đoạn code thời gian trước giờ bay là 30 phút, file cũ tôi đang để 15 phút. (TimeValue("00:15:00"))
View attachment 271114

em hiểu chỗ đó rồi, nhưng ý em là ví dụ như giờ bay là 10h, giờ hiện tại là 9h25, vậy khi đến 9h30 thì nhấp nháy và khi 9h31 thì ngưng. nhưng trong file thì nó cứ tiếp tục nhấp nháy chứ không ngưng ạ

 

[leonguyenz]

em hiểu chỗ đó rồi, nhưng ý em là ví dụ như giờ bay là 10h, giờ hiện tại là 9h25, vậy khi đến 9h30 thì nhấp nháy và khi 9h31 thì ngưng. nhưng trong file thì nó cứ tiếp tục nhấp nháy chứ không ngưng ạ

Sửa lại điều kiện trong code

If Cel.Value >= Time + TimeValue("00:29:00") And _
        Cel.Value <= Time + TimeValue("00:30:00") Then

File đính kèm.

 

[THINHIVANO]

Sửa lại điều kiện trong code

If Cel.Value >= Time + TimeValue("00:29:00") And _
        Cel.Value <= Time + TimeValue("00:30:00") Then

File đính kèm

dạ em cảm ơn anh a