Có ai quan tâm âm thanh trong excel (1 người xem)

[anhlong]

Tập tin "Alpha.rar" mình đính kèm chỉ cách phát âm thanh trong êxcl hay sao ấy (mình thì đang cần định dạng 1 ô sao cho khi giá trị trong ô đó =< 0 thì nó tự phát ra 1 âm thanh "da_het_hang.wav" chẳng hạn. Bạn nào rành chỉ dùm mình nhé.)

Còn file "Alpha.rar" phải tắt Marco mới mở lên được . Không thoai thì nó tự hủy.
Mà mở nó lên roài thì nó bảo tại tắt Marco nên nó k chạy..hay sao ấy?

 

[ptlong04x1]

Trong Module Experi bạn nhấn Ctrl F để tìm dòng Call KillWorkbook và xoá đi, sau đó Enable Macro là chạy được.

 

[PhanTuHuong]

Đây là mẫu code chạy âm thanh trong Excel, bạn chỉ chuyển sang lập trình có điều kiện (giá trị trong ô nhỏ hơn không là chạy)

Public Declare Function sndPlaySound Lib "winmm.dll" _
Alias "sndPlaySoundA" (ByVal lpszSoundName As String, _
ByVal uFlags As Long) As Long


Sub PlayWavFile(WavFileName As String, Wait As Boolean)
    If Dir(WavFileName) = "" Then Exit Sub ' no file to play
    If Wait Then ' play sound before running any more code
        sndPlaySound WavFileName, 0
    Else ' play sound while code is running
        sndPlaySound WavFileName, 1
    End If
End Sub


Sub TestPlayWavFile()
    PlayWavFile "c:\foldername\soundfilename.wav", False
    MsgBox "This is visible while the sound is playing..."
    PlayWavFile "c:\foldername\soundfilename.wav", True
    MsgBox "This is visible after the sound is finished playing..."
End Sub

hoặc xem thêm ở đây:

http://j-walk.com/ss/excel/tips/tip59.htm

 

[ptlong04x1]

mình thì đang cần định dạng 1 ô sao cho khi giá trị trong ô đó =< 0 thì nó tự phát ra 1 âm thanh "da_het_hang.wav" chẳng hạn

Bạn copy File "da_het_hang.wav" vào ổ C: rồi dùng code sau :

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [A1]) Is Nothing Then Exit Sub
    If Target <= 0 Then Call sndPlaySound32("C:\da_het_hang.wav", 0)
End Sub

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

Nếu bạn gõ giá trị <=0 tại ô [A1] thì Excel sẽ phát File "da_het_hang.wav" trong ổ C:. Xem File đính kèm.

 

[anhlong]

Đã làm được nhưng còn chút vấn đề ,mong các bạn giúp

ptlong04x1

Gà mờ!

Bê nguyên si đoạn code của ptlong04x1 vào Marco thì Ô A2 kêu ok ròi .
Nhưng tôi muốn đặt công thức vào ô A2 thì sao các bạn?

Giúp tôi xem file đính kèm nhé.

 

[ptlong04x1]

Kêu 1 lần rồi tắt hay là kêu hoài cho đến khi nó >0 thì mới hết kêu hả bạn?

 

[Hoàng Trọng Nghĩa]

Bê nguyên si đoạn code của ptlong04x1 vào Marco thì Ô A2 kêu ok ròi .
Nhưng tôi muốn đặt công thức vào ô A2 thì sao các bạn?

Giúp tôi xem file đính kèm nhé.

Bạn chỉ cần sửa như vầy là được!

Private Sub Worksheet_Change(ByVal Target As Range)
       If [A2] <= 0 Then Call sndPlaySound32("C:\da_het_hang.wav", 0)
End Sub

 

[ptlong04x1]

Bạn chỉ cần sửa như vầy là được!

Private Sub Worksheet_Change(ByVal Target As Range)
       If [A2] <= 0 Then Call sndPlaySound32("C:\da_het_hang.wav", 0)
End Sub

Mình cũng thấy kỳ kỳ cái đoạn này, nó mà <=0 rồi thì đụng chỗ nào cũng kêu

 

[anhlong]

