Tassos muốn Excel phát tệp âm thanh khi giá trị trong một ô nhất định vượt quá ngưỡng. Ví dụ: khi giá trị trong một ô vượt quá 999, anh ta muốn phát một tệp âm thanh cụ thể.

Không có cách tích hợp nào để làm điều này trong Excel (mặc dù nó sẽ là một bổ sung thú vị cho các tính năng định dạng có điều kiện của Excel). Tuy nhiên, bạn có thể phát tệp âm thanh bằng cách sử dụng macro để thực hiện lệnh gọi tới Windows API.

Bạn cần bắt đầu bằng cách đặt một số mã trong đối tượng Trang tính cho sổ làm việc. (Nhấp chuột phải vào tab của trang tính và chọn Mã Chế độ xem từ trình đơn Ngữ cảnh.) Khai báo hàm “Playingound” bằng đoạn mã sau:

Private Declare Function PlaySound Lib "winmm.dll" _   Alias "PlaySoundA" (ByVal lpszName As String, _   ByVal hModule As Long, ByVal dwFlags As Long) As Long

Const SND_SYNC = &H0     Const SND_ASYNC = &H1     Const SND_FILENAME = &H20000

Tiếp theo, bạn có thể tạo một macro nhỏ ngắn để thực sự phát tệp âm thanh. Giả sử rằng tệp âm thanh nằm trong cùng thư mục với sổ làm việc, đoạn mã sau sẽ hoạt động. (Bạn nên sửa đổi mã để nó chứa tên tệp và vị trí thích hợp.)

Sub PlayWAV()

WAVFile = ThisWorkbook.Path & "\MyAudioFile.wav"

Call PlaySound(WAVFile, 0&, SND_ASYNC Or SND_FILENAME)

End Sub

Cuối cùng, thiết lập các tiêu chí khi tệp sẽ được phát. Trong trường hợp này, bạn muốn tệp âm thanh phát bất cứ khi nào giá trị trong ô đích vượt quá giá trị ngưỡng là 999. Thao tác sau sẽ kiểm tra điều kiện đó trong ô C5 và nếu được bảo đảm, hãy phát tệp âm thanh:

Private Sub Worksheet_Change(ByVal Target As Range)

Threshold = 999     If Range("C5").Value > Threshold Then PlayWAV End Sub

Bây giờ, bất cứ khi nào giá trị trong Ô C5 thay đổi và vượt quá 999, tệp âm thanh sẽ phát một lần. Nếu các giá trị được thay đổi thành nhỏ hơn 999, không có gì phát. Nếu giá trị thay đổi thành giá trị khác vượt quá 999, tệp âm thanh sẽ phát lại.

Để có thêm ý tưởng về cách phát tệp âm thanh, hãy xem các trang web sau:

http://www.j-walk.com/ss/excel/tips/tip87.htm http://www.cpearson.com/excel/PlaySound.aspx

Bạn cũng cần lưu ý rằng bạn có thể khiến Excel phát âm thanh hệ thống bằng cách sử dụng xác thực dữ liệu. Chỉ cần thiết lập tiêu chí xác thực (được mô tả trong các vấn đề khác của ExcelTips), sau đó, trên tab Lỗi, chỉ định xem bạn muốn Excel dừng, cảnh báo hay thông báo cho người dùng. Khi một giá trị được nhập vào ô không phù hợp với tiêu chí, một hộp thoại sẽ hiển thị và âm thanh hệ thống sẽ được nghe thấy.

_Lưu ý: _

Nếu bạn muốn biết cách sử dụng các macro được mô tả trên trang này (hoặc trên bất kỳ trang nào khác trên trang ExcelTips), tôi đã chuẩn bị một trang đặc biệt bao gồm thông tin hữu ích.

ExcelTips là nguồn của bạn để đào tạo Microsoft Excel hiệu quả về chi phí.

Mẹo này (6559) áp dụng cho Microsoft Excel 97, 2000, 2002 và 2003.