Indice del forum Excel e VBA
Soluzioni e problemi di Excel
 
 FAQFAQ   CercaCerca   Lista utentiLista utenti   GruppiGruppi   RegistratiRegistrati 
 ProfiloProfilo   Messaggi privatiMessaggi privati   Log inLog in 

[RISOLTO] far lampeggiare le celle

 
Nuovo argomento   Rispondi    Indice del forum -> Problemi con Excel [Domande e Risposte]
Precedente :: Successivo  
Autore Messaggio
Ads






Inviato: Lun Nov 24, 2014 4:50 pm    Oggetto: Ads

Top
enzo_52
Novizio
Novizio


Registrato: 14/08/12 23:07
Messaggi: 8

MessaggioInviato: Lun Set 03, 2012 10:06 pm    Oggetto: [RISOLTO] far lampeggiare le celle Rispondi citando

Salve, vorrei far lampeggiare una cella quando contiene una qualsiasi data , se la cella è vuota resta tutto normale...

qualcuno sa come si fa?


grazie




. . . . . . . . . . . . . . . . . . . .
EDIT
cortesemente NON utilizzare caratteri così grandi.
Ho ridotto il font !
Ciao da Ricky53
. . . . . . . . . . . . . . . . . . . .
Top
Profilo Invia messaggio privato
ricky53
Moderatore
Moderatore


Registrato: 22/03/07 01:29
Messaggi: 4592
Residenza: Roma (ma provincia)

MessaggioInviato: Lun Set 03, 2012 11:17 pm    Oggetto: Rispondi citando

Ciao,
prima di tutto benvenuto nel nostro forum.

Per far lampeggiare occorre una macro.

Prova con la "Formattazione Condizionale" impostando, come sfondo delle celle, un colore che preferisci.
Volendo puoi utilizzare più di un colore in base ad un livello di importanza del valore contenuto nelle celle (con il 2003 sono massimo tre colori con il 2010 tanti).

_________________
S.O W7; Office 2003 e 2013

Dice il vecchio saggio provare e riprovare è l'unica strada per imparare

Più chiara è la vostra spiegazione
Più immediata sarà la nostra soluzione
Top
Profilo Invia messaggio privato
enzo_52
Novizio
Novizio


Registrato: 14/08/12 23:07
Messaggi: 8

MessaggioInviato: Gio Set 06, 2012 10:27 pm    Oggetto: Rispondi citando

ricky53 ha scritto:
Ciao,
prima di tutto benvenuto nel nostro forum.

Per far lampeggiare occorre una macro.

Prova con la "Formattazione Condizionale" impostando, come sfondo delle celle, un colore che preferisci.
Volendo puoi utilizzare più di un colore in base ad un livello di importanza del valore contenuto nelle celle (con il 2003 sono massimo tre colori con il 2010 tanti).


grazie , volentieri di esserci..

non intendo nulla di Excel..quindi vorrei ,magari, la formuletta bella e fatta da inserire nella cella....è possibile? o come posso risolvere magari con una istruzione passo passo.. grazie...
Top
Profilo Invia messaggio privato
anpol1960
Conoscenza 3
Conoscenza 3


Registrato: 31/03/10 10:38
Messaggi: 2546
Residenza: Reggio Emilia

MessaggioInviato: Ven Set 07, 2012 8:57 am    Oggetto: Rispondi citando

enzo_52 ha scritto:
non intendo nulla di Excel..quindi vorrei ,magari, la formuletta bella e fatta da inserire nella cella....è possibile? o come posso risolvere magari con una istruzione passo passo.. grazie...


ciao enzo. inserisci questo codice in una macro, poi digita la parola "pippo" nella cella E1, e poi...
Codice:
Sub Lampeggia()
If Range("E1").Value = "Pippo" Then
Dim PauseTime, Start, Finish
For x = 1 To 5    'inizia il ciclo e lo ripete per 5 volte
PauseTime = 0.5  ' Imposta la durata in secondi. ho messo 1/2 secondo
Start = Timer   ' Imposta l'inizio.
Do While Timer < Start + PauseTime
DoEvents  ' Passa il controllo ad altri processi.
Range("A1:D7").Cells.Interior.ColorIndex = 3  'colora il range di celle di rosso
Range("A12:D21").Cells.Interior.ColorIndex = 6  'colora il range di celle di giallo
Loop
Finish = Timer  ' Imposta la fine della pausa.

