Formattzione valori con simbolo triangolini colorati

[Ricky0185]

Buonasera,
Buonasera, dovrei formattare all’interno di una macro questi numeri

Codice: Seleziona tutto

267,00
249,30
177,84
-259,80
-518,40
475,20

In modo che risultino così


La formattazione non inserita nella macro sarebbe

Codice: Seleziona tutto

[Verde]▲#.##0,00;[Rosso]▼#.##0,00;

ma se la inserisco nella macro i triangolini nel VB diventano punti interrogativi e come risultato i dati contenuti nelle celle si colorano si di rosso o verde, ma non appaiono i triangolini colorati.
Qual'è l'istruzione da inserire nella macro per ottenere il risultato completo ?
Grazie. Saluti
R

[Raffaele53]

Prova

Codice: Seleziona tutto

Sub colora()
    Range("A1:A6").NumberFormat = "[Green]?#,##0.00;[Red]?#,##0.00)"
End Sub


[Marius44]

Ciao
Prova con questa macro (con i valori nell'intervallo A1:A6)

Codice: Seleziona tutto

Sub prova()
    Range("A1:A6").Select
    Selection.FormatConditions.AddIconSetCondition
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1)
        .ReverseOrder = False
        .ShowIconOnly = False
        .IconSet = ActiveWorkbook.IconSets(xl3Triangles)
    End With
    Selection.NumberFormat = "[Green]?#,##0.00;[Red]?#,##0.00"
End Sub


Fai sapere. Ciao,
Mario

[Ricky0185]

Salve, la macro di Raffaele colora coerentemente i valori delle celle ma non inserisce le freccette indicative. Quella di Marius si inceppa in IconSet con errore 438 (ma anche prima, vedi righe verdine).

Il problema è che quando si trasferisce nella macro l’istruzione

Codice: Seleziona tutto

Selection.NumberFormat = "[Green] ▲ #,##0.00;[Red] ▼ #,##0.00;@"

Questa diventa

Codice: Seleziona tutto

Selection.NumberFormat = "[Green]?#,##0.00;[Red]?#,##0.00"

Come nella macro di Marius, cioè i triangolini diventano punti interrogativi e quindi non compaiono nel risultato della Sub formattazione.
Sto provando come inserire nella formula della Sub i triangolini
[A1].Formula = ChrW(&H25BC)
[A4].Formula = ChrW(&H25B2)
e funziona, ma li devo “legare” al valore che si trova nella stessa cella e dare le relative istruzioni di formattazione: Valore >0 colori verde e triangolino rivolto verso l’alto, Valore <0 colori rossi e triangolino rivolto verso il basso.
L’osso duro è mettere nella stessa cella triangolino e valore preesistente, all'ora di pranzo mi sono ubriacato di &.
Suggerimenti sono ben accetti.
Vi saluto
R

[Raffaele53]

Stamani la mia funzionava, stasera no. Bhooooo
Quella di Marius44, da me funziona
Riprova con questa...

Codice: Seleziona tutto

Sub Colora2()
Dim rng As Range
Set rng = Sheets(ActiveSheet.Name).Range("A1:A6")
    rng.FormatConditions.Delete
    rng.FormatConditions.AddIconSetCondition
    rng.FormatConditions(rng.FormatConditions.Count).SetFirstPriority
    With rng.FormatConditions(1)
        .IconSet = ActiveWorkbook.IconSets(xl3Triangles)
    End With
    rng.NumberFormat = "[Green]?#,##0.00;[Red]?#,##0.00"
Set rng = Nothing
End Sub

[Marius44]

Salve a tutti
Allego il file sul quale ho lavorato. Cliccare sul pulsante per colorare i valori ed inserire i triangolini.
Questo il link https://www.dropbox.com/scl/fi/98961h4k1foundbyod0zt/FC_Marius.xlsm?rlkey=1dreijhajr35lep6scpiwzx9a&dl=0
Ciao,
Mario

[Raffaele53]

@Marius44
Ciao, dato che è una FC suggerisco d'eliminare la FC già preesistente (verrebbero duplicate)
>>>Selection.FormatConditions.Delete

@Ricky0185, come detto stamane mi ha funzionato.
Sono riuscito nuovamente inserendo in "Formatto Celle" la Tua stringa.
Riguardo il VBA che non accetta il triangolino, trovato altra soluzione

Codice: Seleziona tutto

Sub colora3()
    Range("A1:A6").NumberFormat = "0.00" 'non servirebbe, serve solo se desideri toglierla
    Range("A1:A6").NumberFormat = "[Green]" & ChrW(&H25B2) & "#,##0.00;[Red]" & ChrW(&H25BC) & "#,##0.00)"
End Sub

[Ricky0185]

Ringrazio Raffaele e Marius per i loro ultimi file. Ambedue funzionano perfettamente, l'unico neo è la forma delle freccette per i dati positivi. Ho cincischiato con il set di icone per inserire la freccetta verde rivolta verso l'alto per i valori positivi senza successo. Per il resto tutto bene. Non verrà usato il bottone di Marius perchè la macro è inserita all'interno di altra e seguita da altre istruzioni.
Ora ho veramente tutto per facilitare il mio lavoro accorciando drasticamente il tempo per ricavare i dati che mi servono.
Grazie ancora del Vostro aiuto, quello di Raffaele per l'interesse dimostrato e quello di Marius che si è sobbarcato una faticosa trasferta (dall'altro sito - salutami Alfredo) per venire in aiuto.
Salutoni
R
PS Per mia curiosità vorrei ottenere lo stesso risultato utilizzando le formule menzionate nel mio post delle 13,43. Chi mi aiuta ad unire nella stessa cella il risultato della formula con il valore in essa contenuto ? Senza colonna d'appoggio.

[Ricky0185]

Ciao Marius, ho aggiunto la tua macro a quella che mi serve per intercettare valori positivi e negativi, ma ogni volta che apro il file o un altro le icone sono sempre per i valori positivi quel segno meno giallino, mentre nel tuo file sono giustamente frecce verdi all'apertura.
Le ho modificate in modo corretto agendo sulla formattazione condizionale-set di icone-altre regole, ma poi riaprendo il file...ecco nuovamente il segno meno. Come hai fatto a rendere permanente le due frecce ?

[Raffaele53]

@Ricky0185 hai letto bene il post del 12/05/25 20:56 ???

[Ricky0185]

Potevi dirmelo che quelle istruzioni erano proprio quel che cercavo. Formidabile.
Speriamo solo che non capiti come a te che alla sera funzionano ed il mattino dopo fanno le bizze.
Grazie mille della dritta. Ora sono proprio a posto e soddisfatto, perciò non Vi disturberò più (sull'argomento...).
Buona serata
R

[Marius44]

Ciao
La macro non fa altro che indicare quale set di icone si vuole utilizzare. Salvandolo e riaprendolo NON PUO' CAMBIARE.
In merito all'utilizzo di rng.FormatConditions.Delete (nel mio esempio: Selection.FormatConditions.Delete) hai ragione: E' NECESSARIA (io avevo previsto un solo clic sul pulante).

Ciao,
Mario