è possibile visualizzare i numeri negativi con un colore diverso?

salve, da poco ho cominciato a usare excel per fare il bilancio mensile di un'azienda, in pratica in una prima colonna vanno le entrate, in una seconda le uscite e nella terza la somma delle prime due, il mio problema è: vorrei trovare un modo automatico per fare in modo che quando la somma delle prime due colonne risulta negativa venga scritta in rosso automaticamente, quando invece risulta positiva in nero, è possibile? Spero di aver esposto il problema in maniera chiara e che mi arrivi una soluzione, perchè fare questo lavoro manualmente è un po' scomodo!

---

Scritto da: sidious 29/03/2005 0.26
salve, da poco ho cominciato a usare excel per fare il bilancio mensile di un'azienda, in pratica in una prima colonna vanno le entrate, in una seconda le uscite e nella terza la somma delle prime due, il mio problema è: vorrei trovare un modo automatico per fare in modo che quando la somma delle prime due colonne risulta negativa venga scritta in rosso automaticamente, quando invece risulta positiva in nero, è possibile? Spero di aver esposto il problema in maniera chiara e che mi arrivi una soluzione, perchè fare questo lavoro manualmente è un po' scomodo!

---

1) seleziona la colonna.
2) vai nel menu atendina in alto in formato->formattaqzione condizionale...
3) imposta comne:
il valore della cella | è minore di | 0
4) premi il tasto formato e cambia il colore del carattere o del motivo
5) premi ok

Potresti ottenere la colorazione rossa dei numeri negativi evidenziando le celle, tasto destro, formato celle. seleziona numero e sulla destra trovi una finestrella con le visualizzazioni possibili....

Con la formattazione condizionale riesci a colorare anche lo sfondo delle celle ....

PS nella formattazione condizionale ho usato "Minore o uguale a -1" perchè mi era sfuggita la condizione "Minore" cosa che ho corretto alla fine della procedura, ma ormai le prime immagini erano fatte...... sorry
















Questa è la formattazione condizionale.

Scusa Kyuss-RA per la mia invadenza ma ne ho approfittato per creare "Formattazione Condizionale" nel post "Come Fare...."

Aggiungo questo esempio che permette, tramite VBA di superare il limite delle tre formatazioni. L'esempio ha 5 formattazioni in base ad un range prestabilito ma se ne potrebbero creare un'infinità....
Compilate la descrizione della scadenza e la data il resto è automatico.



Scadenze.xls




E questo è il listato.

Private Sub Worksheet_Activate()
Dim oCell As Range
For Each oCell In Range("c10:c103")
    riga = oCell.Row
    colonna = oCell.Column
   Select Case oCell.Value
      Case ""
         oCell.Interior.ColorIndex = 2
         oCell.Font.ColorIndex = 1
         Cells(riga, colonna + 2).Interior.ColorIndex = 2
         Cells(riga, colonna + 4).Interior.ColorIndex = 2
         Cells(riga, colonna + 2).Font.ColorIndex = 1
         Cells(riga, colonna + 4).Font.ColorIndex = 1
      Case Is > Cells(10, 15).Value
         oCell.Interior.ColorIndex = 4
         oCell.Font.ColorIndex = 1
         Cells(riga, colonna + 2).Interior.ColorIndex = 4
         Cells(riga, colonna + 4).Interior.ColorIndex = 4
         Cells(riga, colonna + 2).Font.ColorIndex = 1
         Cells(riga, colonna + 4).Font.ColorIndex = 1
      Case Is > Cells(11, 15).Value
         oCell.Interior.ColorIndex = 6
         oCell.Font.ColorIndex = 1
         Cells(riga, colonna + 2).Interior.ColorIndex = 6
         Cells(riga, colonna + 4).Interior.ColorIndex = 6
         Cells(riga, colonna + 2).Font.ColorIndex = 1
         Cells(riga, colonna + 4).Font.ColorIndex = 1
      Case Is > Cells(12, 15).Value
         oCell.Interior.ColorIndex = 44
         oCell.Font.ColorIndex = 1
         Cells(riga, colonna + 2).Interior.ColorIndex = 44
         Cells(riga, colonna + 4).Interior.ColorIndex = 44
         Cells(riga, colonna + 2).Font.ColorIndex = 1
         Cells(riga, colonna + 4).Font.ColorIndex = 1
      Case Is > Cells(13, 15).Value
         oCell.Interior.ColorIndex = 3
         Cells(riga, colonna + 4).Font.ColorIndex = 2
         Cells(riga, colonna + 2).Interior.ColorIndex = 3
         Cells(riga, colonna + 4).Interior.ColorIndex = 3
         oCell.Font.ColorIndex = 2
         Cells(riga, colonna + 2).Font.ColorIndex = 2
         Cells(riga, colonna + 4).Font.ColorIndex = 2
      Case Is <= Cells(14, 15).Value
         oCell.Interior.ColorIndex = 1
         oCell.Font.ColorIndex = 2
         Cells(riga, colonna + 4).Font.ColorIndex = 2
         Cells(riga, colonna + 2).Interior.ColorIndex = 1
         Cells(riga, colonna + 4).Interior.ColorIndex = 1
         Cells(riga, colonna + 2).Font.ColorIndex = 2
         Cells(riga, colonna + 4).Font.ColorIndex = 2
   End Select
Next oCell
Sheets("Scadenze").Range("C10:G103").Select
Selection.Sort Key1:=Sheets("Scadenze").Range("C10"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Cells(1, 1).Select
End Sub

[Modificato da Bryan Fury 10/05/2005 23.52]

ciao Bryan,

ho visto il tuo esempio e lo trovo molto interessante.

Una cosa volevo chiederti:

la tua sub è dichiarata private, e aprendo il file allegato non la trovo in nessun modulo, mi puoi siegare dove è e quale è il significato di private?

grazie

Se non ricordo male Private si usa per dichiarare una variabile che ha valore e funziona solo a lovello modulo, si usa pubblic per una variabile globale, visibile ed utilizzabile da qualsiasi modulo...

nell'esempio è comunque un evento legato al foglio quindi quando il foglio viene attivato parte la routine .... ma è confinata a solo quel foglio e non viene attivata se attivi altri fogli ...

anche io vorrei risolvere questo problema.
grazie

Sono nuovo del forum un saluto a tutti.
Marco