Bỏ qua nội dung chính

Làm thế nào để phát âm thanh nếu một điều kiện được đáp ứng trong Excel?

Trong Excel, chúng ta có thể áp dụng Định dạng có Điều kiện để định dạng và đánh dấu các ô để đáp ứng điều kiện khi bạn cần, nhưng đôi khi, bạn có thể muốn phát âm thanh nếu một điều kiện được đáp ứng. Ví dụ: nếu giá trị ô trong A1 lớn hơn 300, tôi muốn phát âm thanh. Excel không hỗ trợ tính năng này, bài viết này, tôi sẽ giới thiệu một số mã VBA để giải quyết công việc này.

Phát tiếng bíp hệ thống mặc định dựa trên giá trị ô với mã VBA

Phát âm thanh tùy chỉnh dựa trên giá trị ô với mã VBA

Phát âm thanh nếu giá trị ô thay đổi trong một cột cụ thể với mã VBA


mũi tên màu xanh bong bóng bên phải Phát tiếng bíp hệ thống mặc định dựa trên giá trị ô với mã VBA

Đây là mã hữu ích để bạn phát âm thanh bíp hệ thống mặc định khi một điều kiện cụ thể được đáp ứng, vui lòng thực hiện như sau:

1. Giữ phím tắt ALT + F11 chìa khóa, sau đó nó mở Microsoft Visual Basic cho các ứng dụng cửa sổ.

2. Nhấp chuột Chèn > Mô-đunvà dán mã sau vào Mô-đun Cửa sổ.

Mã VBA: Phát tiếng bíp hệ thống mặc định dựa trên giá trị ô:

Function BeepMe() As String
    Beep
    BeepMe = ""
End Function

3. Sau đó, lưu và đóng cửa sổ mã này, quay lại trang tính và nhập công thức này: = IF (A1> 300, BeepMe (), "") vào một ô trống bên cạnh ô chứa giá trị bạn muốn phát âm thanh dựa trên đó, sau đó nhấn đăng ký hạng mục thi , không có gì sẽ được hiển thị trong ô công thức, hãy xem ảnh chụp màn hình:

doc phát âm thanh nếu conditon true 1

4. Và bây giờ, nếu giá trị đã nhập trong ô A1 lớn hơn 300, tiếng bíp hệ thống mặc định sẽ được phát.


mũi tên màu xanh bong bóng bên phải Phát âm thanh tùy chỉnh dựa trên giá trị ô với mã VBA

Nếu bạn muốn phát một số âm thanh khác ngoài tiếng bíp hệ thống mặc định, thì đây cũng là mã VBA có thể giúp bạn.

1. Giữ ALT + F11 chìa khóa, sau đó nó mở Microsoft Visual Basic cho các ứng dụng cửa sổ.

2. Nhấp chuột Chèn > Mô-đunvà dán mã sau vào Mô-đun Cửa sổ.

Mã VBA: Phát một âm thanh cụ thể dựa trên một giá trị ô:

#If Win64 Then
    Private Declare PtrSafe Function PlaySound Lib "winmm.dll" _
        Alias "PlaySoundA" (ByVal lpszName As String, _
        ByVal hModule As LongPtr, ByVal dwFlags As Long) As Boolean
#Else
    Private Declare Function PlaySound Lib "winmm.dll" _
        Alias "PlaySoundA" (ByVal lpszName As String, _
        ByVal hModule As Long, ByVal dwFlags As Long) As Boolean
#End If
Const SND_SYNC = &H0
Const SND_ASYNC = &H1
Const SND_FILENAME = &H20000
Function SoundMe() As String
'Updateby Extendoffice 20161223
    Call PlaySound("c:\windows\media\Speech On.wav", _
      0, SND_ASYNC Or SND_FILENAME)
    SoundMe = ""
End Function

