*

Help!

PC-Problemen?
De vrijwilligers van Oplossing.be zoeken gratis met u mee!

Hulp bij posten

Recente topics

Pagina's: [1]   Omlaag

Auteur Topic: Alarm in Excel  (gelezen 5178 keer)

0 leden en 1 gast bekijken dit topic.

Offline EricV

  • Volledig lid
  • **
  • Berichten: 138
  • Oplossing.be
Alarm in Excel
« Gepost op: 15 december 2003, 08:53:00 »
Goedemorgen Excellers,

Vorige week heb ik een invoegtoepassing voor Excel gevonden op Internet waarmee het mogelijk is in Excel op aangegeven tijdstippen een alarm af te laten gaan. Voor de volledigheid hieronder de tekst van de macro :

Option Explicit

Sub my_Procedure()
    Dim i As Integer
   
    With ThisWorkbook.Sheets(1)
    For i = .Range("A1").CurrentRegion.Rows.Count To 1 Step -1
        If .Cells(i, 1).Value <= Now() Then
            Beep
            MsgBox .Cells(i, 2).Value, vbInformation, "Tea-Time"
            .Cells(i, 1).EntireRow.Delete
        End If
    Next
    End With
    ThisWorkbook.Save
End Sub


Ik ben een complete leek op het gebied van VBA. Ik heb nu de volgende vraag:

Is het mogelijk het geluidje dat ik te horen krijg (de BEEP in de macro) te vervangen door een ander geluid of een melodietje (bv. een WAVE-file) ?
Indien dit mogelijk is wil je dan de macro aub. zodanig aanpassen dat ik deze kan kopieren en terugzetten in Excel ?

De auteur van deze macro is Luc Heyndrickx en ik wil hem hiervoor bedanken.

Ben benieuwd naar jullie reacties.

Bedankt,

Eric
Gelogd
Gelieve uw systeemgegevens in te vullen. Klik HIER voor meer informatie.

Offline EricV

  • Volledig lid
  • **
  • Berichten: 138
  • Oplossing.be
Re:Alarm in Excel
« Reactie #1 Gepost op: 17 december 2003, 10:36:07 »
Goedmorgen,

Helaas heb ik nog geen enkele reactie ontvangen op mijn vraag. Is er geen enkele oplossing mogelijk ?

gr.
Eric
Gelogd
Gelieve uw systeemgegevens in te vullen. Klik HIER voor meer informatie.

Offline Ingrid B

  • Volledig lid
  • **
  • Berichten: 153
  • Ingrid Baplue Microsoft MVP Excel
Re:Alarm in Excel
« Reactie #2 Gepost op: 17 december 2003, 18:07:51 »
Vervang Beep door Shell "Start C:\WINDOWS\MEDIA\LOGOFF.WAV"
Gelogd
Gelieve uw systeemgegevens in te vullen. Klik HIER voor meer informatie.

Offline EricV

  • Volledig lid
  • **
  • Berichten: 138
  • Oplossing.be
Re:Alarm in Excel
« Reactie #3 Gepost op: 19 december 2003, 15:24:30 »
Ingrid,

Helaas werkt dit niet. Geeft een foutmelding.
Werk met Windows XP en Excel 2000, en ik weet niet of dit verschil uitmaakt.

Gr.
Eric









Gelogd
Gelieve uw systeemgegevens in te vullen. Klik HIER voor meer informatie.

Offline Ingrid B

  • Volledig lid
  • **
  • Berichten: 153
  • Ingrid Baplue Microsoft MVP Excel
Re:Alarm in Excel
« Reactie #4 Gepost op: 19 december 2003, 16:29:23 »
Citaat van: EricV op 19 december 2003, 15:24:30
Werk met Windows XP en Excel 2000, en ik weet niet of dit verschil uitmaakt.
Dat is inderdaad de oorzaak, Windows NT en Windows XP willen een Shell-instructie zo niet uitvoeren. Plaats deze code bovenaan in de module:

Private Declare Function ShellExecute Lib "shell32.dll" _
  Alias "ShellExecuteA" (ByVal hWnd As Long, _
  ByVal lpOperation As String, ByVal lpFile As String, _
  ByVal lpParameters As String, ByVal lpDirectory As String, _
  ByVal nShowCmd As Long) As Long

en vervang dan de Beep (of Shell-instructie) door:

  Call ShellExecute(0&, vbNullString, "C:\I386\RINGIN.WAV", _
    vbNullString, vbNullString, vbNormalFocus)
Gelogd
Gelieve uw systeemgegevens in te vullen. Klik HIER voor meer informatie.

Offline EricV

  • Volledig lid
  • **
  • Berichten: 138
  • Oplossing.be
Re:Alarm in Excel
« Reactie #5 Gepost op: 23 december 2003, 08:43:01 »
Goedemorgen Ingrid,

Gisteravond heb ik thuis jouw oplossing geprobeerd en het werkt !
Toch zou ik graag nog een paar verfijningen in deze macro willen, indien mogelijk.

1. Als er een alarmtijdstip is aangebroken dan speelt hij het gekoppelde WAV-bestandje af via de Windows Media Player.
Als het geluidje is afgelopen dan blijft de Windows M.P. geopend en die moet ik dan handmatig sluiten.
Kan dit ingebouwd worden in de macro dat hij automatisch sluit en dan terugkeert naar Excel ?
2. Voordat de Media Player zich opent om het geluidje af te spelen zie ik eerst een Message Box waarin ik moet klikken op OK moet klikken om door te kunnen gaan naar het geluid.
Ook hoor ik dan een biep (BEEP in de macro heb ik echter wel uitgeschakeld). Misschien dat de message box en de beep achterwege kunnen blijven en dat het gekoppelde geluid meteen wordt afgespeeld bij het bereiken van de alarmtijd.

Ingrid, vandaag is mijn laatste werkdag en omdat ik thuis geen internet heb kan ik op jouw eventuele reactie niet eerder reageren dan op mijn eerste werkdag in het nieuwe jaar, nl. 5 januari.

Nogmaals bedankt voor alle hulp die ik van je heb mogen ontvangen sinds ik lid ben van dit forum !

Ik wens je Prettige Kerstdagen en een Gelukkig Nieuwjaar !

Eric
Gelogd
Gelieve uw systeemgegevens in te vullen. Klik HIER voor meer informatie.

Offline Ingrid B

  • Volledig lid
  • **
  • Berichten: 153
  • Ingrid Baplue Microsoft MVP Excel
Re:Alarm in Excel
« Reactie #6 Gepost op: 04 januari 2004, 19:37:40 »
1) Het afsluiten zal waarschijnlijk wel gaan door gebruik te maken van API's, maar daar hou ik me (nog) niet mee bezig, sorry.

2) Ik slaag er niet in om een melding te krijgen en kan het dus ook niet testen om het te voorkomen, maar misschien helpt het door volgende regel voor de Call te plaatsen:

Application.DisplayAlerts = False
Gelogd
Gelieve uw systeemgegevens in te vullen. Klik HIER voor meer informatie.
Pagina's: [1]   Omhoog
 


www.combell.com