Excel Forum Per condividere esperienze su Microsoft Excel

lampeggi

  • Messaggi
  • OFFLINE
    siloli72
    Post: 4
    Registrato il: 11/10/2019
    Età: 53
    Utente Junior
    2013
    00 24/10/2020 09:57
    lampeggi
    salve. Se la casella e31( contenente formula) è vuota("") vorrei far lampeggiare il contenuto delle celle nell' intervallo k41:m52 (contenenti formule). detti lampeggi non devono però precludere la possibilità di lavorare sui fogli della cartella . E' fattibile? Grazie
  • OFFLINE
    dodo47
    Post: 3.015
    Registrato il: 06/04/2013
    Utente Master
    2010
    00 24/10/2020 10:46
    Ciao
    uno dei tanti esempi in rete:

    https://www.excelsupersite.com/how-to-make-a-cell-flash-in-excel/

    saluti




    Domenico
    Win 10 - Excel 2016
  • OFFLINE
    siloli72
    Post: 4
    Registrato il: 11/10/2019
    Età: 53
    Utente Junior
    2013
    00 24/10/2020 13:00
    dodo47, 24/10/2020 10:46:

    Ciao
    uno dei tanti esempi in rete:

    https://www.excelsupersite.com/how-to-make-a-cell-flash-in-excel/

    saluti





    Non mi pare lo faccia in automatico. Sempre con pulsante macro
  • OFFLINE
    locatevaresino
    Post: 2.335
    Registrato il: 21/03/2008
    Città: LOCATE VARESINO
    Età: 76
    Utente Veteran
    2007 / 13
    00 24/10/2020 18:23
    ciao

    ti allego un file che fa questo lavoro
    a te capire come funziona

    per questo bisogna utilizzare una macro e alcuni accorgimenti
    formattazione condizionale alle celle interessate

    Ciao da locate
    excel 2007 / 13
  • OFFLINE
    siloli72
    Post: 5
    Registrato il: 11/10/2019
    Età: 53
    Utente Junior
    2013
    00 24/10/2020 19:54
    perfetto. dovrebbe lampeggiare solo il contenuto pero' non il riempimento. vorrei capire come mettere l' istruzione perche' nei moduli-fogli non la trovo. non sono espertissimo, scusate, se potete dirmi come inserire la macro. grazie
  • ABCDEF@Excel
    00 24/10/2020 22:21
    @locatevaresino
    Scusami, solo per capire. Non riesco capire come "intercetti" la cella E31? Non dovrebbe essere...
    Private Sub Worksheet_Calculate()
    Control = False
        If Range("E31").Value = "" Then
            '...
            Control = True
        End If
    End Sub

    Inoltre non sò come fai a colorare il range K41:M52 senza scriverlo?
    Ultima, sullo stesso range ci sono altre formule (non farebbero confusione a Calculate)?
  • OFFLINE
    siloli72
    Post: 6
    Registrato il: 11/10/2019
    Età: 53
    Utente Junior
    2013
    00 24/10/2020 22:38
    Nel range n41:k52 ci sono dei caratteri che cambiano perché c'è una formula che contiene vari "se"...quando e31 diventa vuota( c'è sempre una formula con "se") quello che contiene il range diventa fisso perché da quel momento in poi non cambiano più. Grazie
  • OFFLINE
    locatevaresino
    Post: 2.336
    Registrato il: 21/03/2008
    Città: LOCATE VARESINO
    Età: 76
    Utente Veteran
    2007 / 13
    00 25/10/2020 10:18
    ciao

    per l'intercettazione e il lampeggio ho utilizzato la formattazione condizionale
    range("K41:M52")
    =E($E$31="";RESTO(SECONDO(ADESSO());2)=0)

    il ( calculate ) viene attivato in una sub() messa in un modulo standar
    questo per far si che ogni tot venga eseguito un F9 automatico senza aspettare una modifica ad una cella


    Option Explicit
    Sub CLOCK()
    DoEvents 'permette di inserire modifiche nelle varie celle
    Calculate
    Application.OnTime Now + TimeSerial(0, 0, 3), "CLOCK"
    End Sub



    questa viene attivata all'apertura del file in
    Questa cartella di lavoro , o ThisWorkbook



    ''ThisWorkbook
    Private Sub workbook_open()
    Call CLOCK
    ''attiva o disattiva propieta'
    End Sub



    riallego il file che al posto di evidenziare le celle evidenzia il contenuto delle celle

    PS mi sono dimenticato di dire che si possono fare altre formule in questo caso per fare questo lavoro, utilizzando sempre VBA
    [Modificato da locatevaresino 25/10/2020 10:29]
    Ciao da locate
    excel 2007 / 13
  • OFFLINE
    siloli72
    Post: 7
    Registrato il: 11/10/2019
    Età: 53
    Utente Junior
    2013
    00 25/10/2020 10:50
    GRAZIE MILLE