PauseTime = 0.5   ' Imposta la durata.
Start = Timer   ' Imposta l'inizio.
Do While Timer < Start + PauseTime
DoEvents    ' Passa il controllo ad altri processi.
Range("A1:D7").Cells.Interior.ColorIndex = 6
Range("A12:D21").Cells.Interior.ColorIndex = 3
Loop
Finish = Timer ' Imposta la fine della pausa.
Next x


'finisce il ciclo, appare un messaggio
'che blocca i colori
MsgBox "ATTENZIONE!!!!"
'premuto ok sul messaggio, vengono eliminati i colori
Range("A1:D7").Cells.Interior.ColorIndex = xlNone
Range("A12:D21").Cells.Interior.ColorIndex = xlNone
'finisce
End
End If
End Sub

Se hai problemi, siamo qua... Wink

_________________

Solamente gli utenti registrati possono vedere link su questo forum!
Registrati oppure Autenticati su questo forum.



EXCEL 2007
Per caricare un file

Solamente gli utenti registrati possono vedere link su questo forum!
Registrati oppure Autenticati su questo forum.



Solamente gli utenti registrati possono vedere link su questo forum!
Registrati oppure Autenticati su questo forum.

Top
Profilo Invia messaggio privato Invia e-mail
enzo_52
Novizio
Novizio


Registrato: 14/08/12 23:07
Messaggi: 8

MessaggioInviato: Ven Set 07, 2012 8:37 pm    Oggetto: Rispondi citando

ciao enzo. inserisci questo codice in una macro, poi digita la parola "pippo" nella cella E1, e poi...
[code]Sub Lampeggia()
If Range("E1").Value = "Pippo" Then
Dim PauseTime, Start, Finish
For x = 1 To 5 'inizia il ciclo e lo ripete per 5 volte
Pau
Se hai problemi, siamo qua... Wink[/quote]


non ho ancora inserito la macro, ma ti ringrazio a prescindere , sei stato squisitissimo...grazie tante... ti farò sapere...ciao
Top
Profilo Invia messaggio privato
Alex-55
Conoscenza 3
Conoscenza 3


Registrato: 06/01/12 12:29
Messaggi: 1077
Residenza: Anagni

MessaggioInviato: Ven Set 07, 2012 8:53 pm    Oggetto: Rispondi citando

Ciao Enzo

Ti consiglio di dare un'occhiata a questi thread di alcuni mesi fa, di questo forum...

Solamente gli utenti registrati possono vedere link su questo forum!
Registrati oppure Autenticati su questo forum.



Solamente gli utenti registrati possono vedere link su questo forum!
Registrati oppure Autenticati su questo forum.



Solamente gli utenti registrati possono vedere link su questo forum!
Registrati oppure Autenticati su questo forum.



Solamente gli utenti registrati possono vedere link su questo forum!
Registrati oppure Autenticati su questo forum.



come vedi, prima di formulare una domanda è sempre bene verifacare se l'argomento è stato già affrontato.
Basta digitare la chiave della domanda nell'indice e andare a vedere le varie risposte...come ho fatto io per te. Very Happy

Sicuramente, se hai tempo di leggerle, troverai quel che ti serve...

Se poi niente o in parte ti soddisfa, è facile poterti aiutare...

Ti abbraccio Wink

_________________
S.O. win XP Pro-SP3 e 7, EXCEL 2003-2007


Solamente gli utenti registrati possono vedere link su questo forum!
Registrati oppure Autenticati su questo forum.



Lascio agli altri la convinzione di essere i migliori, per me tengo la certezza che nella vita si può sempre migliorare...
Errare humanum est (Seneca)
Top
Profilo Invia messaggio privato
enzo_52
Novizio
Novizio


