วิธีเล่นเสียงหากตรงตามเงื่อนไขใน Excel
ใน Excel เราสามารถใช้การจัดรูปแบบตามเงื่อนไขเพื่อจัดรูปแบบและไฮไลต์เซลล์ให้ตรงตามเงื่อนไขตามที่คุณต้องการ แต่บางครั้งคุณอาจต้องการเล่นเสียงหากตรงตามเงื่อนไข ตัวอย่างเช่นหากค่าเซลล์ใน A1 มากกว่า 300 ฉันต้องการให้เล่นเสียง Excel ไม่รองรับฟีเจอร์นี้บทความนี้จะแนะนำรหัส VBA เพื่อแก้ปัญหานี้
เล่นเสียงบี๊บเริ่มต้นของระบบตามค่าของเซลล์ด้วยรหัส VBA
เล่นเสียงที่กำหนดเองตามค่าของเซลล์ด้วยรหัส VBA
เล่นเสียงหากค่าของเซลล์เปลี่ยนแปลงในคอลัมน์เฉพาะด้วยรหัส VBA
เล่นเสียงบี๊บเริ่มต้นของระบบตามค่าของเซลล์ด้วยรหัส VBA
นี่คือรหัสที่มีประโยชน์สำหรับคุณในการเล่นเสียงบี๊บเริ่มต้นของระบบเมื่อตรงตามเงื่อนไขที่กำหนดโปรดทำตามนี้:
1. ค้างไว้ ALT + F11 จากนั้นจะเปิดไฟล์ Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง
2. คลิก สิ่งที่ใส่เข้าไป > โมดูลและวางรหัสต่อไปนี้ในไฟล์ โมดูล หน้าต่าง.
รหัส VBA: เล่นเสียงบี๊บเริ่มต้นของระบบตามค่าของเซลล์:
Function BeepMe() As String
Beep
BeepMe = ""
End Function
3. จากนั้นบันทึกและปิดหน้าต่างรหัสนี้กลับไปที่แผ่นงานแล้วป้อนสูตรนี้: = IF (A1> 300, BeepMe (), "") ลงในเซลล์ว่างข้างเซลล์มีค่าที่คุณต้องการให้เล่นเสียงจากนั้นกด เข้าสู่ คีย์จะไม่มีอะไรปรากฏในเซลล์สูตรดูภาพหน้าจอ:
4. และตอนนี้ถ้าค่าที่ป้อนในเซลล์ A1 มากกว่า 300 เสียงบี๊บเริ่มต้นของระบบจะเล่น
เล่นเสียงที่กำหนดเองตามค่าของเซลล์ด้วยรหัส VBA
หากคุณต้องการเล่นเสียงอื่นนอกเหนือจากเสียงบี๊บเริ่มต้นของระบบรหัส VBA สามารถช่วยคุณได้เช่นกัน
1. กด ALT + F11 จากนั้นจะเปิดไฟล์ Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง
2. คลิก สิ่งที่ใส่เข้าไป > โมดูลและวางรหัสต่อไปนี้ในไฟล์ โมดูล หน้าต่าง.
รหัส VBA: เล่นเสียงเฉพาะตามค่าของเซลล์:
#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. จากนั้นบันทึกและปิดหน้าต่างรหัสนี้กลับไปที่แผ่นงานและป้อนสูตรนี้: = IF (A1> 300, SoundMe (), "")ลงในเซลล์ว่างข้างเซลล์มีค่าที่คุณต้องการให้เล่นเสียงจากนั้นกด เข้าสู่ คีย์จะไม่มีอะไรปรากฏในเซลล์สูตรดูภาพหน้าจอ:
4. นับจากนี้เป็นต้นไปหากป้อนค่าที่มากกว่า 300 ในเซลล์ A1 เสียงที่เจาะจงจะเล่นพร้อมกัน
หมายเหตุ / รายละเอียดเพิ่มเติม: ในโค้ดด้านบนคุณสามารถเปลี่ยนไฟล์ wav เสียงตามความต้องการของคุณได้ c: \ windows \ สื่อ \ เส้นทางไฟล์ ดูภาพหน้าจอ:
เล่นเสียงหากค่าของเซลล์เปลี่ยนแปลงในคอลัมน์เฉพาะด้วยรหัส VBA
หากคุณต้องการเล่นเสียงหากค่าของเซลล์เปลี่ยนแปลงในคอลัมน์ใดคอลัมน์หนึ่งคุณสามารถใช้รหัส VBA ต่อไปนี้
1. คลิกขวาที่แท็บแผ่นงานที่คุณต้องการเล่นเสียงเมื่อค่าเปลี่ยนแปลงในคอลัมน์จากนั้นเลือก ดูรหัส จากเมนูบริบทและในเปิด Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่างคัดลอกและวางรหัสต่อไปนี้ลงในโมดูลเปล่า:
รหัส VBA: เล่นเสียงหากค่าของเซลล์เปลี่ยนแปลงในคอลัมน์:
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
หมายเหตุ: ในรหัสด้านบนหมายเลข 3 ในสคริปต์ คอลัมน์ (3) คือหมายเลขคอลัมน์ที่คุณต้องการเล่นเสียงเมื่อค่าเปลี่ยนแปลงในคอลัมน์นี้
2. จากนั้นบันทึกและปิดหน้าต่างรหัสนี้ในตอนนี้หากค่าของเซลล์เปลี่ยนแปลงในคอลัมน์ที่สามระบบจะเล่นเสียงบี๊บเริ่มต้น
สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน
เพิ่มพูนทักษะ Excel ของคุณด้วย Kutools สำหรับ Excel และสัมผัสประสิทธิภาพอย่างที่ไม่เคยมีมาก่อน Kutools สำหรับ Excel เสนอคุณสมบัติขั้นสูงมากกว่า 300 รายการเพื่อเพิ่มประสิทธิภาพและประหยัดเวลา คลิกที่นี่เพื่อรับคุณสมบัติที่คุณต้องการมากที่สุด...
แท็บ Office นำอินเทอร์เฟซแบบแท็บมาที่ Office และทำให้งานของคุณง่ายขึ้นมาก
- เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
- เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
- เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!
