Avatar billede kenn-s Nybegynder
23. november 2003 - 11:49 Der er 14 kommentarer

Excel lyd

når jeg indtaster tal i et regneark ønsker jeg at der automatisk afspilles en lydfil når en værdi et  andet felt overskrider en bestemt værdi.
Avatar billede swamboo Seniormester
23. november 2003 - 12:52 #1
Det kan man ikke mere - efter havd jeg kan se i objekt-browser i visual basic står der følgende om afspilning af lydfiler:

CanPlaySounds Property
This property should not be used. Sound notes have been removed from Microsoft Excel.

Men om der er en lusket måde at omgå det på ved jeg ikke...
Avatar billede bak Forsker
23. november 2003 - 18:37 #2
Indsæt denne kode i et modul


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"
Avatar billede laurbjerg Nybegynder
24. november 2003 - 11:24 #3
jeg er lige med på en lytter
Avatar billede laurbjerg Nybegynder
26. november 2003 - 11:13 #4
Hej Bak

Jeg har prøvet din makro, men når jeg retter henvisningen til lydfilen, bliver den rød markeret:

WAVFile = C:windows\media & "\ringin.wave"

hvad gør jeg lige forkert ?
Avatar billede bak Forsker
26. november 2003 - 12:14 #5
prøv lige sådan
WAVFile = "C:windows\media\ringin.wave"
Avatar billede laurbjerg Nybegynder
26. november 2003 - 12:28 #6
>bak

so far so god, men når man så skriver formlen i cellen, siger den "#navn?"
Avatar billede bak Forsker
26. november 2003 - 12:38 #7
Du har ikke funktionen i samme regneark som du har formlen
Avatar billede laurbjerg Nybegynder
26. november 2003 - 12:48 #8
>bak

????????????
Avatar billede bak Forsker
26. november 2003 - 13:14 #9
Avatar billede laurbjerg Nybegynder
26. november 2003 - 13:30 #10
>bak

Så fungerer formlen, men lyden er ikke den jeg beder den om. Jeg henviser til "ringin", men lyden er bare en kort "brummelyd" ?
Avatar billede bak Forsker
26. november 2003 - 15:58 #11
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
Avatar billede laurbjerg Nybegynder
28. november 2003 - 07:34 #12
Hej Bak

Bare for sjov. Er det muligt at sætte en Mp3 fil igang ved hjælp af denne makro ?
Avatar billede bak Forsker
28. november 2003 - 09:04 #13
Nej, det tror jeg ikke det er, desværre, men jeg vender tilbage hvis jeg finder en mulighed :-)
Avatar billede Kengun Praktikant
01. december 2003 - 14:16 #14
hm, men det er da muligt at gøre den mp3 fil om til en wav fil.
Avatar billede Ny bruger Nybegynder

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.

Loading billede Opret Preview
Kategori
Excel kurser for alle niveauer og behov – find det kursus, der passer til dig

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester