วิธีทำให้ excel มีเสียงเตือนตามค่าที่เราต้องการ

[ตูมตาม สีดำ]

รบกวนสอบถามอาจารย์ครับ
เนื่องจากผมพึ่งเริ่มใช้ excel ครับมีเรื่องสอบถามคือว่า ผมได้นำเข้าข้อมูลจาก web เข้ามาโดยผมตั้งเงื่อนไขโดยใช้ conditional formatting
แสดงเป็นสีแดงเมื่อค่าใน cell มีค่าที่เราต้องการครับ และผมอยากเพิ่มเสียงเตือนเข้าไปด้วยครับจึงรบกวนขอสอบถามอาจารย์ครับ
excel ที่ใช้ version 2007 ครับ

[snasui]

ไม่สามารถกำหนด Conditional Formatting ให้เพิ่มเสียงเตือนได้ครับ การก่อให้เกิดเสียง เกิดกล่องโต้ตอบอื่นใดต้องเขียนด้วย VBA (Visual Basic for Application) หมายถึง Code ควบคุมการทำงานของ Excel ซึ่งต้องเขียนมาเองก่อนตามกฏการใช้บอร์ดข้อ 5 ด้านบน ติดตรงไหนค่อยถามกันต่อครับ

[ตูมตาม สีดำ]

เรียนสอบถามอาจารย์อีกครั้งครับ
จากคำถามเดิมที่เคยถามไว้ครับ ผมได้เขียน VBA แบบลองผิดลองถูก ซึ่งเขียนผมได้แค่ว่าเมื่อค่าในเซลล์เท่ากับที่เราต้องการจะแสดงออกมาเป็น text ครับ ผมจึงขอสอบถามอาจาย์ครับว่าผมต้องใช้ code อะไรที่ทำให้มีเสียงได้ครับ
ผมได้แนบไฟล์ตัวอย่างที่เขียน VBA ไว้ด้วยครับ

[snasui]

ตัวอย่าง Code ออกเสียงค่าตามผลลัพธ์สูตรครับ

Code: Select all

Function Inverter(t) As String
    If t = "0 W" Then
        s = "Trip"
    Else
        s = "Normal"
    End If
        Inverter = s
        Application.Speech.Speak s
End Function

[ตูมตาม สีดำ]

ขอบคุณครับอาจารย์มีเสียงตาม text แล้วครับ
ขอเป็นความรู้เพิ่มเติมนะครับ ถ้าผมจะเปลี่ยนเสียงที่จะแสดงออกมาตาม text เป็นเสียงไซเรนฉุกเฉิน ประมาณแบบเสียงรถตำรวจสามารถทำได้ไหมครับ

[snasui]

สามารถทำได้แต่ต้องมีเสียงนั้นอยู่ในเครื่องเสียก่อนแล้วค่อยเเรียกใช้ด้วย VBA ดูตัวอย่างการใช้ API ของ Windows เพื่อเรียกไฟล์เสียงตาม Link นี้ครับ https://stackoverflow.com/questions/944 ... -using-vba

[ตูมตาม สีดำ]

อาจารย์ครับจากคำถามที่แล้ว ที่ถามว่าวิธีเปลี่ยนจากให้ VBA แสดงเสียงออกมาตาม text แล้วผมจะใช้เป็นเสียงไซเรน ผมติดปัญหา VBA ตามไฟล์และภาพที่แนบครับ รบกวนอาจารย์ช่วยชี้แนะด้วยครับ

[snasui]

ตัวอย่าง Code การเรียกใช้ PlayIt ครับ

Code: Select all

Function Inverter(t) As String
    Dim s As String
    If t = "0 W" Then
        s = "Trip"
    End If
    Inverter = s
'   Application.PlayIt.PlayTheSound "tt.wav"
    Call PlayIt
End Function

[ตูมตาม สีดำ]

ขอบคุณครับอาจารย์ใช้ได้แล้วครับ

[nettory]

ผมขออนุญาตดันคำถามนี้ขึ้นมาสอบถามครับ

ผมอ่านและลองทำตามแล้วมีเสียงเตือนเวลาตรงเงื่อนไขที่เรากำหนด แต่ทีนี้ถ้าเราต้องการทำปุ่มปิดเสียงเตือนนี้เฉพาะไฟล์ เอาไว้เปิด-ปิดเวลาที่เราต้องการได้ไหมครับ พอดีมันเตือนบ่อยครับ

ขอบคุณครับ

[snasui]

กรุณาทำมาเองก่อน ติดตรงไหนค่อยนำปัญหามาถามกันต่อ

สำหรับการสอบถามเกี่ยวกับ VBA จำเป็นต้องเขียนมาเองก่อนเสมอตามกฎการใช้บอร์ดข้อ 5 ด้านบน ครับ