maurogsc.eu
mauro gamberini


home ==> Excel: come fare per ==> Colore: visualizzare i colori standard

Colore: visualizzare i colori standard - VBA

NOTA. La soluzione ed il codice sono forniti *così come sono* e l’autore declina ogni responsabilità per eventuali problemi causati dal codice o dalla soluzione proposta se usati impropriamente. Create e utilizzate una copia del file per le vostre prove, *prima* di utilizzare il codice o la soluzione in files importanti.

1 - Codice colora lo sfondo delle celle A1:A56 del Foglio1 con i colori base e scrive in B1:B56 il riferimento colore. Si presuppone l'utilizzo della tavolozza di colori predefinita:

Public Sub m()
    Dim lng As Long
    Dim sh As Worksheet
    Set sh = ThisWorkbook.Worksheets("Foglio1")
    With sh
        For lng = 1 To 56
            .Range("A" & lng).Interior.ColorIndex = lng
            .Range("B" & lng).Value = "Color Index: " & lng
        Next
    End With
    Set sh = Nothing
End Sub

Vedi anche qui(in inglese): http://www.cpearson.com/excel/colors.aspx

Per ulteriori informazioni su Microsoft Excel ed il suo Visual Basic, utilizzate questo forum:
http://social.answers.microsoft.com/Forums/it-IT/officeexcelit/threads


Ultimo aggiornamento di questa pagina: 25/11/2010 - mauro gamberini