Registrato: 14/08/12 23:07
Messaggi: 8

MessaggioInviato: Sab Set 08, 2012 1:19 am    Oggetto: Rispondi citando

[quote="Alex-55"]Ciao Enzo

Ti consiglio di dare un'occhiata a questi thread di alcuni mesi fa, di questo forum...

Solamente gli utenti registrati possono vedere link su questo forum!
Registrati oppure Autenticati su questo forum.



Solamente gli utenti registrati possono vedere link su questo forum!
Registrati oppure Autenticati su questo forum.



Solamente gli utenti registrati possono vedere link su questo forum!
Registrati oppure Autenticati su questo forum.



Solamente gli utenti registrati possono vedere link su questo forum!
Registrati oppure Autenticati su questo forum.





grazie tante Alex... sei stato gentilissimo....tutte persone particolarmente gentili e disponibili su questo forum!!

sono contentissimo di esserci...ciao
Top
Profilo Invia messaggio privato
enzo_52
Novizio
Novizio


Registrato: 14/08/12 23:07
Messaggi: 8

MessaggioInviato: Sab Set 08, 2012 1:50 am    Oggetto: Rispondi citando

ciao enzo. inserisci questo codice in una macro, poi digita la parola "pippo" nella cella E1, e poi...

Se hai problemi, siamo qua... Wink[/quote]



...ho inserito il codice che mi hai dato ma non funzionava per colpa mia, avrò fatto un casino...poi Alex mi ha postato altri thred in cui si parlava di far lampeggiare le celle..e ho trovato il tuo codice ma bisognava insere una parte anche nel foglio di lavoro...comunque sta di fatto che la cella lampeggia quando scrivo pippo....ci sono 3 problemini che vorrei risolvere

1°, quando cancello pippo dalla cella ,la cella smette di lampeggiare ma resta la cella colorata, ed io invece vorrei ritornasse al colore originale,

2°, mentre la casella lampeggia ho notato che excel è diventato lento è normale?

3°, vorrei che le celle da E1 a E33 se all interno è vuoto (non 0, ma vuoto, cioè cella bianca) lampeggino , se c è all interno di una qualsiasi cella compresa tra E1e E33 un valore maggiore di 0 finiscano di lampeggiare ritornando al colore naturale.

allego la macro che ho inserito
grazie tante... Wink

Solamente gli utenti registrati possono vedere link su questo forum!
Registrati oppure Autenticati su questo forum.



Uploaded with

Solamente gli utenti registrati possono vedere link su questo forum!
Registrati oppure Autenticati su questo forum.

[/url]
Top
Profilo Invia messaggio privato
anpol1960
Conoscenza 3
Conoscenza 3


Registrato: 31/03/10 10:38
Messaggi: 2546
Residenza: Reggio Emilia

MessaggioInviato: Sab Set 08, 2012 8:01 pm    Oggetto: Rispondi citando

ciao enzo. rispondo alle tue tre domande:
1.: ti allego un file esempio: digita la parola "pippo" nella cella E1 del Foglio1 e cancellala quando vuoi.

2. per la lentezza di excel, sicuramente dipende dal tuo pc.

3. Sinceramente non so aiutarti, ma ho scritto un altro codice che potrai vedere nel Foglio2 dello stesso file: le celle da E1 a E33 rimangono colorate fino a quando non c'è un numero dentro.
Solamente gli utenti registrati possono vedere link su questo forum!
Registrati oppure Autenticati su questo forum.


_________________

Solamente gli utenti registrati possono vedere link su questo forum!
Registrati oppure Autenticati su questo forum.



EXCEL 2007
Per caricare un file

Solamente gli utenti registrati possono vedere link su questo forum!
Registrati oppure Autenticati su questo forum.



Solamente gli utenti registrati possono vedere link su questo forum!
Registrati oppure Autenticati su questo forum.

Top
Profilo Invia messaggio privato Invia e-mail
Alex-55
Conoscenza 3
Conoscenza 3


