[Excel] Colorare e riempire celle al clik del mouse

[eleinad75]

Salve a tutti.
Devo predisporre un elenco dei giustificativi
delle assenze, possibilmente in formato word, da compilare elettronicamente che ogni persona deve compilare per ogni assenza
che effettua.

Ho necessità di inserire dei "quadratini" dove cliccando sopra, automaticamente, si colora o appare una "X" come ad indicare la
scelta effettuata.

Come posso fare?
Ringrazio anticipatamente.

*** Metti titoli più esatti la prossima volta , per favore (vedi gli altri della sezione) Grazie

[Alexsandra]

Consiglio Excel ,prova così

Codice: Seleziona tutto

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    ActiveCell.FormulaR1C1 = "x"
      With Selection.Interior
       .ColorIndex = 6
      .Pattern = xlSolid
    End With
End Sub


Quando fai clik su una cella la colori di giallo e scrivi una x

[eleinad75]

Grazie per l'aiuto ma sono proprio un "ignorante" in materia di formule....
ora come devo fare per poter utilizzare la tua formula?
Dove devo copiarla?
Grazie

[Alexsandra]

Apri Excel e premi ALT+F11 assieme, ti si apre l'editor di VBA troverai scritto in una finestra a Sx i nomi dei fogli fai clik sulla vove "ThisWorkbook" e poi nella finestra di Dx in alto trovi 2 box con una freccia laterale.
Nel box di Sx clicca sulla freccia e nel menù a discesa scegli "Workbook" e nel box di Dx clicca sulla freccia e scegli dal menù a discesa "SheetSelectionChange" e nella finestra sotto copi il codice postato. Se vuoi che ti compaia la x in grassetto su sfondo giallo e la bordatura della cella copia invece questo codice

Codice: Seleziona tutto

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    ActiveCell.FormulaR1C1 = "x"
      With Selection.Interior
       .ColorIndex = 6 ' cambiando il 6 cambi colore di sfondo
       .Pattern = xlSolid
      End With
       With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .Weight = xlMedium
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .Weight = xlMedium
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .Weight = xlMedium
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .Weight = xlMedium
        .ColorIndex = xlAutomatic
    End With
    Selection.Font.Bold = True
End Sub