PDA

View Full Version : excel

simonemancino
22-10-2003, 11:52
come elimino gli spazi vuoti dalle celle di excel una volta inserito il testo?
zuper
22-10-2003, 13:09
all'interno delle celle?
o le celle vuote?

nel primo caso con un SOSTITUISCI nel trova metti lo spazio nell'altro nulla

nel secondo caso basta che le metti in ordine e elimini quelle vuote
simonemancino
22-10-2003, 13:40
io inserisco in una cella ad esempio a e voglio eliminare gli spazi prima e dopo la a, quindi nella cella mi rimane solo un carattere in questo caso. Ora io questo devo gestirlo da codice VBA possibilmente, ad esempio al click di un bottone elimino tutti gli spazi vuoti.
Ciao
guldo76
22-10-2003, 14:11
In VBA c'e' la funzione "trim" che rimuove gli spazi all'inizio e alla fine della
stringa.
variabile = trim(var_stringa)
La funzione restituisce null se var_stringa e' null.
Se invece vuoi elimiare TUTTI gli spazi, fai come dice zuper.
Al limite registri la macro e poi ne osservi il codice.

Guldo
zuper
22-10-2003, 19:37
Originariamente inviato da zuper
all'interno delle celle?
o le celle vuote?

nel primo caso con un SOSTITUISCI nel trova metti lo spazio nell'altro nulla

nel secondo caso basta che le metti in ordine e elimini quelle vuote
zuper
22-10-2003, 19:41
Originariamente inviato da guldo76
In VBA c'e' la funzione "trim" che rimuove gli spazi all'inizio e alla fine della
stringa.
variabile = trim(var_stringa)
La funzione restituisce null se var_stringa e' null.
Se invece vuoi elimiare TUTTI gli spazi, fai come dice zuper.
Al limite registri la macro e poi ne osservi il codice.

Guldo

se proprio vuoi il codice prova con questo...


Sub cancella()
Cells.Replace What:=" ", Replacement:="", LookAt:=xlPart, SearchOrder:= _
xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
End Sub


č una macro..

crei un pulsante.

prima di lanciarlo devi selezionare a mano il range di celle
zuper
22-10-2003, 19:44
cosė invece seleziona TUTTO il foglio e cancella tutti gli spazi


Sub cancella()

Cells.Select
Cells.Replace What:=" ", Replacement:="", LookAt:=xlPart, SearchOrder:= _
xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
Range("A1").Select

End Sub