Registrato: 06/01/12 12:29
Messaggi: 1077
Residenza: Anagni

MessaggioInviato: Dom Set 09, 2012 11:13 am    Oggetto: Rispondi citando

enzo_52 ha scritto:
...
1°, quando cancello pippo dalla cella ,la cella smette di lampeggiare ma resta la cella colorata, ed io invece vorrei ritornasse al colore originale,

2°, mentre la casella lampeggia ho notato che excel è diventato lento è normale?

3°, vorrei che le celle da E1 a E33 se all interno è vuoto (non 0, ma vuoto, cioè cella bianca) lampeggino , se c è all interno di una qualsiasi cella compresa tra E1e E33 un valore maggiore di 0 finiscano di lampeggiare ritornando al colore naturale.


Ciao Enzo,
posso darti un suggerimento?

Perchè ti sei fissato con il lampeggio...
se lampeggia una cella sola e il PC lo consente perchè non si rallenta tanto, si può fare...
se ciò avviene su più celle il PC si rallenta troppo anche per PC con processori sofisticati e veloci.

Quindi ti consiglierei di utilizzare la formattazione condizionale e colorare le celle in base al loro valore con colori molto vistosi come il rosso, il verde e il giallo....

------------------------------------

comunque inserisci questo codice in un modulo

Codice:

Sub Flash()
    Nexttime = Now + TimeValue("00:00:01")
    For i = 1 To 33
        If ActiveWorkbook.Worksheets("Foglio1").Range("E" & i) = "" Then
            With ActiveWorkbook.Worksheets("Foglio1").Range("E" & i).Interior
                If .ColorIndex = 2 Then .ColorIndex = 3 Else .ColorIndex = 2
            End With
        Else
            With ActiveWorkbook.Worksheets("Foglio1").Range("E" & i).Interior
                .ColorIndex = 2
            End With
        End If
    Next
    Application.OnTime Nexttime, "Flash"
End Sub


e quest'altro in ThisWorkbook

Codice:

Private Sub Workbook_Open()
    Call Flash
End Sub

questo il file:

Solamente gli utenti registrati possono vedere link su questo forum!
Registrati oppure Autenticati su questo forum.



Facci sapere
Saluti

_________________
S.O. win XP Pro-SP3 e 7, EXCEL 2003-2007


Solamente gli utenti registrati possono vedere link su questo forum!
Registrati oppure Autenticati su questo forum.



Lascio agli altri la convinzione di essere i migliori, per me tengo la certezza che nella vita si può sempre migliorare...
Errare humanum est (Seneca)
Top
Profilo Invia messaggio privato
locatevaresino
in attesa
in attesa


Registrato: 04/05/10 23:13
Messaggi: 211

MessaggioInviato: Mar Set 11, 2012 10:46 am    Oggetto: Rispondi citando

ciao enzo_52

ho letto questa mattina il tuo post in base al lampeggio di una o piu' celle
dato che ho usato in passato una macro creata per questo lavoro ti posto anche la mia versione adottata con le modifiche fatte in base ai tuoi dati esposti riguardanti la colonna E con controllo da E1:E33

tale macro e suddivisa in tre macro
1 di avvio
2 di tempo
3 controllo dati

