Icon Sets Excel

Hai un problema con Excel?

Nuova discussione

Icon Sets Excel
di Mary (utente non iscritto) data: 02/12/2015 19:25:46
Ciao a tutti,
avrei bisogno di una mano. Vorrei sapere se qualcuno di voi ha mai avuto l'esigenza di utilizzare icone personalizzate per la funzionalità "Conditional Formatting -> Icon Sets". Se si, come posso fare?

Grazie mille,
Mary
di Marius44 data: 02/12/2015 21:01:06
Ciao Mary
Scheda Home ==> Formattazione Condizionale ==> Nuova Regola
quando si apre la maschera nella parte bassa c'è Stile formato, seleziona la freccetta e quindi seleziona il tipo di icone che vuoi.

Ciao,
Mario
Icon Sets Excel
di Mary (utente non iscritto) data: 02/12/2015 22:16:56
Ciao Mario,
forse non mi sono spiegata correttamente. Vorrei utilizzare delle icone mie personali al posto di quelle che visualizzo quando accedo al set predefinito delle icone della formattazione condizionale.

Spero di essermi spiegata,

grazie mille,
Mary
di alfrimpa data: 02/12/2015 22:32:50
Ciao Mary ed un caro saluto a Mario.

Ma queste tue "icone personali" cosa sono? Sono immagini particolari che vuoi inserire?

Forse non c'entra nulla ma ti segnalo il font Webdings (spero di ricordare bene il nome) che alla digitazione di una qualsiasi lettera dell'alfabeto maiuscola/minuscola restituisce una corrispondente icona.

Sarebbe il caso che tu allegassi un file di esempio e facessi vedere il risultato che vuoi raggiungere.

Alfredo
Icon Sets Excel
di Mary (utente non iscritto) data: 02/12/2015 22:47:58
Ciao Alfredo,
leggendo un po su Internet effettivamente qualcuno ha risolto con i Webdings ma non credo sia il mio caso perchè le mie icone non sono "mappabili" con quelle comprese nel set dei Webdings.

Comunque allego un Excel in cui sono presenti le immagini che vorrei utilizzare per la formattazione condizionale...

credo non sia risolvibile il mio problema...

grazie mille

Mary
di Marius44 data: 02/12/2015 23:13:08
Ciao Mary e ciao Alfredo
Le tue icone sono pictures! Non puoi gestirle come le icone della formattazione condizionale. Penso che puoi arrivarci tramite VBA.
Guarda però che le picture "appesantiscono" tanto. Forse è meglio utilizzare quelle della formattazione condizionale (che non sono poche).

Ciao,
Mario
di alfrimpa data: 02/12/2015 23:38:06
Ciao Mary

Concordo con Mario; probabilmente con il VBA si potrebbe anche far qualcosa (non ho ancora visto il file) ma, ritengo, solo se il numero di righe da valutare sia assai ridotto.

Se invece, come penso, il numero di righe è rilevante credo che ti convenga pensare ad un'alternativa.

Alfredo
di Mary (utente non iscritto) data: 03/12/2015 12:31:51
Ciao Mario e Alfredo,
grazie per i vostri feedback.
@Mario: lo so che le icone della formattazione condizionale sono diverse ma devo utilizzare necessariamente quella picture che ho inseirito nel file.

@Alfredo: in relatà il numero di righe non è elevato (si tratta di una 50ina di righe) quindi potrei gestirle senza problemi.

Purtroppo con VBA non sono per niente esperta...se è troppo complicato farò semplicemente copia e incolla delle immagini nelle celle e risolvo il problema..

Grazie mille,
Mary

di Marius44 data: 03/12/2015 16:01:08
Ciao Mary
Eccoti una "bozza" (senza dubbio da migliorare e di molto);prova con la macro sottostante (da inserire nel Modulo del Foglio interessato).
Inserisci un numero ( 0, 1 oppure 2 ) in una delle celle dell'intervallo A1:A50
Ovviamente la "legenda e le immagine devo essere presenti e le immagini riportare i medesimi "nomi".

Ciao,
Mario

Private Sub Worksheet_Change(ByVal Target As Range)
Dim ele As Range
Set ele = Range("A1:A50")
    If Not Intersect(Target, ele) Is Nothing Then
        If Target.Value = "" Then GoTo 1
        If Target.Value = 0 Then
            Pictures(3).Select: Selection.Copy
        ElseIf Target.Value = 1 Then
            Pictures(2).Select: Selection.Copy
        ElseIf Target.Value = 2 Then
            Pictures(1).Select: Selection.Copy
        End If
        Cells(Target.Row, Target.Column + 1).Select
        ActiveSheet.Paste: Cells(1, 3).Select
    End If
1   Set ele = Nothing
End Sub

Vuoi Approfondire?