Condividi:        

Aiuto Macro Per Lampeggio Cella

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

Aiuto Macro Per Lampeggio Cella

Postdi Francesco6918 » 16/10/13 20:44

Un saluto a tutti se gentilmente potete aiutarmi con una macro per lampeggiare una determinata cella (P3) se possibilmente la macro si avvia in automatico al apertura della cartella,vi invio il file esempio.

http://www.filedropper.com/prova_4


Saluti
Francesco6918
Utente Senior
 
Post: 143
Iscritto il: 04/03/11 12:20

Sponsor
 

Re: Aiuto Macro Per Lampeggio Cella

Postdi Francesco53 » 16/10/13 21:19

ciao francesco, forse dovresti dirci in quale caso deve lampeggiare la cella.
francesco
S.O. Vista e Office 2007
Francesco53
Utente Senior
 
Post: 604
Iscritto il: 20/02/10 19:45

Re: Aiuto Macro Per Lampeggio Cella

Postdi Francesco6918 » 16/10/13 22:49

Ciao Francesco53 grazie per avermi risposto quando inserisco un numero nella cella P3 dovrebbe lampeggiarmi.
Francesco6918
Utente Senior
 
Post: 143
Iscritto il: 04/03/11 12:20

Re: Aiuto Macro Per Lampeggio Cella

Postdi Francesco53 » 17/10/13 10:08

ciao ti posto del codice che Flash fece un pò di tempo addietro:
Nel Foglio devi inserire il seguente codice:
Codice: Seleziona tutto
Private Sub Worksheet_Activate()
Tempo = 0
Call Lampeggia
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$P$3" Then Exit Sub
Tempo = 0
Call Lampeggia
End Sub


Questa è la macro da inserire in un modulo:
Codice: Seleziona tutto
Public Tempo As Integer

Sub Lampeggia()
If Tempo > 8 Then Exit Sub ' il tempo in sec che lampeggera'
If ActiveWorkbook.Name <> ThisWorkbook.Name Then Exit Sub  'Confronto nome file
    FOGLIO = "Foglio1"
If ActiveSheet.Name <> FOGLIO Then Exit Sub  'Confronto nome foglio


If Tempo > 5 Then  ' il tempo in sec che lampeggera'

Tempo = 0
GoTo Esci
End If
Tempo = Tempo + 1
    Static FLASH As Boolean
    Dim DELTAt As Date
    DELTAt = "00:00:01"

  If Val(ThisWorkbook.Sheets(FOGLIO).Range("P3")) > 0 Then  '<<< ora e' cosi
        Select Case FLASH
            Case True
                Sheets(FOGLIO).Cells(3, 16).Interior.Color = RGB(255, 255, 0)  'giallo
            Case Else
                Sheets(FOGLIO).Cells(3, 16).Interior.Color = RGB(255, 0, 0)      'ROSSO
        End Select
    Else
        Cells(3, 16).Interior.ColorIndex = xlNone    'Nessun colore
    End If
Esci:
    FLASH = Not (FLASH)
    Application.OnTime Now + TimeValue(DELTAt), "LAMPEGGIA"
End Sub


Puoi provare a cambiare sia i colori che il tempo di lampeggio in base alle tue esigenze.
francesco
S.O. Vista e Office 2007
Francesco53
Utente Senior
 
Post: 604
Iscritto il: 20/02/10 19:45

Re: Aiuto Macro Per Lampeggio Cella

Postdi Francesco6918 » 17/10/13 15:04

Ciao Francesco53 o inserito la macro ma non funziona controlla se tutto ok ti invio il file.
http://www.filedropper.com/prova_5

Saluti
Francesco6918
Utente Senior
 
Post: 143
Iscritto il: 04/03/11 12:20

Re: Aiuto Macro Per Lampeggio Cella

Postdi Francesco6918 » 17/10/13 19:08

Ciao Francesco53 tutto ok o creato un errore dimmi una cosa il tempo del lampeggio e posizionato su 5 se l aumento a 10 aumenta o diminuisce.

Saluti
Francesco6918
Utente Senior
 
Post: 143
Iscritto il: 04/03/11 12:20

Re: Aiuto Macro Per Lampeggio Cella

Postdi Flash30005 » 17/10/13 20:34

@Francesco6918
non sei curioso di provare da solo per vedere cosa succede?
Flash
Win7 + excel 2003/2010, access/word 2010 Ita
"Fotografica" al servizio dell'immagine

Ho smesso di fumare dal 17/03/2013 per sapere il risparmio in € usate questa formula
=(OGGI()-DATA(2013;3;16))*10
Fumatori, pensateci! :-)
Avatar utente
Flash30005
Moderatore
 
