วิธีเล่นเสียงหากตรงตามเงื่อนไขใน 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. จากนั้นบันทึกและปิดหน้าต่างรหัสนี้ในตอนนี้หากค่าของเซลล์เปลี่ยนแปลงในคอลัมน์ที่สามระบบจะเล่นเสียงบี๊บเริ่มต้น