Private Declare Function PlaySound Lib "winmm.dll" _ Alias "PlaySoundA" (ByVal lpszName As String, _ ByVal hModule As Long, ByVal dwFlags As Long) As Long
Function Alarm(Cell, Condition) Dim WAVFile As String Const SND_ASYNC = &H1 Const SND_FILENAME = &H20000 On Error GoTo ErrHandler If Evaluate(Cell.Value & Condition) Then WAVFile = ThisWorkbook.Path & "\sound.wav" Call PlaySound(WAVFile, 0&, SND_ASYNC Or SND_FILENAME) Alarm = True Exit Function End If ErrHandler: Alarm = False End Function
Herefter kan koden bruges i et regneark således: =alarm(B13;">=1000")
Dette vil få excel til at afspille lydfilen, når B13 kommer over 1000 Bemærk at du nok skal rette på henvisningen til lydfilen til det sted hvor DIN lydfile ligger. WAVFile = ThisWorkbook.Path & "\sound.wav"
tjah, det må være noget windows sjov. Jeg har faktisk det problem at på mit arbejde fungerer den ikke, men hjemme virker den bare godt og begge steder bruger jeg win2000/excel2000
hm, men det er da muligt at gøre den mp3 fil om til en wav fil.
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.