Risultati da 1 a 15 di 15

Discussione: avviso sonoro per scadenziario



  1. #1
    L'avatar di Worm46
    Clicca e Apri
    Data Registrazione
    Apr 2016
    LocalitÓ
    Catania
    Messaggi
    4
    Versione Office
    2010
    Likes ricevuti
    0
    Likes dati
    1

    avviso sonoro per scadenziario

    Salve..
    avrei bisogno che, nel file allegato, in prossimitÓ della scadenza si visualizzi un messaggio e magari anche il sonoro..
    vi ringrazio anticipatamente per la collaborazione..
    Saluti Carmine
    File Allegati File Allegati

  2. #2
    L'avatar di A.Maurizio
    Clicca e Apri
    Data Registrazione
    Aug 2015
    LocalitÓ
    Torino
    EtÓ
    56
    Messaggi
    383
    Versione Office
    2013
    Likes ricevuti
    44
    Likes dati
    0

    Re: avviso sonoro per scadenziario

    Ciao Worm46 Guarda sŔ ci˛ che ti propongo io ti pu˛ Star bene .
    In Caso Contrario Fammi Sapere !

    In Pratica :

    Codice: 
    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    On Error Resume Next
    If Range("J2:J250").Value <= 3 Then
    Call MioSuono
    Else
    End If
    End Sub
    E Poi ho Aggiunto All'interno di un modulo Questa procedura :

    Codice: 
    Private Declare Function Play Lib "WINMM.DLL" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
    
    
    Public 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
    
    
    Public Const SW_NORMAL = 1
    
    
    Dim Ret As Long
    Dim file As String
    
    
    Sub MioSuono()
    MsgBox ("Ti Mancano 3 Giorni Alla Scadenza"), vbInformation, "Attenzione"
    file = ThisWorkbook.Path & ("\FileAudio\gong.wav")
    Ret = Play(file, SND_ASYNC)
    End Sub
    Che richiama il File Audio chiamato Boing che ti ho inserito all'interno della tua Cartella di lavoro , Tutto qui Ciao da Maurizio
    File Allegati File Allegati
    Ultima modifica fatta da:cromagno; 06/04/16 alle 13:02 Motivo: Inserito codice tra i tag CODE...

  3. I seguenti 2 utenti hanno dato un "Like" a A.Maurizio per questo post:


  4. #3

    L'avatar di cromagno
    Clicca e Apri
    Data Registrazione
    Aug 2015
    LocalitÓ
    Sardegna
    EtÓ
    37
    Messaggi
    4020
    Versione Office
    2013
    Likes ricevuti
    1228
    Likes dati
    923

    Re: avviso sonoro per scadenziario

    Ciao a tutti,

    @A.Maurizio
    grazie come sempre per i tuoi interventi ma.... visto che non Ŕ nŔ la prima nŔ la seconda volta che inserisco i tuoi codici tra i tag appropriati ([CODE]), potresti cercare di ricordartene in futuro?!?
    Grazie

    Tore

    "Sono le persone che nessuno immagina che possano fare certe cose, quelle che fanno cose che nessuno pu˛ immaginare."

  5. #4

    L'avatar di ges
    Clicca e Apri
    Data Registrazione
    Jun 2015
    LocalitÓ
    Como
    EtÓ
    53
    Messaggi
    7149
    Versione Office
    2011MAC 2016WIN
    Likes ricevuti
    2064
    Likes dati
    1300

    Re: avviso sonoro per scadenziario

    Grazie Maurizio della condivisione.
    Quando si scartano tutte le ipotesi possibili, quella che resta, anche se pu˛ sembrare improbabile, non pu˛ che essere quella giusta!

  6. #5
    L'avatar di Worm46
    Clicca e Apri
    Data Registrazione
    Apr 2016
    LocalitÓ
    Catania
    Messaggi
    4
    Versione Office
    2010
    Likes ricevuti
    0
    Likes dati
    1

    Re: avviso sonoro per scadenziario

    Ok perfetto, grazie mille Maurizio.. provo a lavorarci un po' su:166:

    Citazione Originariamente Scritto da A.Maurizio Visualizza Messaggio
    Ciao Worm46 Guarda sŔ ci˛ che ti propongo io ti pu˛ Star bene .
    In Caso Contrario Fammi Sapere !

    In Pratica :

    Codice: 
    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    On Error Resume Next
    If Range("J2:J250").Value <= 3 Then
    Call MioSuono
    Else
    End If
    End Sub
    E Poi ho Aggiunto All'interno di un modulo Questa procedura :

    Codice: 
    Private Declare Function Play Lib "WINMM.DLL" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
    
    
    Public 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
    
    
    Public Const SW_NORMAL = 1
    
    
    Dim Ret As Long
    Dim file As String
    
    
    Sub MioSuono()
    MsgBox ("Ti Mancano 3 Giorni Alla Scadenza"), vbInformation, "Attenzione"
    file = ThisWorkbook.Path & ("\FileAudio\gong.wav")
    Ret = Play(file, SND_ASYNC)
    End Sub
    Che richiama il File Audio chiamato Boing che ti ho inserito all'interno della tua Cartella di lavoro , Tutto qui Ciao da Maurizio

  7. #6
    L'avatar di A.Maurizio
    Clicca e Apri
    Data Registrazione
    Aug 2015
    LocalitÓ
    Torino
    EtÓ
    56
    Messaggi
    383
    Versione Office
    2013
    Likes ricevuti
    44
    Likes dati
    0

    Re: avviso sonoro per scadenziario

    Grazie a voi per Avermi dato la possibilitÓ di condividere con voi le mie Esperienze (Poche) ma buone .
    Ciao a tutti e Buona Giornata

  8. #7
    L'avatar di Worm46
    Clicca e Apri
    Data Registrazione
    Apr 2016
    LocalitÓ
    Catania
    Messaggi
    4
    Versione Office
    2010
    Likes ricevuti
    0
    Likes dati
    1

    Re: avviso sonoro per scadenziario

    Ciao Maurizio,
    l'impostazione che hai dato va benissimo, l'unico problema Ŕ che nonostante cambio la scadenza mi compare comunque sempre il messaggio "Ti Mancano 3 Giorni Alla Scadenza"




    Citazione Originariamente Scritto da A.Maurizio Visualizza Messaggio
    Grazie a voi per Avermi dato la possibilitÓ di condividere con voi le mie Esperienze (Poche) ma buone .
    Ciao a tutti e Buona Giornata

  9. #8
    L'avatar di A.Maurizio
    Clicca e Apri
    Data Registrazione
    Aug 2015
    LocalitÓ
    Torino
    EtÓ
    56
    Messaggi
    383
    Versione Office
    2013
    Likes ricevuti
    44
    Likes dati
    0

    Re: avviso sonoro per scadenziario

    Ciao Worm46 Aora : il fatto che il messaggio di Avviso ti scriva sempre che "ti mancano 3 Giorni alla Scadenza" e molto intuibile .
    In quanto essendo un Messaggio Basato su una determinata Scadenza , ho pensato bene che avvisandoti almeno tre giornii prima fosse pi¨ che sufficiente .
    In pi¨ ti ricordo che : tu all'inizio della tua prima richiesta citasti cosi ( in prossimitÓ della scadenza si visualizzi un messaggio ).
    E poi pensando d'aver capito il tuo Problema attuale , ti ho portato una modifica , che consiste in definitiva di : Togliere la chiamata creata inizialmente all'interno del foglio 1 ; E lo inserita nel secondo Modulo , cosi facendo ho inserito un Pulsante per richiamare il tutto .
    in pi¨ ho anche inserito all'interno del Modulo ThisWorkBook la stessa chiamata che faresti tu premendo il tasto , Solo che lui te lo fa solo quando apri il tuo programma tutto qui .
    Ti re_Invio il Tutto Ciao da Maurizio
    File Allegati File Allegati

  10. #9
    L'avatar di Worm46
    Clicca e Apri
    Data Registrazione
    Apr 2016
    LocalitÓ
    Catania
    Messaggi
    4
    Versione Office
    2010
    Likes ricevuti
    0
    Likes dati
    1

    Re: avviso sonoro per scadenziario

    OK perfetto, grazie ancora Maurizio per la disponibilitÓ e la spiegazione passaggio per passaggio..
    a certi livelli diciamo sono un "neofita autodidatta", quindi non Ŕ semplicissimo districarsi fra tutti i passaggi..
    Saluti Carmine

  11. #10

    L'avatar di cromagno
    Clicca e Apri
    Data Registrazione
    Aug 2015
    LocalitÓ
    Sardegna
    EtÓ
    37
    Messaggi
    4020
    Versione Office
    2013
    Likes ricevuti
    1228
    Likes dati
    923

    Re: avviso sonoro per scadenziario

    Citazione Originariamente Scritto da Worm46 Visualizza Messaggio
    OK perfetto, grazie ancora Maurizio per la disponibilitÓ e la spiegazione passaggio per passaggio..
    a certi livelli diciamo sono un "neofita autodidatta", quindi non Ŕ semplicissimo districarsi fra tutti i passaggi..
    Saluti Carmine
    Ciao a tutti,

    @Worm46
    se hai risolto il problema, segna questo thread come "RISOLTO".
    Vai sul men¨ "Strumenti Discussione" (all'inizio del thread) e scegli la voce "Segna questa discussione come Risolta...".

    "Sono le persone che nessuno immagina che possano fare certe cose, quelle che fanno cose che nessuno pu˛ immaginare."

  12. #11
    L'avatar di Michele.p
    Clicca e Apri
    Data Registrazione
    May 2016
    LocalitÓ
    Finale Emilia
    EtÓ
    28
    Messaggi
    8
    Versione Office
    2013
    Likes ricevuti
    1

    Re: avviso sonoro per scadenziario

    Buona sera a tutti! Ho riscontrato anch'io la necessitÓ di avviare un audio a una determinata condizione.
    Ho utilizzato il primo file .zip postato dall' utente A.Maurizio, ma purtroppo ho riscontrato un problema in corrispondenza del modulo:223:.
    Vi allego una foto per rendere il problema pi¨ chiaro.

    https://www.dropbox.com/s/kfj4yhh4up...zione.PNG?dl=0

    Sapreste dirmi quale possa essere l' origine del problema?
    Vi ringrazio in anticipo!
    Ultima modifica fatta da:Michele.p; 11/05/16 alle 00:15 Motivo: non era allegata la foto

  13. #12
    L'avatar di Gerardo ZuccalÓ
    Clicca e Apri
    Data Registrazione
    May 2015
    LocalitÓ
    Milano, Italy
    EtÓ
    49
    Messaggi
    4916
    Versione Office
    2013
    Likes ricevuti
    1117
    Likes dati
    1126

    Re: avviso sonoro per scadenziario

    Ciao Michele
    benvenuto in forum excel.it
    la tua domanda rischia di non essere vista perchŔ l'hai fatta in una discussione poco recente e poi giÓ segnata come RISOLTO, quindi ti consiglio di iniziare una discussione nuova,
    vai nella HomePage, Scegli la sezione "Domande su VBA e Macro" e vedrai che presto qualcuno ti risponderÓ
    ciao

  14. #13
    L'avatar di A.Maurizio
    Clicca e Apri
    Data Registrazione
    Aug 2015
    LocalitÓ
    Torino
    EtÓ
    56
    Messaggi
    383
    Versione Office
    2013
    Likes ricevuti
    44
    Likes dati
    0

    Re: avviso sonoro per scadenziario

    Ciao Michele , Scusa se ti Rispondo solo ora ma ho solo visto adesso il tuo Messaggio o richiesta che sia.
    Allora io ti ho rifatto da Nuovo tale Progetto e ti assicuro che a me Funziona Benissimo.
    L'unico Inconveniente che forse tu potresti trovare e quello inerente al tuo Sistema Operativo , in quanto se fosse Windows 10 a 32 Bit non dovresti avere nessun problema.
    In caso contrario tu avessi un sistema Operativo a 64 Bit in quel caso c'Ŕ sicuramente la possibilitÓ di poterlo vede funzionante ma io non conosco il Codice Appropriato .
    Per qui tu provalo cosi ! Semmai non dovesse funzionare riproponi tale domanda sicuramente c'Ŕ qualcuno nel Forum che saprÓ darti una risposta in Merito , ciao e fammi Sapere
    File Allegati File Allegati

  15. #14
    L'avatar di Michele.p
    Clicca e Apri
    Data Registrazione
    May 2016
    LocalitÓ
    Finale Emilia
    EtÓ
    28
    Messaggi
    8
    Versione Office
    2013
    Likes ricevuti
    1

    Re: avviso sonoro per scadenziario

    Citazione Originariamente Scritto da Gerardo ZuccalÓ Visualizza Messaggio
    Ciao Michele
    benvenuto in forum excel.it
    la tua domanda rischia di non essere vista perchŔ l'hai fatta in una discussione poco recente e poi giÓ segnata come RISOLTO, quindi ti consiglio di iniziare una discussione nuova,
    vai nella HomePage, Scegli la sezione "Domande su VBA e Macro" e vedrai che presto qualcuno ti risponderÓ
    ciao
    Ciao Gerardo! Ti ringrazio per il consiglio. Lo far˛ sicuramente

  16. #15
    L'avatar di Michele.p
    Clicca e Apri
    Data Registrazione
    May 2016
    LocalitÓ
    Finale Emilia
    EtÓ
    28
    Messaggi
    8
    Versione Office
    2013
    Likes ricevuti
    1

    Re: avviso sonoro per scadenziario

    Citazione Originariamente Scritto da A.Maurizio Visualizza Messaggio
    Ciao Michele , Scusa se ti Rispondo solo ora ma ho solo visto adesso il tuo Messaggio o richiesta che sia.
    Allora io ti ho rifatto da Nuovo tale Progetto e ti assicuro che a me Funziona Benissimo.
    L'unico Inconveniente che forse tu potresti trovare e quello inerente al tuo Sistema Operativo , in quanto se fosse Windows 10 a 32 Bit non dovresti avere nessun problema.
    In caso contrario tu avessi un sistema Operativo a 64 Bit in quel caso c'Ŕ sicuramente la possibilitÓ di poterlo vede funzionante ma io non conosco il Codice Appropriato .
    Per qui tu provalo cosi ! Semmai non dovesse funzionare riproponi tale domanda sicuramente c'Ŕ qualcuno nel Forum che saprÓ darti una risposta in Merito , ciao e fammi Sapere
    Ciao Maurizio! E'proprio come dici tu, utilizzando un sistema operativo a 64 bit il codice non Ŕ appropriato. Vedr˛ di aprire una nuova discussione.
    Comunque ti ringrazio per il tuo aiuto e il tempo dedicatomi.

Discussioni Simili

  1. [Risolto] avviso sonoro
    Di givi79 nel forum Domande su Excel VBA e MACRO
    Risposte: 16
    Ultimo Messaggio: 30/12/16, 17:36
  2. scadenziario
    Di lore76 nel forum Domande su Excel in generale
    Risposte: 4
    Ultimo Messaggio: 04/11/16, 14:32
  3. Allarme sonoro su gradi temperatura cpu, raffreddata ad acqua, valori e tempi
    Di anassagora nel forum Domande su Excel VBA e MACRO
    Risposte: 18
    Ultimo Messaggio: 30/03/16, 13:54
  4. VBA excel Avviso sonoro
    Di Alisea nel forum Domande su Excel VBA e MACRO
    Risposte: 55
    Ultimo Messaggio: 17/09/15, 13:54
  5. Avviso sonoro scadenza excel
    Di Alisea nel forum Domande su Excel in generale
    Risposte: 1
    Ultimo Messaggio: 30/07/15, 16:31

Permessi di Scrittura

  • Tu non puoi inviare nuove discussioni
  • Tu non puoi inviare risposte
  • Tu non puoi inviare allegati
  • Tu non puoi modificare i tuoi messaggi
  •