giovedì 25 settembre 2014

Il calendario torna bianco quando si va a scrivere una nuova cella

Ho notato che è antipatico se si va a cambiare un nome con le celle del calendario ancora colorate a causa della routine che cerca le occorrenze dei turni.
Si potrebbe fare in modo che la routine scrivi del gestore menu automaticamente ricolori di bianco tutto il calendario.

Potrei prendere quel codice per ricolorare di bianco il calendario, toglierlo dal menu cartella e metterlo da un'altra parte in modo da essere richiamato.

Proviamo...

Ecco: ho messo questo codice sotto forma di una routine togliColore nello stesso modulo dove si trovava già la sola funzione aggiungiFoglio, e ho rinominato il modulo routinesOperative:
Sub togliColore(campo As Range)
    For Each elemento In campo.Cells
        elemento.Interior.Color = vbWhite
    Next
End Sub
e modifico la chiamata da parte della routine dell'evento doppio click del foglio, situata nel modulo della cartella, che già prima doveva fare uso di un codice per "sbiancare" nuovamente il calendario.
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
    Cancel = True
    If Intersect(Target, Range("ListaNomiMese")) Is Nothing = False Then
        If DoubleClickFlag = False Then
            evidenziaOccorrenze Range("TurnoGiorno")
            evidenziaOccorrenze Range("TurnoNotte")
            DoubleClickFlag = True
        Else
            togliColore Range("TurnoGiorno")
            togliColore Range("TurnoNotte")
            DoubleClickFlag = False
        End If
    End If
End Sub

Ora devo far chiamare questa routine anche dalla routine scrivi in modo che all'atto della scrittura di un nuovo nome, da menu, su una cella, il calendario torni comunque bianco.
Sub scrivi(testo As String, etichetta As String)
    lastCaption = Bersaglio.Formula
    Bersaglio.FormulaR1C1 = testo
    togliColore Range("TurnoGiorno")
    togliColore Range("TurnoNotte")
    conta Range("TurnoGiorno"), 2
    conta Range("TurnoNotte"), 3
End Sub
Vediamo se funziona perché non l'ho ancora sperimentato...

Sì, pare che funzioni!!!

Nessun commento:

Posta un commento