Phát âm thanh khi đến thời gian

[Nhathuy2012]

Em có vấn đề này nhờ các bác tý ạ !
Em làm 1 file cấp hàng khi đến giờ nó sẽ tự động phát âm thanh để chú ý , nhưng hiện tại đến giờ em phải click vào 1 vùng nào đó nó mới phát âm thanh chứ không Auto theo giờ
Em có gửi file đính kèm bác nào xem giúp em và sửa giúp em với ạ !
Cảm ơn các bác

 

[huuthang_bd]

Em có vấn đề này nhờ các bác tý ạ !
Em làm 1 file cấp hàng khi đến giờ nó sẽ tự động phát âm thanh để chú ý , nhưng hiện tại đến giờ em phải click vào 1 vùng nào đó nó mới phát âm thanh chứ không Auto theo giờ
Em có gửi file đính kèm bác nào xem giúp em và sửa giúp em với ạ !
Cảm ơn các bác
user: romcopy
pass : romcopy

Bạn xem file này rồi áp dụng nhé.

 

[Nhathuy2012]

Bạn xem file này rồi áp dụng nhé.

Em chưa hiểu lắm về câu lệnh , bác giải thích giùm em được không ạ
=NOW()+RANDBETWEEN(1;50)/(24*60*60)
=NOW()+RANDBETWEEN(1;100)/(24*60*60)

 

[Nhathuy2012]

Câu lệnh em như này nhưng khi đến giờ ( cột W ) trùng với giá trị (cột X5) thì k tự phát âm thanh mà phải click chuột vào 1 vùng trong sheet mới phát âm thanh
Option Explicit

Private Declare PtrSafe Function sndPlaySound32 Lib "winmm.dll" _
Alias "sndPlaySoundA" (ByVal lpszSoundName _
As String, ByVal uFlags As Long) As Long



Private Sub Worksheet_selectionChange(ByVal Target As Range)

Dim Cell As Range
Dim CheckRange As Range
Dim PlaySound As Boolean

Set CheckRange = Range("W5:W300")
For Each Cell In CheckRange
If Cell.Value = Range("X5") Then
PlaySound = True
End If
Next
If PlaySound Then
Call sndPlaySound32("D:\a better day.wav", 2)
End If

End Sub

 

[huuthang_bd]

Thì trong file ví dụ tôi gửi đến thời gian trùng với ô nào thì ô đó tô màu đó. Thay cái tô màu bằng cái phát âm thanh là được thôi.
Vậy thôi chứ tôi không sửa file của bạn nha.

 

[huuthang_bd]

Bổ sung: Mấy cái công thức trên sheet chỉ để tạo dữ liệu chạy thử thôi. Bạn đừng quan tâm.

 

[Nhathuy2012]

Bổ sung: Mấy cái công thức trên sheet chỉ để tạo dữ liệu chạy thử thôi. Bạn đừng quan tâm.

Bác huuthang_bd check hộp thư giùm em với ạ