Note: The other languages of the website are Google-translated. Back to English
English English

วิธีเล่นเสียงหากตรงตามเงื่อนไขใน 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 (), "") ลงในเซลล์ว่างข้างเซลล์มีค่าที่คุณต้องการให้เล่นเสียงจากนั้นกด เข้าสู่ คีย์จะไม่มีอะไรปรากฏในเซลล์สูตรดูภาพหน้าจอ:

doc เล่นเสียงถ้าเงื่อนไขเป็นจริง 1

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 (), "")ลงในเซลล์ว่างข้างเซลล์มีค่าที่คุณต้องการให้เล่นเสียงจากนั้นกด เข้าสู่ คีย์จะไม่มีอะไรปรากฏในเซลล์สูตรดูภาพหน้าจอ:

doc เล่นเสียงถ้าเงื่อนไขเป็นจริง 2

4. นับจากนี้เป็นต้นไปหากป้อนค่าที่มากกว่า 300 ในเซลล์ A1 เสียงที่เจาะจงจะเล่นพร้อมกัน

หมายเหตุ: ในโค้ดด้านบนคุณสามารถเปลี่ยนไฟล์ wav เสียงตามความต้องการของคุณได้ c: \ windows \ สื่อ \ เส้นทางไฟล์ ดูภาพหน้าจอ:

doc เล่นเสียงถ้าเงื่อนไขเป็นจริง 3


ลูกศรสีฟ้าฟองขวา เล่นเสียงหากค่าของเซลล์เปลี่ยนแปลงในคอลัมน์เฉพาะด้วยรหัส 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

doc เล่นเสียงถ้าเงื่อนไขเป็นจริง 4

หมายเหตุ: ในรหัสด้านบนหมายเลข 3 ในสคริปต์ คอลัมน์ (3) คือหมายเลขคอลัมน์ที่คุณต้องการเล่นเสียงเมื่อค่าเปลี่ยนแปลงในคอลัมน์นี้

2. จากนั้นบันทึกและปิดหน้าต่างรหัสนี้ในตอนนี้หากค่าของเซลล์เปลี่ยนแปลงในคอลัมน์ที่สามระบบจะเล่นเสียงบี๊บเริ่มต้น


เครื่องมือเพิ่มประสิทธิภาพการทำงานในสำนักงานที่ดีที่สุด

Kutools สำหรับ Excel ช่วยแก้ปัญหาส่วนใหญ่ของคุณและเพิ่มผลผลิตของคุณได้ถึง 80%

  • นำมาใช้ใหม่: ใส่อย่างรวดเร็ว สูตรที่ซับซ้อนแผนภูมิ และสิ่งที่คุณเคยใช้มาก่อน เข้ารหัสเซลล์ ด้วยรหัสผ่าน; สร้างรายชื่อผู้รับจดหมาย และส่งอีเมล ...
  • ซุปเปอร์ฟอร์มูล่าบาร์ (แก้ไขข้อความและสูตรหลายบรรทัดได้อย่างง่ายดาย); การอ่านเค้าโครง (อ่านและแก้ไขเซลล์จำนวนมากได้อย่างง่ายดาย); วางลงในช่วงที่กรองแล้ว...
  • ผสานเซลล์ / แถว / คอลัมน์ โดยไม่สูญเสียข้อมูล แยกเนื้อหาของเซลล์ รวมแถว / คอลัมน์ที่ซ้ำกัน... ป้องกันเซลล์ซ้ำ; เปรียบเทียบช่วง...
  • เลือกซ้ำหรือไม่ซ้ำ แถว; เลือกแถวว่าง (เซลล์ทั้งหมดว่างเปล่า); Super Find และ Fuzzy Find ในสมุดงานจำนวนมาก สุ่มเลือก ...
  • สำเนาถูกต้อง หลายเซลล์โดยไม่เปลี่ยนการอ้างอิงสูตร สร้างการอ้างอิงอัตโนมัติ ถึงหลายแผ่น ใส่สัญลักษณ์แสดงหัวข้อย่อย, กล่องกาเครื่องหมายและอื่น ๆ ...
  • แยกข้อความ, เพิ่มข้อความ, ลบตามตำแหน่ง, ลบ Space; สร้างและพิมพ์ผลรวมย่อยของเพจ แปลงระหว่างเนื้อหาของเซลล์และความคิดเห็น...
  • ซุปเปอร์ฟิลเตอร์ (บันทึกและใช้โครงร่างตัวกรองกับแผ่นงานอื่น ๆ ); การเรียงลำดับขั้นสูง ตามเดือน / สัปดาห์ / วันความถี่และอื่น ๆ ตัวกรองพิเศษ โดยตัวหนาตัวเอียง ...
  • รวมสมุดงานและแผ่นงาน; ผสานตารางตามคอลัมน์สำคัญ แยกข้อมูลออกเป็นหลายแผ่น; Batch แปลง xls, xlsx และ PDF...
  • คุณสมบัติที่ทรงพลังมากกว่า 300 รายการ. รองรับ Office / Excel 2007-2019 และ 365 รองรับทุกภาษา ใช้งานง่ายในองค์กรหรือองค์กรของคุณ ทดลองใช้ฟรี 30 วันเต็ม รับประกันคืนเงิน 60 วัน
