È soltanto un Pokémon con le armi o è un qualcosa di più? Vieni a parlarne su Award & Oscar!
 
Pagina precedente | 1 | Pagina successiva
Vota | Stampa | Notifica email    
Autore

Funzione "SOSTITUISCI"

Ultimo Aggiornamento: 27/02/2018 14:13
Post: 6
Registrato il: 23/02/2018
Città: MILANO
Età: 20
Utente Junior
2007
OFFLINE
27/02/2018 11:46

Re:
raffaele1953, 27/02/2018 11.11:

Ciao a tutti
Secondo me nel file dove prendi i dati sono formatati come testo e dovrebbe esserci al fianco sinistro della cella un simbolo che dice "se vuoi convertirlo in numero". Copia/incolla e non dovresti avere problemi
Questo codice modifica eventuali dati "scritti male=0001234.5" nelle celle A1:A10
vb
Sub converti()
Dim x, n, d As Double
For x = 1 To 10
n = Replace(Cells(x, 1), ".", ",")
d = n
Cells(x, 1) = d
Next x
End Sub




Ti ringrazio raffaele1953 ! Il codice fornito funziona alla perfezione!
Ho solo un'altra domanda. Se volessi attuare questa modifica su diversi intervalli di celle (per esempio A1:A10 A13:A20 A22:A35) come potrei fare?
Vota:
Amministra Discussione: | Chiudi | Sposta | Cancella | Modifica | Notifica email Pagina precedente | 1 | Pagina successiva
Nuova Discussione
 | 
Rispondi
Cerca nel forum
Tag discussione
Discussioni Simili   [vedi tutte]
Feed | Forum | Bacheca | Album | Utenti | Cerca | Login | Registrati | Amministra
Tutti gli orari sono GMT+01:00. Adesso sono le 10:38. Versione: Stampabile | Mobile | Regolamento | Privacy
FreeForumZone [v.6.1] - Copyright © 2000-2024 FFZ srl - www.freeforumzone.com