|
| HOMEPAGE | INDICE FORUM | REGOLAMENTO | ::. | NEI PREFERITI | .:: | RSS Forum | RSS News | NEWS web | NEWS software | |
| PUBBLICITA' | | | ARTICOLI | WIN XP | VISTA | WIN 7 | REGISTRI | SOFTWARE | MANUALI | RECENSIONI | LINUX | HUMOR | HARDWARE | DOWNLOAD | | | CERCA nel FORUM » | |
29-02-2016, 11.12.00 | #46 |
Gold Member
WT Expert
Registrato: 09-01-2002
Loc.: None of your business
Messaggi: 5.505
|
Rif: [excel] giustificare testo all'interno della cella
___________________________________
Practice feeds Skill,Skill limits Failure,Failure enhances Security,Security needs Practice |
29-02-2016, 20.32.58 | #47 |
Senior Member
WT Expert
Registrato: 19-05-2007
Loc.: Verona
Messaggi: 1.302
|
Rif: [excel] giustificare testo all'interno della cella
Lo hai provato?
___________________________________
- Il primo fondamento della sicurezza non e' la tecnologia, ma l'attitudine mentale - |
01-03-2016, 17.19.50 | #48 |
Gold Member
WT Expert
Registrato: 09-01-2002
Loc.: None of your business
Messaggi: 5.505
|
Rif: [excel] giustificare testo all'interno della cella
Se ti riferisci alle Regular Expression, non le ho provate nelle macro, ma qui dicono funzionino alla grande.
https://stackoverflow.com/questions/...cell-and-loops Se ti riferisci al mio script, funziona con riserva, nel senso che da una stringa " China China China" potrebbe ricavare una stringa "China ", dove quegli spazi non sono spazi, bensì caratteri nulli non presi in considerazione da un'eventuale RTrim$ Se invece lo script fosse questo: Codice:
Function Rimpiazzamelo(ByVal S As String) As String Dim Ss As String: Dim Pos As Long Ss = LTrim$(S): Pos = InStr(Ss, ChrW(32)) If Pos Then Rimpiazzamelo = RTrim$(Replace$(Ss, ChrW(32) & Left$(Ss, Pos - 1), vbNullString)) Else Rimpiazzamelo = Ss End If End Function
___________________________________
Practice feeds Skill,Skill limits Failure,Failure enhances Security,Security needs Practice |
04-03-2016, 13.22.17 | #49 | |
Hero Member
Registrato: 27-07-2004
Loc.: Bologna
Messaggi: 574
|
Rif: [excel] giustificare testo all'interno della cella
intanto ringrazio tutti per le risposte, e mi scuso per il ritardo ma prob di lavoro e connessione ballerina mi hanno impedito
di rispondere prima... ero rimasto al seguente codice del post #36 non ho capito ora se la macro per togliere i doppioni del post #41 va lanciata a parte o se eventualmente è possibile integrarla per qnt riguarda il post #40 vorrei applicarla Quota:
ho provato una RE da qst sito facendo trova "^p" (senza apici) e sostituisci con "^p testo" (senza apici) ma mi sbaglia la prima e ultima riga... esiste una macro eventualmente? |
|
05-03-2016, 08.13.37 | #50 |
Senior Member
WT Expert
Registrato: 19-05-2007
Loc.: Verona
Messaggi: 1.302
|
Rif: [excel] giustificare testo all'interno della cella
La puoi integrare così
Codice:
Sub prova1() Dim ultimaC, Mstringa As String Dim Ccol As Range Dim Pspazio As Integer Sheets("Foglio1").Activate 'togliere Hyperlinks Cells.Hyperlinks.Delete 'togliere il carattere [4] Columns(2).Replace What:="[*]", Replacement:="" 'allineare a Dx Columns("B:E").HorizontalAlignment = xlRight ' formattazione generale Columns("B:C").NumberFormat = "General" ' 2 decimali finali Columns("E").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)) 'togliere gli spazi Trim (cell.Text) End If Next ultimaC = Range("A1").End(xlDown).Address For Each Ccol In Range("A2:" & 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
___________________________________
- Il primo fondamento della sicurezza non e' la tecnologia, ma l'attitudine mentale - |
10-03-2016, 10.33.18 | #51 |
Hero Member
Registrato: 27-07-2004
Loc.: Bologna
Messaggi: 574
|
Rif: [excel] giustificare testo all'interno della cella
|
10-03-2016, 12.20.21 | #52 |
Gold Member
WT Expert
Registrato: 09-01-2002
Loc.: None of your business
Messaggi: 5.505
|
Rif: [excel] giustificare testo all'interno della cella
...e cliccando su Debug, a quale riga si ferma l'esecuzione ?
___________________________________
Practice feeds Skill,Skill limits Failure,Failure enhances Security,Security needs Practice |
11-03-2016, 08.13.16 | #53 |
Senior Member
WT Expert
Registrato: 19-05-2007
Loc.: Verona
Messaggi: 1.302
|
Rif: [excel] giustificare testo all'interno della cella
la macro gira, è probabile che tu non abbia "Foglio 1" oppure hai un altro nome
___________________________________
- Il primo fondamento della sicurezza non e' la tecnologia, ma l'attitudine mentale - |
11-03-2016, 09.42.02 | #54 |
Hero Member
Registrato: 27-07-2004
Loc.: Bologna
Messaggi: 574
|
Rif: [excel] giustificare testo all'interno della cella
c'hai ragione...mi scuso anche con alexandra, mi sono sbagliato io, avevo lanciato la macro per errore in un altro foglio
ecco come appare il foglio dopo aver eseguito la macro: http://tinyurl.com/glr5ofy detto ciò non mi da nessun errore, solo non toglie gli spazi iniziali... e finland dovrebbe essere 454000 e non 454... altra cosa, se lo lancio su un altro foglio (potrei averne bisogno in futuro), cosa devo fare? C'è modo di abilitare una selezione dell'area in cui deve operare quando si lancia la macro? un po' come il seguente: ancora grz per la pazienza |
11-03-2016, 17.31.24 | #55 | |
Senior Member
WT Expert
Registrato: 19-05-2007
Loc.: Verona
Messaggi: 1.302
|
Rif: [excel] giustificare testo all'interno della cella
Quota:
per finland è un del pasticcio, nel senso che non sò come dire al codice cosa debba fare in quella cella specifica ??? ci penso per il resto il codice diventa questo Codice:
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(2).Replace What:="[*]", Replacement:="" 'allineare a Dx Columns("B:E").HorizontalAlignment = xlRight ' formattazione generale Columns("B:C").NumberFormat = "General" ' 2 decimali finali Columns("E").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 Columns(1).Replace What:=" ", Replacement:="" 'togliere doppioni nella cella ultimaC = Range("A1").End(xlDown).Address For Each Ccol In Range("A2:" & 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
___________________________________
- Il primo fondamento della sicurezza non e' la tecnologia, ma l'attitudine mentale - |
|
11-03-2016, 21.04.56 | #56 |
Senior Member
WT Expert
Registrato: 19-05-2007
Loc.: Verona
Messaggi: 1.302
|
Rif: [excel] giustificare testo all'interno della cella
ho sbagliato
col codice che ti ho messo sopra togli tutti gli spazi, anche quelli tra 2 stringhe. questo è quello giusto Codice:
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(2).Replace What:="[*]", Replacement:="" 'allineare a Dx Columns("B:E").HorizontalAlignment = xlRight ' formattazione generale Columns("B:C").NumberFormat = "General" ' 2 decimali finali Columns("E").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, "A"), Cells(Rows.Count, 1).End(xlUp)) With oCell .Value = Trim(.Value) End With Next oCell 'togliere doppioni nella cella ultimaC = Range("A1").End(xlDown).Address For Each Ccol In Range("A2:" & 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
___________________________________
- Il primo fondamento della sicurezza non e' la tecnologia, ma l'attitudine mentale - |
15-03-2016, 15.49.35 | #57 |
Hero Member
Registrato: 27-07-2004
Loc.: Bologna
Messaggi: 574
|
Rif: [excel] giustificare testo all'interno della cella
ti ringrazio tanto...
ecco il risultato della macro http://tinyurl.com/zq5yqdk penso non si possa far nulla per finland una cosa, se volessi lanciare la tua macro sulla scheda 2 di qst foglio cosa dovrei fare? perché se lo lancio così non va... |
15-03-2016, 17.28.19 | #58 |
Senior Member
WT Expert
Registrato: 19-05-2007
Loc.: Verona
Messaggi: 1.302
|
Rif: [excel] giustificare testo all'interno della cella
un sistema ci sarebbe, lasciami fare delle prove.
In sostanza si dovrebbe trasformarlo in migliaia, cioè aggiungere 3 zeri ??? non va perchè le colonne non sono uguali, cancella la colonna 1 e lancia la macro, vedrai che funziona
___________________________________
- Il primo fondamento della sicurezza non e' la tecnologia, ma l'attitudine mentale - |
15-03-2016, 17.36.36 | #59 | |
Hero Member
Registrato: 27-07-2004
Loc.: Bologna
Messaggi: 574
|
Rif: [excel] giustificare testo all'interno della cella
non ti preoccupare, anzi scusami piuttosto se ti metto fretta, non è mia intenzione...
Quota:
dovrebbe diventare così: |
|
16-03-2016, 09.56.50 | #60 |
Senior Member
WT Expert
Registrato: 19-05-2007
Loc.: Verona
Messaggi: 1.302
|
Rif: [excel] giustificare testo all'interno della cella
per finland si potrebbe fare una cosa del genere:
fatta la conversione della colonna possiamo leggere da quante cifre è composta. se il n° di cifre è inferiore a 4 aggiungiamo 3 zeri non è un procedimento tanto affidabile, ma è l'unico che mi è venuto in mente.
___________________________________
- Il primo fondamento della sicurezza non e' la tecnologia, ma l'attitudine mentale - |
Utenti attualmente attivi che stanno leggendo questa discussione: 1 (0 utenti e 1 ospiti) | |
|
|
Discussioni simili | ||||
Discussione | Autore discussione | Forum | Risposte | Ultimo messaggio |
Corso VBA | Alexsandra | Guide | 85 | 16-11-2016 11.11.51 |
Berlusca & Co. 2 - La vendetta | Paco | Chiacchiere in libertà | 1145 | 04-01-2005 20.28.18 |
Censurateli tutti allora! Non solo chi vi fa comodo :mad: | davlak | Chiacchiere in libertà | 52 | 20-05-2004 12.26.15 |