Nhathuy2012
Thành viên mới
- Tham gia
- 13/8/17
- Bài viết
- 41
- Được thích
- 0
- Giới tính
- Nam
Nhờ các anh chị trong diễn dàn chỉ giùm em thiếu sót trong code sau :
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
Em muốn khi đến giờ thì nó sẽ Auto chứ k cần click vào sheet nó mới hoạt động ạ
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
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
Em muốn khi đến giờ thì nó sẽ Auto chứ k cần click vào sheet nó mới hoạt động ạ
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