la prima la devi inserire in ThisWorbook
----------------------xxxx-------
''ThisWorbook
Option Explicit
Private Sub workbook_open()
Foglio1.Select ''seleziona foglio 1
Call Lampeggio ''avvia orologio
End Sub
-----------------------------
la seconda in un Modulo
-----------------------xxxx-------
''Modulo
Sub Lampeggio()
DoEvents
ThisWorkbook.Worksheets("Foglio1").Lampeg_Celle ''Macro di Lampeggio Foglio1
Application.OnTime Now + TimeSerial(0, 0, 3), "Lampeggio" ''Tempo 3 secondi
End Su
-----------------
la terza nel foglio di destinazione,
PS non sapendo il tuo foglio qual'e' di default io ho fatto il primo
----------------------xxxx----------
''Foglio di riferimento
Sub Lampeg_Celle()
Dim L_celle As Range
Dim V_cella As Variant
Dim Valore As Variant
Set L_celle = Range("E1:E33")
For Each V_cella In L_celle
DoEvents
Select Case V_cella
Case Is > 0
If IsNumeric(V_cella) Then
V_cella.Interior.ColorIndex = xlNone
ElseIf IsDate(V_cella) Then
V_cella.Interior.ColorIndex = 6
Else
V_cella.Interior.ColorIndex = 7
End If
Case Is = 0
Valore = V_cella
If IsEmpty(Valore) Then
If V_cella.Interior.ColorIndex = 4 Then _
V_cella.Interior.ColorIndex = 3 Else _
V_cella.Interior.ColorIndex = 4
Else
V_cella.Interior.ColorIndex = 15
End If
End Select
Next
Set L_celle = Nothing
End Sub
-----------------------
Vedi se ti puo' essere utile il tutto, i colori sono impostati come li sto usando ma puoi cambiarli a tuo piacimento, mi sembra che ca ne sono 55

ciao da locate
excel 2003/07
Top
Profilo Invia messaggio privato
enzo_52
Novizio
Novizio


Registrato: 14/08/12 23:07
Messaggi: 8

MessaggioInviato: Gio Set 13, 2012 8:59 pm    Oggetto: Rispondi citando

.RAGAZZI SIETE ECCEZIONALI!!

ANPOL, ALEX, LOCATEVARESINO... SIETE STATI COSì SQUISITI CHE MI SENTO IN DIFFICOLTà... VI MERITERESTE COME MINIMO

GUANTIERE DI SFOGLIATELLE E BABà PER ALMENO PER 1 MESE! NON ESAGERO..

GRAZIE ASSAI , NON SI INCONTRANO FACILMENTE PERSONE COSì DISPONIBILI COME VOI...MI RITENGO MOLTO FORTUNATO...GRAZIE ANCORA...
ENZO Wink
Top
Profilo Invia messaggio privato
anpol1960
Conoscenza 3
Conoscenza 3


Registrato: 31/03/10 10:38
Messaggi: 2546
Residenza: Reggio Emilia

MessaggioInviato: Gio Set 13, 2012 9:08 pm    Oggetto: Rispondi citando

enzo_52 ha scritto:
... VI MERITERESTE COME MINIMO

GUANTIERE DI SFOGLIATELLE E BABà PER ALMENO PER 1 MESE! NON ESAGERO...


...Guarda che poi ci crediamo per davvero!!!
Scherzi a parte, ciao enzo! Laughing

_________________

Solamente gli utenti registrati possono vedere link su questo forum!
Registrati oppure Autenticati su questo forum.



EXCEL 2007
Per caricare un file

Solamente gli utenti registrati possono vedere link su questo forum!
Registrati oppure Autenticati su questo forum.



Solamente gli utenti registrati possono vedere link su questo forum!
Registrati oppure Autenticati su questo forum.

Top
Profilo Invia messaggio privato Invia e-mail
Alex-55
Conoscenza 3
Conoscenza 3


Registrato: 06/01/12 12:29
Messaggi: 1077
Residenza: Anagni

MessaggioInviato: Gio Set 13, 2012 10:45 pm    Oggetto: Rispondi citando

enzo_52 ha scritto:
.RAGAZZI SIETE ECCEZIONALI!!

ANPOL, ALEX, LOCATEVARESINO... SIETE STATI COSì SQUISITI CHE MI SENTO IN DIFFICOLTà... VI MERITERESTE COME MINIMO

GUANTIERE DI SFOGLIATELLE E BABà PER ALMENO PER 1 MESE! NON ESAGERO..

GRAZIE ASSAI , NON SI INCONTRANO FACILMENTE PERSONE COSì DISPONIBILI COME VOI...MI RITENGO MOLTO FORTUNATO...GRAZIE ANCORA...
ENZO Wink

Ciao Enzo,
Prima o poi ti chiederemo di pagare questo pegno Very Happy Very Happy

