Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

[Excel] Colorare e riempire celle al clik del mouse

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

[Excel] Colorare e riempire celle al clik del mouse

Postdi eleinad75 » 09/05/06 11:10

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
eleinad75
Utente Junior
 
Post: 54
Iscritto il: 22/02/06 10:13

Sponsor
 

Postdi Alexsandra » 09/05/06 22:13

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
Avatar utente
Alexsandra
Utente Senior
 
Post: 2358
Iscritto il: 09/01/06 20:31

Postdi eleinad75 » 11/05/06 07:28

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
eleinad75
Utente Junior
 
Post: 54
Iscritto il: 22/02/06 10:13

Postdi Alexsandra » 11/05/06 09:46

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
- Il primo fondamento della sicurezza non e' la tecnologia, ma l'attitudine mentale.

Win7 + Office 2003 Ita
Avatar utente
Alexsandra
Utente Senior
 
Post: 2358
Iscritto il: 09/01/06 20:31


Torna a Applicazioni Office Windows


Topic correlati a "[Excel] Colorare e riempire celle al clik del mouse":


Chi c’è in linea

Visitano il forum: Nessuno e 8 ospiti