Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

[excel207] Beep su un determinato evento

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

[excel207] Beep su un determinato evento

Postdi Cele79 » 30/06/15 14:00

Ciao a tutti.
Vorrei sapere se è possibile quando in una cella una determinata formula mi scrive "Vincente" si attivi un Beep o un doppio Beep.
La formula che determina la scritte è questa:
Codice: Seleziona tutto
=SE(CA26=0;"<<<  Inserire importo di giocata  >>>";SE(BK28<>"";SE(DW4="0";"Perdente";"Vincente");SE(BV28<>"";SE(DX4="0";"Perdente";"Vincente");SE(BK32<>"";SE(DY4="0";"Perdente";"Vincente");SE(BV32<>"";SE(DZ4="0";"Perdente";"Vincente"))))))

e si trova nella cella BJ25 (comprende le colonne che vanno da BJ a CE)
Tutte le altre celle presenti nella formula vengono determinate da altre formule.

La formula mi dice se ho vinto o meno giocando al lotto.
Io scrivo i 5 numeri del lotto nelle celle CJ CK CL CM CN, poi gli evidenzio,ci clicco con il destro del mouse,faccio inserisci e sposta le celle in basso. Una volta spostate le celle si attivano tutte le formule e una di questa è quella che vi ho scritto.
é possibile che se vinco si riproduca un beep oppure un beep doppio?
Grazie.

P.S.: il foglio dove lavoro si chiama ESTRAZIONI
Cele79
Utente Junior
 
Post: 82
Iscritto il: 14/01/14 12:32

Sponsor
 

Re: [excel207] Beep su un determinato evento

Postdi Anthony47 » 01/07/15 00:40

Qusta macro andrebbe bene per il 95% delle situazioni:
Codice: Seleziona tutto
Sub NoLuck()
End Sub

:D :D

Per coprire anche il rimanente 5% allora dovrai usare qualcosa di piu' complesso, tipo
Codice: Seleziona tutto
Private Sub Worksheet_Calculate()
If Range("BJ25").Value = "Vincente" Then Beep
End Sub

Va messa nel modulo di codice del foglio che contiene la BJ25 di cui parliamo: tasto dx sul tab col nome del foglio1, scegli visualizza codice, copia la macro e incollala nel frame vuoto di dx.
Po torna su Excel e prova.

Ciao
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13885
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: [excel207] Beep su un determinato evento

Postdi Cele79 » 01/07/15 06:05

Grazie Anthony47 funziona benissimo
Cele79
Utente Junior
 
Post: 82
Iscritto il: 14/01/14 12:32

Re: [excel207] Beep su un determinato evento

Postdi Cele79 » 01/07/15 12:01

Ciao Anthony47.
Controllando anche negli altri post dove parlavi dei beep e di inserire anche canzoni sono riuscito a modificare la macro, non so come pero, in questo modo
Codice: Seleziona tutto
Private Sub Worksheet_Calculate()
If Range("BJ25").Value = "Vincente" Then
If Application.CanPlaySounds Then
        Call ActiveSheet.Shapes("Object 3").Select
        Selection.Verb Verb:=xlPrimary
    End If
    End If
End Sub
Cele79
Utente Junior
 
Post: 82
Iscritto il: 14/01/14 12:32

Re: [excel207] Beep su un determinato evento

Postdi Anthony47 » 01/07/15 21:36

sono riuscito a modificare la macro, non so come pero
Ah ah! Comunque Bravo!
Evidentemente hai integrato sul foglio la "MarciaTrionfale.wav" e poi Selection.Verb Verb:=xlPrimary

Ciao, alla prossima
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13885
Iscritto il: 21/03/06 16:03
Località: Ivrea


Torna a Applicazioni Office Windows


Topic correlati a "[excel207] Beep su un determinato evento":


Chi c’è in linea

Visitano il forum: Nessuno e 9 ospiti