Ciao Andrea,
grazie per il suggerimento ma il vero/falso non è il risultato di una formula ma un'immissione
regolata da convalida.
E' che mi piacerebbe che l'utente dovesse selezionare tra i valori VERO/FALSO che mi sembrano più intuitivi di 0/1, ma allo stesso tempo mi piacerebbe che dopo la selezione l'utente si trovasse la spunta verde o la croce rossa anziché i valori booleani.
Grazie per la risposta! Se ti viene in mente qualcos'altro qualsiasi suggerimento è bene accetto.
Ciao,
Alessandro
Ciao Alessandro,
regolata da convalidasignifica che non è possibile digitare altri valori oltre a vero/falso?
L'unica cosa che mi viene in mente è una formattazione condizionale al volo. Nell’esempio che ti allego ho ipotizzato che i valori VERO/FALSO
digitati si trovino nella colonna “F” cioè 6, modifica nel codice il numero evidenziato in grassetto, adattandolo alle tue esigenze.
Ci sentiamo,
Andrea.
Copia/incolla la routine seguente nel modulo worksheet (Foglio) in cui sono contenuti i dati che stai digitando.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim lColonna As Long
'---------- adatta questo valore alle tue esigenze
**** lColonna = 6
With Target
If (.Cells.Count > 1) Then Exit Sub
'If Not (Application.Intersect(Target, Range("A1:B10")) Is Nothing) Then
If (.Column = lColonna) Then
Application.EnableEvents = False
.FormatConditions.Delete
If (.Value = vbNullString) Then
If (.Font.Name = "Webdings") Then .Font.Name = "Arial"
.Font.Bold = False
ElseIf (.Value = True) Then
.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, Formula1:="a"
.FormatConditions(1).Font.Color = -11489280
.Font.Name = "Webdings"
.Font.Bold = True
.Value = "a"
ElseIf (.Value = False) Then
.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, Formula1:="r"
.FormatConditions(1).Font.Color = -16776961
.Font.Name = "Webdings"
.Font.Bold = True
.Value = "r"
Else
If (.Font.Name = "Webdings") Then .Font.Name = "Arial"
.Font.Bold = False
End If
Application.EnableEvents = True
End If
End With
End Sub