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 Sube 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