สอบถามครับการใส่เสียง excel

[Leng]

สิ่งที่ต้องการ
- อยากให้เวลาสแกนมีเสียงครับคืออยากให้เวลาข้อมูลบันทึกมีเสียงครับ
- เวลาไม่มีข้อมูลอยากให้ขึ้นอีกเสียงครับ

Code: Select all

Private Sub TextBox5_AfterUpdate()
Dim SoundFile As String, rc As Long
SoundFile = "C:\Users\Administrator\Downloads\A_Drum.wav"

With Workbooks("DataX.xlsx").Worksheets("Sheet1")
Set rngVlp = .Range("a2", .Range("d" & .Rows.Count).End(xlUp))
If Me.TextBox5.Text = "" Then Exit Sub
If WorksheetFunction.CountIf(Workbooks("DataX.xlsx").Worksheets("Sheet1").Range("A:D"), Me.TextBox5.Value) = 0 Then
'Me.TextBox5.Value = ""
MsgBox "Not found."
Exit Sub
End If
    Me.TextBox6.Text = Application.VLookup(CLng(Me.TextBox5.Text), rngVlp, 2, 0)
    Me.TextBox7.Text = Application.VLookup(CLng(Me.TextBox5.Text), rngVlp, 3, 0)
    Me.TextBox8.Text = Application.VLookup(CLng(Me.TextBox5.Text), rngVlp, 4, 0)
End With
With ThisWorkbook.Worksheets("IN")
    emptyrow = .Range("a" & .Rows.Count).End(xlUp).Offset(1, 0).Row
   End With
    With Worksheets("IN")
        .Cells(emptyrow, 1).Value = TextBox1.Value
        .Cells(emptyrow, 2).Value = TextBox2.Value
        .Cells(emptyrow, 3).Value = TextBox4.Value
        .Cells(emptyrow, 4).Value = ComboBox1.Value
        .Cells(emptyrow, 5).Value = TextBox5.Value
        .Cells(emptyrow, 6).Value = TextBox6.Value
        .Cells(emptyrow, 7).Value = TextBox7.Value
        .Cells(emptyrow, 8).Value = TextBox8.Value
        .Cells(emptyrow, 9).Value = TextBox9.Value
    End With
End Sub

[snasui]

การเรียกไฟล์เสียงไม่ง่ายสำหรับมือใหม่ครับ

ดูตัวอย่างที่นี่ครับ https://www.snasui.com/viewtopic.php?t=11648

[Leng]

อาจารย์ครับตอนนี้มีเสียงแล้วแต่เวลา แสกนไม่มีมีเสียง ครับ

Code: Select all

Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" _
(ByVal lpstrCommand As String, ByVal lpstrReturnString As String, _
ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
Sub notift()
    Dim SoundFile As String, rc As Long
    SoundFile = "C:\WINDOWS\Media\ringout.wav"
    rc = mciSendString("Play " & SoundFile, "", 0, 0)
    Debug.Print rc
End Sub

ผมไม่รู้ตั้งอะไรผิดรบกวนอาจารย์ช่วยดูหน่อยครับ

[snasui]

การจะให้เสียงทำงานจะต้อง Call จาก Code ที่ทำงานเมื่อมีการ Scan ครับ

Code ที่ทำงานเมื่อมีการ Scan เขียนไว้ว่าอย่างไร เขียนเรียกไฟล์เสียงแล้วหรือไม่ โพสต์ประกอบมาด้วยจะได้ช่วยดุให้ได้ครับ

[Leng]

Code: Select all

Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" _
(ByVal lpstrCommand As String, ByVal lpstrReturnString As String, _
ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long

Sub Sample2()
Worksheets("in").Range("A3:D1048576") = ""
    Dim SoundFile As String, rc As Long
    SoundFile = "C:\Windows\Media\tada.wav"
    If Dir(SoundFile) = "" Then
        MsgBox SoundFile & vbCrLf & "isNothing", vbExclamation
        Exit Sub
    End If
    rc = mciSendString("Play " & SoundFile, "", 1, 0)
End Sub

รบกวนอาจารย์ช่วยดูหน่อยครับ

[snasui]

ไฟล์ล่าสุดนี้ผมไม่สามารถเปิดดูได้

กรุณาแนบมาใหม่ ตัด Code ที่ไม่เกี่ยวข้องทิ้งไปเช่นการขยาย Form การซ่อนเมนู ฯลฯ ครับ

[Leng]

รบกวนอาจารย์ด้วยครับ

[snasui]

อยากให้เวลาสแกนมีเสียงครับคืออยากให้เวลาข้อมูลบันทึกมีเสียงครับ

ตัวอบ่างการ Call Procedure เมื่อมีการสแกนแล้วเรียกไฟล์เสียงครับ

Code: Select all

'Other code
With Worksheets("IN")
    .Cells(emptyrow, 1).Value = TextBox1.Value
    .Cells(emptyrow, 2).Value = TextBox2.Value
    .Cells(emptyrow, 3).Value = TextBox4.Value
    .Cells(emptyrow, 4).Value = ComboBox1.Value
    .Cells(emptyrow, 5).Value = TextBox5.Value
    .Cells(emptyrow, 6).Value = TextBox6.Value
    .Cells(emptyrow, 7).Value = TextBox7.Value
    .Cells(emptyrow, 8).Value = TextBox8.Value
    .Cells(emptyrow, 9).Value = TextBox9.Value
    Call Sample2
End With
'Other code

หากมีเงื่อนไขว่ากรณีมีการบันทึกให้เรียกไฟล์เสียงไฟล์หนึ่ง หากไม่มีการบันทึกให้เรียกไฟล์เสียงอีกไฟล์หนึ่ง ลองปรับปรุง Code มาเองก่อนติดแล้วค่อยถามกันครับ

[Leng]

ได้ละครับขอบพระคุณมากครับ