| | Post: 11 | Registrato il: 22/12/2014
| Età: 51 | Utente Junior | 2013 | | OFFLINE | |
|
  08/12/2017 13:53 | |
salve a tutti, qualcuno mi puo' dare una mano , ho un foglio excel
dove all'interno di una parte di celle (g3:g18) ho la somma derivante da altri calcoli di altre celle , vorrei sapere come posso fare se ad un detrminato valore esempio (22:00) le celle (g3:g18) lampeggino.
saluti e grazie a chi mi puo' dare una mano |
|
| | Post: 817 | Registrato il: 24/04/2004
| Città: TERAMO | Età: 63 | Utente Senior | 2010 | | OFFLINE |
|
| 08/12/2017 22:35 | |
Ciao.
Se fai una ricerca (nel forum o su google) trovi parecchi esempi in merito. __________________________
[Excel 2010]
-Condividere la conoscenza aumenta la ricchezza di tutti.
-Dai ad un uomo un pesce e lo avrai sfamato per un giorno; insegnagli a pescare e lo avrai sfamato per sempre. (Confucio)
-Il sonno della ragione genera mostri. (Francisco Goya) |
| | Post: 1.695 | Registrato il: 06/04/2013
| Utente Veteran | 2010 | | OFFLINE |
|
| 09/12/2017 11:30 | |
Ciao
un modo potrebbe essere il seguente:
'nel VB di Questa Cartella di lavoro:
-------------------------------------
Private Sub Workbook_Open()
Start
End Sub
' nel VB di un modulo:
-------------------------------------
Public Esegui As Double
Public Const FlashRng As String = "Foglio1!G3:G18"
Sub Start()
Range(FlashRng).Interior.ColorIndex = xlColorIndexNone
StartTimer
End Sub
Sub StartTimer()
Esegui = Now + TimeSerial(0, 0, 1)
Application.OnTime EarliestTime:=Esegui, Procedure:="Blinking", _
Schedule:=True
End Sub
Sub Blinking()
If Time >= "22:00:00" Then '<<<<< PER FARE TEST CAMBIA ORARIO
If Range(FlashRng).Interior.ColorIndex = 3 Then
Range(FlashRng).Interior.ColorIndex = xlColorIndexNone
Else
Range(FlashRng).Interior.ColorIndex = 3
End If
End If
StartTimer
End Sub
Sub StopTimer()
On Error Resume Next
Range(FlashRng).Interior.ColorIndex = xlColorIndexNone
Application.OnTime EarliestTime:=Esegui, Procedure:="Blinking", _
Schedule:=False
End Sub NOTA: Poichè non hai specificato quanto tempo deve durare il "lampeggio" del range, devi inserire un pulsante nel foglio, legato alla Sub StopTimer() che ferma appunto il lampeggio.
Saluti
[Modificato da dodo47 09/12/2017 11:31] Domenico
Win 10 - Excel 2016 |
| | Post: 11 | Registrato il: 22/12/2014
| Età: 51 | Utente Junior | 2013 | | OFFLINE | |
|
| 09/12/2017 12:21 | |
ciao dodo47 grazie di avermi risposto, ho scaricato il tuo file pero non mi funziona , e per il lampeggio mi basterebbero 5 secondi
grazie |
| | Post: 1.696 | Registrato il: 06/04/2013
| Utente Veteran | 2010 | | OFFLINE |
|
| 09/12/2017 12:50 | |
ciao
Ti assicuro che funziona.
cosa hai fatto per testarlo ? Lo hai solo aperto?
Quando lo apri devi premere il pulsante "stop blinking" perchè la macro è già partita. Poi modifichi l'orario nella sub con un orario prossimo e riesegui start
Comunque affinchè il lampeggio duri 5 secondi modifica la macro blinking così:
Sub Blinking()
If Time >= "22:00:00" And Time <= "22:00:05" Then
If Range(FlashRng).Interior.ColorIndex = 3 Then
Range(FlashRng).Interior.ColorIndex = xlColorIndexNone
Else
Range(FlashRng).Interior.ColorIndex = 3
End If
ElseIf Time > "22:00:05" Then
StopTimer
Exit Sub
End If
StartTimer
End Sub Saluti
[Modificato da dodo47 09/12/2017 13:05] Domenico
Win 10 - Excel 2016 |
| | Post: 12 | Registrato il: 22/12/2014
| Età: 51 | Utente Junior | 2013 | | OFFLINE | |
|
| 09/12/2017 13:12 | |
ciao
scusa la mia ignoranza in materia purtroppo non uno esperto, io ho aperto il tuo file e ho fatto come mi hai detto, quando apro il file fermo con stop vado dentro nella sub e cambio l'orario, metto i valori nella casella g3:g18 per vedere se lampeggia ma non mi fa niente, o sbaglio io qualcosa ????
grazie |
| | Post: 13 | Registrato il: 22/12/2014
| Età: 51 | Utente Junior | 2013 | | OFFLINE | |
|
| 09/12/2017 13:20 | |
ciao di nuovo
adesso ho capito come funziona. scusa di nuovo
saluti |
| | Post: 14 | Registrato il: 22/12/2014
| Età: 51 | Utente Junior | 2013 | | OFFLINE | |
|
| 09/12/2017 13:27 | |
ciao dodo47
volevo chiederti se e' possibile mettere sono al raggiungimento dell'orario 22:00:00 che mi lampeggi solo quella cella e non tutte le altre celle.
saluti |
| | Post: 1.697 | Registrato il: 06/04/2013
| Utente Veteran | 2010 | | OFFLINE |
|
| 09/12/2017 16:26 | |
Ciao all'inizio ha detto:
" ....come posso fare se ad un determinato valore esempio (22:00) le celle (g3:g18) lampeggino....."
Da questo presumo che se sono le 22:00 le celle g3:g18 devono lampeggiare.
Ora parli di cella.
Facciamo così: tu sottoponi una copia del tuo lavoro (senza dati sensibili) e dici cosa hai, cosa fai e cosa vuoi che avvenga.
Saluti
[Modificato da dodo47 10/12/2017 12:40] Domenico
Win 10 - Excel 2016 |
| | Post: 15 | Registrato il: 22/12/2014
| Età: 51 | Utente Junior | 2013 | | OFFLINE | |
|
| 10/12/2017 22:25 | |
ciao dodo47
ti allego file d'esempio cosi vedi se riesci a capirmi quello
che voglio fare
saluti |
| | Post: 1.702 | Registrato il: 06/04/2013
| Utente Veteran | 2010 | | OFFLINE |
|
| 11/12/2017 11:44 | |
ciao
avresti potuto usare grosso modo quello che hai fatto nella user form, sfruttando l'evento change del foglio.
saluti
Domenico
Win 10 - Excel 2016 |
| | Post: 16 | Registrato il: 22/12/2014
| Età: 51 | Utente Junior | 2013 | | OFFLINE | |
|
| 11/12/2017 19:12 | |
ti ringrazio dodo47 e' quello che volevo, scusa ancora ma non sono
un esperto in macro.
saluti |
|
|
|
|