Post: 7882
Iscritto il: 27/09/07 12:44
Località: Roma +o-

Re: Aiuto Macro Per Lampeggio Cella

Postdi Francesco6918 » 17/10/13 21:03

Ciao Flash30005 fa piacere risentirci tutto ok o riprovato funziona risolto senti alcuni giorni fa o postato nel forum un problema riguardo una macro per un pulsante grazie a Anthony47 o risolto, vorrei modificarla esempio nella cella P2 inserisco i numeri tramite un pulsante compresi da 0,80 a 89 in poche parole una decina lotto,invio il file.
http://www.filedropper.com/pulsante

Saluti
Francesco6918
Utente Senior
 
Post: 143
Iscritto il: 04/03/11 12:20

Re: Aiuto Macro Per Lampeggio Cella

Postdi Flash30005 » 17/10/13 22:19

Perdona ma non ho capito quale è il quesito che poni.
Se vuoi cambiare il range di intervento del pulsante (attuale da 1 a 89) non devi far altro che selezionare l'oggetto e con tasto destro selezionare Formato Controllo e qui impostare il valore minimo a 80.

ciao
Flash
Win7 + excel 2003/2010, access/word 2010 Ita
"Fotografica" al servizio dell'immagine

Ho smesso di fumare dal 17/03/2013 per sapere il risparmio in € usate questa formula
=(OGGI()-DATA(2013;3;16))*10
Fumatori, pensateci! :-)
Avatar utente
Flash30005
Moderatore
 
Post: 7882
Iscritto il: 27/09/07 12:44
Località: Roma +o-

Re: Aiuto Macro Per Lampeggio Cella

Postdi Francesco6918 » 17/10/13 22:27

Ciao Flash30005 vorrei inserire nella cella P2 con un pulsante numeri Min 0 Max compresi da 80 a 89 con avanzamento di .1
Francesco6918
Utente Senior
 
Post: 143
Iscritto il: 04/03/11 12:20

Re: Aiuto Macro Per Lampeggio Cella

Postdi Flash30005 » 17/10/13 23:18

Ma il file che hai inviato già fa questo, o sbaglio?
Flash
Win7 + excel 2003/2010, access/word 2010 Ita
"Fotografica" al servizio dell'immagine

Ho smesso di fumare dal 17/03/2013 per sapere il risparmio in € usate questa formula
=(OGGI()-DATA(2013;3;16))*10
Fumatori, pensateci! :-)
Avatar utente
Flash30005
Moderatore
 
Post: 7882
Iscritto il: 27/09/07 12:44
Località: Roma +o-

Re: Aiuto Macro Per Lampeggio Cella

Postdi Francesco6918 » 17/10/13 23:24

Si ai ragione parte da 0 fino a 90 per abbreviare vorrei una macro che inserisce esclusivamente solo i numeri compresi da 80 a 89 nella cella P2.
Esempio 0, 80,81,82,83,84,85,86,87,88,89
Francesco6918
Utente Senior
 
Post: 143
Iscritto il: 04/03/11 12:20

Re: Aiuto Macro Per Lampeggio Cella

Postdi Flash30005 » 17/10/13 23:28

Ok in un modulo inserisci queste due macro
Codice: Seleziona tutto
Sub Sale()
[P2] = [P2] + 1
If [P2] < 80 Then [P2] = 80
If [P2] > 89 Then [P2] = 0
End Sub
Sub Scende()
[P2] = [P2] - 1
If [P2] < 80 Then [P2] = 0
End Sub

abbina due pulsanti (freccia a salire a Sub Sale, Freccia a scendere a Sub Scende)

ciao
Flash
Win7 + excel 2003/2010, access/word 2010 Ita
"Fotografica" al servizio dell'immagine

Ho smesso di fumare dal 17/03/2013 per sapere il risparmio in € usate questa formula
=(OGGI()-DATA(2013;3;16))*10
Fumatori, pensateci! :-)
Avatar utente
Flash30005
Moderatore
 
Post: 7882
Iscritto il: 27/09/07 12:44
Località: Roma +o-

Re: Aiuto Macro Per Lampeggio Cella

Postdi Francesco6918 » 17/10/13 23:55

Ti ringrazio Flash30005 tutto ok se ci sono problemi ti informo.

Saluti

Francesco
Francesco6918
Utente Senior
 
Post: 143
Iscritto il: 04/03/11 12:20


Torna a Applicazioni Office Windows


Topic correlati a "Aiuto Macro Per Lampeggio Cella":


Chi c’è in linea

Visitano il forum: Nessuno e 10 ospiti