Colorare forma con formula

di
ccc
il
1 risposte
C
ccc
Pochi posts
Iscritto da
nov, 2015
Messaggi:
6

Colorare forma con formula

Salve a tutti, è possibile colorare una forma (Inserisci > Forme) con una formula?

Mi spiego meglio, vorrei che una forma creata, es: un rettangolo, si colorasse dello stesso colore di una cella, oppure si colorasse in base ad un valore numeri presente in una cella.

In (molto) pseudo-codice:
If colore.cella = giallo
          then colore.forma = giallo
Oppure
If A1>10
          then colore.forma = rosso
è possibile?

1 Risposte

  • M
    Marius44
    Utente Attivo
    Iscritto da
    set, 2015
    Messaggi:
    170

    Re: Colorare forma con formula

    Ciao
    Prova con questa macro (da inserire nel Modulo di Classe del Foglio) 
    Private Sub Worksheet_Change(ByVal Target As Range)
If Cells(1, 1).Interior.ColorIndex = 1 Then
    Sheets(1).Shapes("Rettangolo 1").Fill.ForeColor.RGB = RGB(0, 255, 0) 'Verde
ElseIf Cells(1, 2).Value >= 5 Then
    Sheets(1).Shapes("Rettangolo 1").Fill.ForeColor.RGB = RGB(255, 0, 0) 'Rosso
ElseIf Cells(1, 2).Value < 5 Then
    Sheets(1).Shapes("Rettangolo 1").Fill.ForeColor.RGB = RGB(0, 0, 255) 'Blu
End If
End Sub
    Tieni presente se la cella A1 è nera e NON ci sono numeri nella cella B1 allora funziona, altrimenti dà la precedenza ai numeri (maggiori o minori di 5) scritti in B1
    Ovvio che la forma deve chiamarsi "Rettangolo 1" altrimenti adatta il tutto alle tue esigenze.

    Prova e fai sapere. Ciao,
    Mario
Devi accedere o registrarti per scrivere nel forum
1 risposte