cambiare l'allineamento in 1 cella in base al valore

[KingAnto]

Salve a tutti
il mio problema con excel è il seguente:
ho una colonna di numeri che vanno da 0 a 20 tutti con allineamento a sinistra

vorrei se possibile, far spostare in automatico a destra tutti i testi 0 ........ è possibile?
non sono riuscito a trovare niente a riguardo.......

GRAZIE A TUTTI COLORO CHE POTRANNO DARE UNA MANO

[Zer0Kelvin]

Ciao.
Sarebbe semplice se tu volessi fare il contrario, cioè tutto a destra e gli zeri a sinistra.
Si può fare togliendo l'allineamento e formattando le celle come numeri; poi con formattazione condizionale formatti come testo le celle che contengono lo zero.
In questo modo avrai gli zeri allineati a sinistra(come il testo) e gli altri numeri allineati a destra.
Per qualche motivo provando a fare il contrario non funziona; se io formatto le celle come testo e poi assegno il formato numero alle celle con lo 0 i numeri rimangono tutti a sinistra...

Magari si può fare usando un formato personalizzato.

[KingAnto]

l'idea sarebbe quella di fare meno passaggi possibili
cioè nella tabella in oggetto i numeri arrivano in automatico da altre schede............
a me serve un modo ke con un semplice comando o automaticamente tutti gli 0 passino da un lato all'altro della cella (indifferentemente destra o sinistra)

[Flash30005]

Ciao KingAnto e benvenuto nel Forum

Ho considerato la colonna "A" come colonna con dati se non è così cambia il nome alla colonna nella macro
in un modulo inserisci questo codice

Codice: Seleziona tutto

Sub AllineaD()
UR = Range("A" & Rows.Count).End(xlUp).Row  '<<<< cambiare qui il nome colonna
Columns("A:A").HorizontalAlignment = xlLeft '<<<< cambiare qui il nome colonna
    For RR = 1 To UR
        If Range("A" & RR).Value = 0 And Val("A" & RR) = 0 Then Range("A" & RR).HorizontalAlignment = xlRight '<<<< cambiare qui il nome colonna
    Next RR
End Sub

e nel vba del foglio inserisci questo codice

Codice: Seleziona tutto

Private Sub Worksheet_Change(ByVal Target As Range)
UR = Range("A" & Rows.Count).End(xlUp).Row  '<<<< cambiare qui il nome colonna
CheckArea = "A1:A" & UR    '<<<< cambiare qui il nome colonna
If Application.Intersect(Target, Range(CheckArea)) Is Nothing Then Exit Sub
AllineaD
End Sub


Al variare di un dato nella colonna "A" avrai gli zero a destra e tutto il resto a sinistra
Con aggiornamenti automatici non saprei se la macro si attiva (dipende dal tipo di aggiornamento dat)
nel caso abbina la macro ad un tasto di scelta rapida (opzioni macro)

Ciao

[Zer0Kelvin]

l'idea sarebbe quella di fare meno passaggi possibili
cioè nella tabella in oggetto i numeri arrivano in automatico da altre schede............
a me serve un modo ke con un semplice comando o automaticamente tutti gli 0 passino da un lato all'altro della cella (indifferentemente destra o sinistra)

Come ho detto puoi fare in modo di avere automaticamente allineati gli altri numeri a sinistra e gli zeri a destra usando la formattazione condizionale (sai come fare?).
Devi formattare come testo tutte le celle ( o l'intera colonna) che contengono i valori, poi in formattazione condizionale devi selezionare "formatta solo le celle che contengono.." e imposti "valore uguale a" =0, dopodichè imposti il formato a "numero" e 0 come posizione dei decimali.
L'operazione và fatta una sola volta.