3. Sau đó, lưu và đóng cửa sổ mã này, quay lại trang tính và nhập công thức này: = IF (A1> 300, SoundMe (), "")vào một ô trống bên cạnh ô chứa giá trị bạn muốn phát âm thanh dựa trên đó, sau đó nhấn đăng ký hạng mục thi , không có gì sẽ được hiển thị trong ô công thức, hãy xem ảnh chụp màn hình:

doc phát âm thanh nếu conditon true 2

4. Từ bây giờ, nếu giá trị lớn hơn 300 được nhập vào ô A1, một âm thanh cụ thể sẽ được phát cùng một lúc.

Chú ý: Trong đoạn mã trên, bạn có thể thay đổi tệp wav âm thanh theo nhu cầu của mình từ c: \ windows \ media \ đường dẫn tập tin. Xem ảnh chụp màn hình:

doc phát âm thanh nếu conditon true 3


mũi tên màu xanh bong bóng bên phải Phát âm thanh nếu giá trị ô thay đổi trong một cột cụ thể với mã VBA

Nếu bạn muốn phát âm thanh nếu giá trị ô thay đổi trong một cột cụ thể, bạn có thể áp dụng mã VBA sau.

1. Bấm chuột phải vào tab trang tính mà bạn muốn phát âm thanh khi giá trị thay đổi trong một cột, sau đó chọn Mã Chế độ xem từ menu ngữ cảnh và trong Microsoft Visual Basic cho các ứng dụng cửa sổ, sao chép và dán mã sau vào Mô-đun trống:

Mã VBA: Phát âm thanh nếu giá trị ô thay đổi trong một cột:

Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice 20161223
Dim xCell As Range
On Error Resume Next
If Target.Columns.Count = 1 Then
  If Intersect(Target, Columns(3)) Is Nothing Then
    Exit Sub
  Else
    For Each xCell In Columns(3)
        On Error Resume Next
        If (xCell.Value = Target.Value) And (xCell.Value <> "") Then
          Beep
          Exit For
        End If
     Next
  End If
End If
End Sub

doc phát âm thanh nếu conditon true 4

Chú thích: Trong đoạn mã trên, số 3 trong kịch bản Các cột (3) là số cột mà bạn muốn phát âm thanh khi giá trị thay đổi trong cột này.

2. Và sau đó lưu và đóng cửa sổ mã này, bây giờ, nếu giá trị ô thay đổi trong cột thứ ba, một tiếng bíp hệ thống mặc định sẽ được phát.

Công cụ năng suất văn phòng tốt nhất

Các tính năng phổ biến: Tìm, đánh dấu hoặc xác định các bản sao   |  Xóa hàng trống   |  Kết hợp các cột hoặc ô mà không làm mất dữ liệu   |   Vòng không có công thức hữu ích. Cảm ơn !
Siêu tra cứu: Nhiều tiêu chí VLookup    VLookup Nhiều Giá Trị  |   VLookup trên nhiều trang tính   |   Tra cứu mờ ....
Danh sách thả xuống nâng cao: Tạo nhanh danh sách thả xuống   |  Danh sách thả xuống phụ thuộc   |  Danh sách thả xuống nhiều lựa chọn ....
Trình quản lý cột: Thêm một số cột cụ thể  |  Di chuyển cột  |  Chuyển đổi trạng thái hiển thị của các cột ẩn  |  So sánh dãy và cột hữu ích. Cảm ơn !
Các tính năng nổi bật: Tiêu điểm lưới   |  Chế độ xem thiết kế   |   Thanh công thức lớn    Trình quản lý sổ làm việc & trang tính   |  Thư viện tài nguyên (Văn bản tự động)   |  Bảng chọn ngày   |  Kết hợp các bảng tính   |  Mã hóa/Giải mã ô    Gửi email theo danh sách   |  Siêu lọc   |   Bộ lọc đặc biệt (lọc in đậm/nghiêng/gạch ngang...) ...
15 bộ công cụ hàng đầu12 bản văn CÔNG CỤ (thêm văn bản, Xóa ký tự,...)   |   50 + Biểu đồ Các loại (Biểu đồ Gantt,...)   |   40+ Thực tế Công thức (Tính tuổi dựa trên ngày sinh,...)   |   19 chèn CÔNG CỤ (Chèn mã QR, Chèn ảnh từ đường dẫn,...)   |   12 Chuyển đổi CÔNG CỤ (Số thành từ, Chuyển đổi tiền tệ,...)   |   7 Hợp nhất & Tách CÔNG CỤ (Các hàng kết hợp nâng cao, Chia ô,...)   |   ... và nhiều hơn nữa

