Convertire numeri inseriti come campi di testo in campi numero
Daniele
si vedono scritti con un apostrofo davanti. Excel me li visualizza con
errore ed è possibile convertirli in campi numerico dal messaggio di
errore.
Chiedevo se esiste un comando di VB che esegue la solita operazione
che esegue dal messaggio di errore per convertire questi campi in
campi numerici con numero eliminando l'apostrofo.
Grazie, saluti Daniele
Mauro Gamberini
si vedono scritti con un apostrofo davanti. Excel me li visualizza con
errore.
Chiedevo se esiste un comando di VB che esegue la solita operazione
che esegue dal messaggio di errore per convertire questi campi in
campi numerici con numero eliminando l'apostrofo.
************************************************
Perch� vb?
I tuoi valori in A
A1: '18
B1: =A1*1
Seleziona B1
Copia-->Incolla speciale-->Valori
Elimina la colonna A
Se propio vuoi una macro, dovrai dire alla stessa
*dove* trovare i dati. Esempio:
Public Sub mNumeri()
With Selection
.Value = .Value
.HorizontalAlignment = xlRight
End With
End Sub
Quindi dovrai *prima* selezionare
le celle. Ancora:
Public Sub mNumeri()
Dim c As Range
For Each c In Selection
If IsNumeric(c.Value) Then
c.Value = c.Value
c.HorizontalAlignment = _
xlRight
End If
Next
End Sub
Sempre selezionando prima le celle.
--
---------------------------
Mauro Gamberini
http://www.riolab.org/
http://blog.maurogsc.eu/
Mauro Gamberini
Ciao a tutti, ho dei campi con numeri inseriti come testo. Nel campo
si vedono scritti con un apostrofo davanti. Excel me li visualizza con
errore.
Chiedevo se esiste un comando di VB che esegue la solita operazione
che esegue dal messaggio di errore per convertire questi campi in
campi numerici con numero eliminando l'apostrofo.
eliano
"Daniele" ha scritto:
Ciao Daniele. (Parafrasando Ivano e mauro)
Se quei valori "numerici" preceduti da apice li vuoi usare in calcolo lo
puoi fare usando direttamente, al posto ad esempio di A1, la funzione --A1.
Puoi usare il medesimo concetto in Vba, come da artigianale:
Public Sub prova()
Dim rng As Range, cel As Range
Set rng = Range("a1:a10") '<-- da variare
For Each cel In rng
If cel.Value <> "" Then
If IsNumeric(Right(cel, Len(cel) - 1)) Then
cel.Value = --cel.Value
End If
End If
Next
End Sub
Saluti a te, al grande assente ed al Fratello onnipresente.:-))
Eliano
eliano
"eliano" ha scritto:
Non la vedo, ma probailmente l'ho pensata e non l'ho scritta. Era la prima!
:-((
Evidenzia la colonna interessata.
Dati-->Testo in colonne-->Fine (diretto)
Excel dovrebbe assegnare alla colonna il formato Generale, assegnando quindi
alle celle dell'intera colonna i valori "reali".
Mauro Gamberini
> Ciao Daniele. (Parafrasando Ivano e mauro)
>
Perch� io in minuscolo?
eliano
"Mauro Gamberini" ha scritto:
> > Ciao Daniele. (Parafrasando Ivano e mauro)
> >
>
> Perchè io in minuscolo?
>
Non era intenzionale, ma solo dovuto a stanchezza; tu per me sarai sempre
MMMMMauro, anzi addirittura Mauro Gamberoni.
Con la suprema invocazione:"Non sparate sul pianista!". un saluto.
Eliano
Daniele
<maurogscRIMUOV...@RIMUOVEREaliceposta.it> wrote:
> Ciao a tutti, ho dei campi con numeri inseriti come testo. Nel campo
> si vedono scritti con un apostrofo davanti. Excel me li visualizza con
> errore.
>
> Chiedevo se esiste un comando di VB che esegue la solita operazione
> che esegue dal messaggio di errore per convertire questi campi in
> campi numerici con numero eliminando l'apostrofo.
> ************************************************
>
Perfetto! Ho usato questo codice e funziona perfettamente. Grazie 1000
Mauro Gamberini
> funziona perfettamente. Grazie 1000
>
Grazie a te per il riscontro.