[excel] giustificare testo all'interno della cella

[borgata]

Bisognerebbe provere a risolvere il problema alla fonte, ossia mantenere la giusta formattazione e convertire adeguatamente il dato.

Per capire come procedere bisogna però capire come vengono acquisiti i dati. Finora pensavo che venissero copiati tutti insieme da un'unica fonte e poi incollati nel foglio, dove era necessario fare qualche aggiustamento.
Ma se in questo caso c'è un solo dato che presenta questo problema, ho idea che non sia così.
Come vengono acquisiti i dati, quindi?

[Alexsandra]

quella sarebbe la soluzione migliore

[gutguy]

Inviato da borgata

Come vengono acquisiti i dati, quindi?

da un semplice copia ed incolla.
ho un foglio txt da cui seleziono tutto il testo e faccio


altra cosa, stavo facendo ora una prova, so già che ho fatto qst domanda, ma lanciando la macro in un altro foglio non funge, cosa posso fare?

[borgata]

E i dati nel foglio txt da dove arrivano?
Perchè se arrivano dalla stessa fonte, mi sembra strano che i formati all'interno del foglio siano così eterogenei.

[gutguy]

Inviato da borgata

E i dati nel foglio txt da dove arrivano?

non ho la fonte ufficiale poiché i fogli txt mi vengono passati dall'amministrazione, però facendo una sorta di reverse engineering parebbe provenire da qui

[Alexsandra]

Inviato da gutguy

....altra cosa, stavo facendo ora una prova, so già che ho fatto qst domanda, ma lanciando la macro in un altro foglio non funge, cosa posso fare?

non hai lo stesso intervallo di colonne, cancella la colonna A (dovresti avere dei numeri progressivi) oppure si modifica la macro e teniamo SEMPRE come prima colonna il numero progressivo.
scegli tu

[gutguy]

Inviato da Alexsandra

teniamo SEMPRE come prima colonna il numero progressivo.

devi scusarmi ma io non sono certo afferrato in materia come te, non ho capito bene cosa intendi...
non si potrebbe modificare la macro affinché agisca su tutta l'area del foglio?
oppure che richieda l'area in cui operare quando lo si lancia (mi sembra di ricordare che cmq qst opzione non è contemplabile)

[LoryOne]

Inviato da gutguy

richieda l'area in cui operare quando lo si lancia (mi sembra di ricordare che cmq qst opzione non è contemplabile)

Certo che si, ma cio implica anche che le operazioni che compie siano strettamente legate alla tipologia di dato che deve gestire in ogni colonna appartenente al range: Puoi specificare dei parametri nella chamata alla sub, sapendo che il primo parametro è un range sul quale avviene una cosa, sul secondo un'altra e via di seguito...

[LoryOne]

Oppure, inizi a pensare in altro modo:
Prima sviluppi funzioni/Sub specifiche per ogni colonna, poi ti crei un file che contiene le istruzioni da eseguire sequenzialmente e che dai in pasto alla macro, es:

#Rimuove duplicati: NoDup
#Rimpiazza: Repl(Cosa!Cosa1)
#Cambia Formato: Format(Formato!Tipo)
#Cambia allineam: Align(Allineamento)

@A1:A22>Repl( !),Repl([*]! ),Format(0.00!General),Repl(.!,),NoDup,Align(4)
@B1:C44>Repl( !),Align(3),NoDup
@...

In questo modo, sei tu che imponi cosa deve fare in base alla tipologia di dato che trovi nelle tabelle importate e lo lasci lavorare fino a quando non ha raggiunto l'ultimo range.
Se ti servono altre istruzioni, le crei e le aggiungi in coda.

[Alexsandra]

Il problema è che in origine c'era un foglio che come prima colonna aveva il nome della nazione e su quelle impostazioni è stata sviluppata la macro.
In seguito hai detto di prelevare i dati da una pagina web e incollarli in un txt in cui c'era come prima colonna un numero progressivo.

con questa differenza la macro non trova più i dati che cerca.
ti ho modificato la macro tenendo presente di queste modifiche, cioè come prima colonna il numero progressivo.

Sub prova1()
Dim ultimaC, Mstringa As String
Dim Ccol As Range
Dim Pspazio As Integer

'togliere Hyperlinks
Cells.Hyperlinks.Delete
'togliere il carattere [4]
Columns(3).Replace What:="[*]", Replacement:=""
'allineare a Dx
Columns("C:F").HorizontalAlignment = xlRight
' formattazione generale
Columns("C:D").NumberFormat = "General"
' 2 decimali finali
Columns("F").NumberFormat = "0.00"
'cambiare il punto con le virgole
For Each cell In ActiveSheet.UsedRange
If InStr(1, cell.Text, ".") > 0 Then
cell.Value = CDbl(Val(cell.Text))
End If
Next

'togliere gli spazi
For Each oCell In Range(Cells(1, "B"), Cells(Rows.Count, 1).End(xlUp))
    With oCell
        .Value = Trim(.Value)
    End With
Next oCell