Nâng cao kỹ năng Excel của bạn với Kutools for Excel và trải nghiệm hiệu quả hơn bao giờ hết. Kutools for Excel cung cấp hơn 300 tính năng nâng cao để tăng năng suất và tiết kiệm thời gian.  Bấm vào đây để có được tính năng bạn cần nhất...

tab kte 201905


Tab Office mang lại giao diện Tab cho Office và giúp công việc của bạn trở nên dễ dàng hơn nhiều

  • Cho phép chỉnh sửa và đọc theo thẻ trong Word, Excel, PowerPoint, Publisher, Access, Visio và Project.
  • Mở và tạo nhiều tài liệu trong các tab mới của cùng một cửa sổ, thay vì trong các cửa sổ mới.
  • Tăng 50% năng suất của bạn và giảm hàng trăm cú nhấp chuột cho bạn mỗi ngày!
Comments (28)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
I have a school project. excel user form using for search a record using barcode.. Problem is that.. i want when trig a barcode specific text box value after update with a sound file each recorded ... means a student name appear in the background. for call on closing time.. pls guide...urgent
This comment was minimized by the moderator on the site
Your article is so good I like it very much, the latest audiobooks 2022 at horbuchkostenlos.de
This comment was minimized by the moderator on the site
Good site I love this website
This comment was minimized by the moderator on the site
Thanks for the article you shared, it was very helpful for me!!!Thank you very much
You can learn the sound here: <a href="https://sonneriesvip.com/">https://sonneriesvip.com/</a>;
This comment was minimized by the moderator on the site
Thanks for the article you shared, it was very helpful. Check out some more <a href="https://yofonts.com/">font free online</a> completely free.
This comment was minimized by the moderator on the site
Bonjour,Le code ne fonctionne pas,
Le code suivant est en rouge:Private Declare PtrSafe Function PlaySound Lib "winmm.dll" _
Alias "PlaySoundA" (ByVal lpszName As String, _
ByVal hModule As LongPtr, ByVal dwFlags As Long) As Boolean
Pour le code ci-dessous, j'ai un fichier mp3.Call PlaySound("c:\windows\media\Speech On.wav", _
0, SND_ASYNC Or SND_FILENAME)
Faut il laisser \Speech On.WavJ'ai essayé avec mp3 mais ça ne fonctionne pas.
Pouvez vous m'aider ?MerciCordialementRobert


This comment was minimized by the moderator on the site
Can i insert a mp3 sound with durations 1 hour?

Thank you very much
You can learn the chakushinon123
This comment was minimized by the moderator on the site
Nice Work! Thank you so much for the code, it was all that I needed
This comment was minimized by the moderator on the site
Not just photos or files. Sometimes you can insert a music file into the EX at https://klingeltonkostenlos.de/klingeltone-filmmusik-gratis/. This is an interesting thing, isn't it?
This comment was minimized by the moderator on the site
Grazie molte. ho utilizzato in modo proficuo tutti i tuoi esempi che sono stati chiari e illuminanti. aiuto prezioso
This comment was minimized by the moderator on the site
I am a business person, using Excel is too familiar. I usually save the names of tracks in execl so that it is simpler to find them than to save them in files. Great.The music I use for business comes from ZigTone.com.You can go there and study them, maybe it's good for you.
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations