Xin giúp hàm mà sẽ phát 1 file âm thanh trong excel

[hoangflong]

Tôi muốn có 1 hàm mà có thể phát ra âm thanh trong excel.
Ví dụ: nếu tôi nhập số nhỏ hơn 10 nó sẽ kêu "Đúng", Tiếng kêu Đúng này tôi có thể thu âm thành 1 file âm thanh dạng Dung.wav hay Dung.mp3
Hoặc đơn giản hơn khi nhập số lớn hơn 10 nó sẽ phát ra tiếng bip bip bip liên tục cho tới khi nhập lại số nhỏ hơn 10.
Xin được trợ giúp.

 

[thanh_tks]

bạn vào data validation chọn custom rồi đặt điều kiện trong đó. khi nhập đúng thì không sao ,nhưng khi nhập sai thì hiện bảng thông báo đồng thời có âm thanh báo luôn.còn việc chon âm thanh thì mình chịu

 

[ndu96081631]

Xem thử bài này nhé:
http://www.giaiphapexcel.com/forum/showthread.php?t=21496
Chỉ Validation thôi thì không có cửa giải quyết bài này đâu

 

[Hai Lúa Miền Tây]

Tôi muốn có 1 hàm mà có thể phát ra âm thanh trong excel.
Ví dụ: nếu tôi nhập số nhỏ hơn 10 nó sẽ kêu "Đúng", Tiếng kêu Đúng này tôi có thể thu âm thành 1 file âm thanh dạng Dung.wav hay Dung.mp3
Hoặc đơn giản hơn khi nhập số lớn hơn 10 nó sẽ phát ra tiếng bip bip bip liên tục cho tới khi nhập lại số nhỏ hơn 10.
Xin được trợ giúp.

Bạn thử dùng code này, nhớ là file có định dạng là .wav chứ không phải .mp3 như bạn nói nhé

Option Explicit
Private Declare Function sndPlaySound32 Lib "winmm.dll" _
Alias "sndPlaySoundA" (ByVal lpszSoundName _
As String, ByVal uFlags As Long) As Long
 
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Cell            As Range
Dim CheckRange      As Range
Dim PlaySound       As Boolean
    
    Set CheckRange = Range("a1:b10") [COLOR=darkgreen]'Chon vung cho hop ly nhe[/COLOR]
    For Each Cell In CheckRange
        If Cell.Value > 10 Then
            PlaySound = True
        End If
    Next
    If PlaySound Then
        Call sndPlaySound32("C:\learn\1.wav", 1) [COLOR=darkgreen]'Sua lai duong dan den file cua ban[/COLOR]
    End If
End Sub

Bạn xem thêm file nhé

 

[ndu96081631]

Bạn thử dùng code này, nhớ là file có định dạng là .wav chứ không phải .mp3 như bạn nói nhé

Option Explicit
Private Declare Function sndPlaySound32 Lib "winmm.dll" _
Alias "sndPlaySoundA" (ByVal lpszSoundName _
As String, ByVal uFlags As Long) As Long
 
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Cell            As Range
Dim CheckRange      As Range
Dim PlaySound       As Boolean
    
    Set CheckRange = Range("a1:b10") [COLOR=darkgreen]'Chon vung cho hop ly nhe[/COLOR]
    For Each Cell In CheckRange
        If Cell.Value > 10 Then
            PlaySound = True
        End If
    Next
    If PlaySound Then
        Call sndPlaySound32("C:\learn\1.wav", 1) [COLOR=darkgreen]'Sua lai duong dan den file cua ban[/COLOR]
    End If
End Sub

Bạn xem thêm file nhé

Code chưa xong đâu nha ---> Sau khi gõ số > 10 vào vùng màu vàng, kế từ đó trở đi, gõ bất kỳ cái gì vào bất kỳ chổ nào nó cũng... kêu
Dùng Worksheet_Change, ít nhất cũng phải đặt điều kiện cho Target chứ
Chẳng hạn: If Not Intersect(.....) Is Nothing... hay gì gì đó
Và cũng chẳng cần nhiều biến như vậy!

 

[trandangkhoi]

Phần này ấn Alt +F11 là hiện lên bảng code mà bạn

 

[hoangbatai1905]

đó là số .còn chữ thì sao hả bác

 

[nam2806]

Tôi muốn có 1 hàm mà có thể phát ra âm thanh trong excel.
Ví dụ: nếu tôi nhập số nhỏ hơn 10 nó sẽ kêu "Đúng", Tiếng kêu Đúng này tôi có thể thu âm thành 1 file âm thanh dạng Dung.wav hay Dung.mp3
Hoặc đơn giản hơn khi nhập số lớn hơn 10 nó sẽ phát ra tiếng bip bip bip liên tục cho tới khi nhập lại số nhỏ hơn 10.
Xin được trợ giúp.

Bạn dùng thử cái này xem
Bạn nào thử làm cái hàm như yêu cầu của hoangflong thì ngon nhể. Lúc đó ta nhập vào ô A1, hàm đặt vào ô B1, nhập giá trị không đạt yêu cầu nó kêu lên báo cho ta biết