kte แท็บ 201905

แท็บ Office นำอินเทอร์เฟซแบบแท็บมาที่ Office และทำให้งานของคุณง่ายขึ้นมาก

  • เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
  • เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
  • เพิ่มผลผลิตของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!
ด้านล่าง officetab
จัดเรียงความคิดเห็นโดย
ความคิดเห็น (27)
ยังไม่มีการให้คะแนน เป็นคนแรกที่ให้คะแนน!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี ฉันพยายามใช้เล่นเสียงที่กำหนดเองตามค่าของเซลล์ด้วยรหัส VBA แต่ฉันมีปัญหา นี่คือตัวอย่าง: ฉันมีเวลานับถอยหลังในเซลล์ A1 ซึ่งหมายถึงการเปลี่ยนแปลงค่าต่อวินาที จากนั้นในเซลล์ B1 ฉันได้แทรก =8/(24*60) ในรูปแบบ 0:08:00 ดังนั้น ถ้าฉันใช้เพื่อเรียกเสียงก็คือถ้า B1>A1,SoundMe(),"" แต่เสียงจะไม่เป็น ได้ยิน. ฉันได้ยินเสียงเหมือนมีบางอย่างวนซ้ำ และฉันเดาว่ามันน่าจะเกี่ยวข้องกับข้อเท็จจริงที่ว่าค่านั้นเปลี่ยนแปลงไปแบบไดนามิก จากนั้นฉันพยายามแก้ไขรหัสในส่วน Call PlaySound("c:\windows\media\Speech On.wav", _ 0, SND_ASYNC หรือ SND_FILENAME) ฉันเปลี่ยน SND_ASYNC ด้วย SND_SYNC วิธีนี้ฉันสามารถเล่นเสียงได้ แต่มันเล่นซ้ำตลอดไป มีวิธีแก้ไหม เช่น เรียกเสียงเพียงครั้งเดียว หมายถึง แค่ครั้งแรกที่ตรงตามเกณฑ์แล้วหยุด ?? ขอบคุณมาก
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ฉันรักบทความของคุณ ขอบคุณสำหรับบทความแบ่งปัน


ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
บทความดีๆ ฟังเพลงได้ที่ https://bruitagesgratuits.com
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี ผู้ดูแลระบบ โปรดบอก ถ้าฉันต้องการบันทึกไฟล์เสียงในไฟล์ excel และฉันจะเปิดไฟล์ excel ของฉันในคอมพิวเตอร์เครื่องใดก็ได้ ฉันจะได้ยินเสียงนั้นไหม ???
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี เชอซาด
หากคุณใช้รหัส VBA ที่หนึ่งและสามเพื่อเล่นเสียงบี๊บของระบบเริ่มต้น คุณจะได้ยินเสียงจากคอมพิวเตอร์เครื่องอื่น แต่ด้วยโค้ด vba ตัวที่สอง คุณควรตั้งค่าเสียงที่กำหนดเองตามความต้องการของคุณ

หมายเหตุ: คุณควรบันทึกเวิร์กบุ๊กเป็นรูปแบบ Excel Macro-Enabled Workbook
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
=if B1<>A1,SoundMe(),"" 希望可以幫到你
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
รหัสไม่ทำงานสิ่งที่ฉันทำได้
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี ผอ. ฉันกำลังพยายามสร้างคำสั่ง "IF" ผ่าน VBA ซึ่งจะฟังประโยคเฉพาะเมื่อถึงเงื่อนไขที่กำหนดไว้ล่วงหน้า คุณช่วยฉันหน่อยได้ไหม
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี ผอ. ฉันกำลังพยายามสร้างคำสั่ง "IF" ผ่าน VBA ซึ่งจะฟังประโยคเฉพาะเมื่อถึงเงื่อนไขที่กำหนดไว้ล่วงหน้า คุณช่วยฉันหน่อยได้ไหม
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ฉันเพิ่งดาวน์โหลดเสียง chakushinon123
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ดี