'togliere doppioni nella cella
ultimaC = Range("B1").End(xlDown).Address
For Each Ccol In Range("B2:" & ultimaC)
Mstringa = Ccol
Pspazio = InStrRev(Mstringa, " ", -1)
If Pspazio <> 0 Then
k = Left(Mstringa, Pspazio - 1)
k1 = Mid(Mstringa, Pspazio + 1)
If k = k1 Then
Ccol = k
End If
Else
End If
Next
End Sub

funziona su qualsiasi foglio indipendentemente dal nome e cerca da sola l'inizio dei dati e la loro fine per scorrere tutta la tabella.
provala e fai sapere

[gutguy]

Inviato da Alexsandra

[SPOILER]

Sub prova1()
Dim ultimaC, Mstringa As String
Dim Ccol As Range
Dim Pspazio As Integer

'togliere Hyperlinks
Cells.Hyperlinks.Delete
'togliere il carattere [4]
Columns(3).Replace What:="[*]", Replacement:=""
'allineare a Dx
Columns("C:F").HorizontalAlignment = xlRight
' formattazione generale
Columns("C:D").NumberFormat = "General"
' 2 decimali finali
Columns("F").NumberFormat = "0.00"
'cambiare il punto con le virgole
For Each cell In ActiveSheet.UsedRange
If InStr(1, cell.Text, ".") > 0 Then
cell.Value = CDbl(Val(cell.Text))
End If
Next

'togliere gli spazi
For Each oCell In Range(Cells(1, "B"), Cells(Rows.Count, 1).End(xlUp))
    With oCell
        .Value = Trim(.Value)
    End With
Next oCell

'togliere doppioni nella cella
ultimaC = Range("B1").End(xlDown).Address
For Each Ccol In Range("B2:" & ultimaC)
Mstringa = Ccol
Pspazio = InStrRev(Mstringa, " ", -1)
If Pspazio <> 0 Then
k = Left(Mstringa, Pspazio - 1)
k1 = Mid(Mstringa, Pspazio + 1)
If k = k1 Then
Ccol = k
End If
Else
End If
Next
End Sub

[SPOILER]
funziona su qualsiasi foglio indipendentemente dal nome e cerca da sola l'inizio dei dati e la loro fine per scorrere tutta la tabella.
provala e fai sapere

ti ringrazio tanto
ho però ancora qlc problemino come vedi
prima: http://tinyurl.com/zobxqlp
dopo: http://tinyurl.com/zujuggs
ti chiedevo anche se la macro toglieva le immagini...
non vorrei apparire come un rompiscatole

[Alexsandra]

le immagini si possono togliere, ma non capisco che problemi hai ancora, non colgo la differenza tra i 2 file che hai postato.

meglio se fai un riassunto

[gutguy]

Inviato da Alexsandra

non colgo la differenza tra i 2 file che hai postato

mi scuso se non sono stato chiaro e rinnovo il ringraziamento, la differenza ad es. è la colonna F dove si vedono degli zeri, e il separatore di migliaia è ancora il punto anziché l'apostrofo o anche nulla è indifferente per me anche perché si può impostare dopo col formato

[Alexsandra]

Secondo me hai fatto un po' di confusione con i file
nel tuo post N° 71 hai allegato 2 file etichettandoli come prima e dopo l'esecuzione della macro, però l'unica differenza che c'è tra i 2 file è della sola colonna F.

In questa colonna abbiamo impostato una formattazione numerica con 2 decimali, ma in effetti contiene del testo, (a che serve il formato numerico con 2 decimali??) in ogni caso dopo l'esecuzione della macro c'è la virgola come separatore.(perchè abbiamo convertito in testo in numero)

Ho scaricato i tuoi 2 file e copiato le colonne in un file unico per confrontarle.


aumentando lo zoom si vede che il separatore virgola c'è

https://lh3.googleusercontent.com/-3...40-Ic42/22.jpg

per gli spazi vuoti della colonna F .... non c'è niente in quelle righe anche prima dell'esecuzione della macro (sono le celle in blu).
Non so, ma credo che devi fare un controllo dei file su cui lanci la macro, poi se c'è da modificare qualche colonna non ci sono problemi, l'importante è sapere dove intervenire.

[gutguy]

penso tu abbia ragione, in effetti penso che non mi sono riuscito a spiegare bene

In questa colonna abbiamo impostato una formattazione numerica con 2 decimali, ma in effetti contiene del testo, (a che serve il formato numerico con 2 decimali??) in ogni caso dopo l'esecuzione della macro c'è la virgola come separatore.(perchè abbiamo convertito in testo in numero)

in effetti in quella colonna c'è del testo anziché del numero perché io pensavo la macro convertisse il separatore migliaia e quello decimale indipendentemente dalla colonna da quello che scrivi ora sembrerebbe non essere così, in effetti può capitare che una colonna un tempo ospiti testo un altro numero, non è detto, a sto punto ti chiedo dove devo agire per dire alla macro su quale colonna convertire il formato numerico ignorando tale funzione nel caso ci sia tel testo invece