Ý tôi không phải ô a1 hay a2 mà là F2 . Chỉ báo 1 lần là được.
các bạn xem qua file nhe

 

[ptlong04x1]

Bạn phải xác định được nguyên nhân gây ra thay đổi cho ô F2, ở đây tôi đoán đại là sau khi nhập số lượng và mã hàng vô thì thấy ô F2 thay đổi --> Kêu.

 

[anhlong]

Mình làm được ròi bạn long ơi , cám ơn bạn thật nhiều.

 

[tts.spktnd]

Bạn phải xác định được nguyên nhân gây ra thay đổi cho ô F2, ở đây tôi đoán đại là sau khi nhập số lượng và mã hàng vô thì thấy ô F2 thay đổi --> Kêu.

Cảm ơn Ptlong04x1.
Mình đã đọc bài viết của bạn, xong bảng tính của mình: dữ liệu luôn tự động cập nhật theo thời gian ( không phải nhập từ bàn phím ). Mình muốn khi giá trị cập nhật >10 thì tự động phát tiếng kêu.
Mong ptlong04x1 và các bạn trong diễn đàn giúp mình.
Thanks.

 

[tts.spktnd]

Âm thanh trong Excel

Chào các bạn!
Tôi là thành viên mới của diễn đàn.
Tôi có vấn đề vướng mắc trong Excel:
Tôi có file dữ liệu.... dữ liệu được tự động cập nhật theo thời gian ( không phải nhập từ bàn phím)
Tôi muốn cell dữ liệu đó khi có giá trị >10 thì máy tự động phát âm thanh ( âm báo để mình biết )
Tôi loay hoay làm mãi mà không được...
Mong được sự giúp đỡ của các bạn !
Thanks.

 

[ptlong04x1]

Chào các bạn!
Tôi là thành viên mới của diễn đàn.
Tôi có vấn đề vướng mắc trong Excel:
Tôi có file dữ liệu.... dữ liệu được tự động cập nhật theo thời gian ( không phải nhập từ bàn phím)
Tôi muốn cell dữ liệu đó khi có giá trị >10 thì máy tự động phát âm thanh ( âm báo để mình biết )
Tôi loay hoay làm mãi mà không được...
Mong được sự giúp đỡ của các bạn !
Thanks.

Xem thử bài này nhé : http://www.giaiphapexcel.com/forum/showthread.php?21496-Báo-động-nhập-liệu-sai-bằng-âm-thanh.

 

[HeSanbi]

Chào các bạn!
Tôi là thành viên mới của diễn đàn.
Tôi có vấn đề vướng mắc trong Excel:
Tôi có file dữ liệu.... dữ liệu được tự động cập nhật theo thời gian ( không phải nhập từ bàn phím)
Tôi muốn cell dữ liệu đó khi có giá trị >10 thì máy tự động phát âm thanh ( âm báo để mình biết )
Tôi loay hoay làm mãi mà không được...
Mong được sự giúp đỡ của các bạn !
Thanks.

Chào anh, "dữ liệu được tự động cập nhật theo thời gian ( không phải nhập từ bàn phím)", code như thế nào?, anh có thể cho xem file đính kèm được không....

 

[ditimdamme]

Cho mình hỏi là: Cũng giống đề bài trên luôn thay vì ta nhập tay giá trị vào ô thì mình dùng hàm randbetween để nhập vào ô thì nó lại không kêu. Mong mọi người chỉ dùm

 

[be_09]

Cho mình hỏi là: Cũng giống đề bài trên luôn thay vì ta nhập tay giá trị vào ô thì mình dùng hàm randbetween để nhập vào ô thì nó lại không kêu. Mong mọi người chỉ dùm

Bạn làm như sau:

Thông thường, muốn cho máy tính đọc lại nội dung dữ liệu trong 1 Cell, thực hiện trong Excel 2003 như sau:


Từ menu chọn Tools > Speech > Show Text To Speech Toolbar, thanh công cụ hiện ra click chọn Speak On Enter.


Bây giờ click vào bất kỳ Cell nào có chứa dữ liệu và nhấn Enter nó sẽ đọc lại nội dung trong Cell đó bằng tiếng Anh.

Để tắt tiếng ta chỉ cần click vào Speak On Enter 1 lần nữa.