ขอบคุณ
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สูตร Quando colo essa recebo um erro, como se estivesse faltando valor entra เป็น aspas = IF (A1> 300, BeepMe (), "")
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ที่น่ารักและสอนได้ดีมาก สนุกกับมันมาก ขอบคุณมาก!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สำหรับเสียงที่น่าสนใจเพิ่มเติม คุณสามารถไปที่https://tonosdellamadacanciones.com/</a>; เพื่อดาวน์โหลดเสียงล่าสุดและเจ๋งที่สุดบนแท็บยอดนิยมจากประเทศต่างๆ ทั่วโลก
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
Аниматоры в Белгороде благодарят вас! สปาซิโบ. Мы на детских праздниках постоянно используем музыку. От этого любой детский праздник в сто раз ярче и веселее!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี

มีวิธีแก้ไขใดบ้างที่ต้องการเปิดใช้งานเสียงเพียงครั้งเดียวหมายความว่าตรงตามเกณฑ์แรกแล้วหยุด ??

ขอบคุณมาก
คุณสามารถเรียนรู้เสียงที่นี่:https://sonneriepro.com/samsung/</a>;
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ขอขอบคุณ! Мы на детских праздниках используем разную музыку - https://surprise-show.com 
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ฉันเป็นนักธุรกิจ การใช้ Excel เป็นเรื่องที่คุ้นเคย ฉันมักจะบันทึกชื่อแทร็กใน execl เพื่อให้ค้นหาได้ง่ายกว่าการบันทึกในไฟล์ เยี่ยม เพลงที่ฉันใช้สำหรับธุรกิจมาจาก ZigTone.com คุณสามารถไปที่นั่นและศึกษามัน บางทีมันอาจจะดีสำหรับคุณ
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
Grazie ลอกคราบ ho utilizzato ใน modo proficuo tutti ฉัน tuoi esempi che sono stati chiari e illuminanti aiuto prezioso
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ไม่ใช่แค่รูปถ่ายหรือไฟล์ บางครั้งคุณสามารถแทรกไฟล์เพลงลงใน EX ได้ที่ https://klingeltonkostenlos.de/klingeltone-filmmusik-gratis/. นี่เป็นสิ่งที่น่าสนใจใช่ไหม
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
งานดี! ขอบคุณมากสำหรับรหัส มันคือทั้งหมดที่ฉันต้องการ
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
บงฌูร์, เล โค้ดเน ฟอนชันเน ปาส,
รหัส suuivant est en rouge:Private Declare PtrSafe Function PlaySound Lib "winmm.dll" _
นามแฝง "PlaySoundA" (ByVal lpszName As String, _
ByVal hModule As LongPtr, ByVal dwFlags ตราบใด) As Boolean
เทโค้ด ci-dessous, j'ai un fichier mp3.Call PlaySound("c:\windows\media\Speech On.wav", _
0, SND_ASYNC หรือ SND_FILENAME)
Faut il laisser \Speech On.WavJ'aiเรียงความ avec mp3 mais ça ne fonctionne pas.
Pouvez vous m'aider ?MerciCordialementโรเบิร์ต


ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ฉันสามารถแทรกเสียง mp3 ที่มีระยะเวลา 1 ชั่วโมงได้หรือไม่?

ขอบคุณมาก
คุณสามารถเรียนรู้ chakushinon123
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ขอบคุณสำหรับบทความที่คุณแบ่งปัน มันมีประโยชน์มาก ตรวจสอบ แบบอักษรเพิ่มเติมออนไลน์ฟรี บางส่วนฟรี
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ขอบคุณสำหรับบทความที่คุณแบ่งปัน มันมีประโยชน์มากสำหรับฉัน!!!ขอบคุณมาก
คุณสามารถเรียนรู้เสียงที่นี่:https://sonneriesvip.com/</a>;
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
เว็บไซต์ที่ดี ฉันรักเว็บไซต์นี้
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
บทความของคุณดีมาก ฉันชอบมันมาก หนังสือเสียงล่าสุดปี 2022 ที่ horbuchkostenlos.de
มีความคิดเห็นยังไม่มีการโพสต์ที่นี่
แสดงความคิดเห็นของคุณ
โพสต์ในฐานะแขก
×
ให้คะแนนโพสต์นี้:
0   ตัวอักษร
สถานที่แนะนำ