Ma ora ti chiedo di dirci qual'e stata la tua scelta e perche'.
Servira' a tutti noi per conoscerci e valutarci Wink Wink

_________________
S.O. win XP Pro-SP3 e 7, EXCEL 2003-2007


Solamente gli utenti registrati possono vedere link su questo forum!
Registrati oppure Autenticati su questo forum.



Lascio agli altri la convinzione di essere i migliori, per me tengo la certezza che nella vita si può sempre migliorare...
Errare humanum est (Seneca)
Top
Profilo Invia messaggio privato
enzo_52
Novizio
Novizio


Registrato: 14/08/12 23:07
Messaggi: 8

MessaggioInviato: Sab Set 15, 2012 3:12 pm    Oggetto: Rispondi citando

Alex-55 ha scritto:
enzo_52 ha scritto:
.RAGAZZI SIETE ECCEZIONALI!!

ANPOL, ALEX, LOCATEVARESINO... SIETE STATI COSì SQUISITI CHE MI SENTO IN DIFFICOLTà... VI MERITERESTE COME MINIMO

GUANTIERE DI SFOGLIATELLE E BABà PER ALMENO PER 1 MESE! NON ESAGERO..

GRAZIE ASSAI , NON SI INCONTRANO FACILMENTE PERSONE COSì DISPONIBILI COME VOI...MI RITENGO MOLTO FORTUNATO...GRAZIE ANCORA...
ENZO Wink

Ciao Enzo,
Prima o poi ti chiederemo di pagare questo pegno Very Happy Very Happy

Ma ora ti chiedo di dirci qual'e stata la tua scelta e perche'.
Servira' a tutti noi per conoscerci e valutarci Wink Wink



hahahaahha Smile))) ...carico degli ordini, una 30ina a settimana e dopo qualche mese tracentinaia di ordini con le celle lampegg riesco a capire immediatamente quelli che restano da evadere dove si trovano ...tutto qui

grazie a voi è stato possibile farlo...grazie ancora ciao ragazzi.. Wink
Top
Profilo Invia messaggio privato
sid
Moderatore
Moderatore


Registrato: 23/02/08 11:50
Messaggi: 10581

MessaggioInviato: Sab Set 15, 2012 4:19 pm    Oggetto: Rispondi citando

Ciao a tutti Very Happy

Permettimi Enzo:

Sono dell'idea che VBA debba servire per semplificarci i problemi, e non per complicarceli.

Con la formattazione condizionale (come già consigliato da Ricky e Alex) avresti avuto lo stesso risultato, senza usare nessun codice.

Il colpo d'occhio ce l'hai lo stesso, sia se il fondo della cella è (esempio) rosso, sia che la cella "lampeggi" (esempio) bianco/rosso.

Ciao Very Happy.

_________________
Excel 2003 - Win XP Pro SP3

Solamente gli utenti registrati possono vedere link su questo forum!
Registrati oppure Autenticati su questo forum.



Solamente gli utenti registrati possono vedere link su questo forum!
Registrati oppure Autenticati su questo forum.


Solamente gli utenti registrati possono vedere link su questo forum!
Registrati oppure Autenticati su questo forum.

Top
Profilo Invia messaggio privato Invia e-mail
Mostra prima i messaggi di:   
Nuovo argomento   Rispondi    Indice del forum -> Problemi con Excel [Domande e Risposte] Tutti i fusi orari sono GMT + 2 ore
Pagina 1 di 1

 
Vai a:  
Non puoi inserire nuovi argomenti
Non puoi rispondere a nessun argomento
Non puoi modificare i tuoi messaggi
Non puoi cancellare i tuoi messaggi
Non puoi votare nei sondaggi
c d
e



Powered by phpBB © 2001, 2005 phpBB Group
phpbb.it

Abuse - Segnalazione abuso - Utilizzando questo sito si accettano le norme di TOS & Privacy.
Powered by forumup.it forum gratis free, crea il tuo forum gratis free ora! Created by Hyarbor & Qooqoa
Confirmed

Page generation time: 0.397