Sostituzione Temperatura formattazione
Hai un problema con Excel? 
Sostituzione Temperatura (formattazione)
di Francesco86 (utente non iscritto) data: 13/10/2014 19:16:37
Salve ragazzi,
avrei bisogno del vostro aiuto per risolvere un problema con la gestione di alcuni dati che ho importato da un data logger per il monitoraggio della temperatura negli ambienti. Il problema è che il file creato dal datalogger non ha una formattazione corretta.
Le temperature mi vengono riportate come date. Ad esempio: 24,3 (gradi Celsius) vengono riportati come 24,03,00
Potreste gentilmente aiutarmi? Utilizzo Excel 2010. Grazie mille per la vostra collaborazione!
di Zer0Kelvin data: 13/10/2014 19:30:57
Ciao.
Prima alcuni consigli... non per gli acquisti, ma per il futuro (se ti dovesse ricapitare di rivolgerti a forum simili a questo):
1) oltre a descrivere il problema, cerca di dare più informazioni possibile.
2) ove possibile allega il file (o uno simile, eventualmente privato di dati sensibili) che presenta il problema.
Nel tuo caso, in base a quanto esposto, si è indotti a credere che sia un semplice problema di formattazione delle celle; eventualmente prova a cembiare il formato cella in "Numero".
Se così non fosse, dovresti specificare in che modo i dati vengono importati ed allegare una copia dei files coinvolti.
Per allegare un file puoi usare il tasto [Allega un file] che trovi ad inizio e a fine pagina.
di Lucas87 data: 13/10/2014 19:34:23
Hai provato a selezionare la colonna e a impostare il formato come Generale o come Numero?
di Lucas87 data: 13/10/2014 19:35:09
Ops
di Francesco86 (utente non iscritto) data: 13/10/2014 19:38:10
Grazie per i consigli, li terrò presenti per il futuro. Allego subito il file. Si ho provato a cambiare la formattazione della cella da Generale a Numero, ma non ho ottenuto alcun risultato
di Lucas87 data: 13/10/2014 19:44:06
Non hai spiegato come importi il file con le temperature sul foglio
Non sono date...è testo
di Francesco86 (utente non iscritto) data: 13/10/2014 19:59:33
Il software del datalogger che utilizzo per scaricare i dati registrati mi crea direttamente il file Excel senza darmi la possibilità di alcuna modifica, io posso solo rinominarlo.
di Mister_x (utente non iscritto) data: 14/10/2014 00:49:49
ciao
riallego il tuo file dove nel tuo foglio ho inserito con delle colonne di appoggio le formule di trasformazione
ho aggiunto un secondo foglio e copiato i valori di quelli proposti da te,
ho trosformato questo con una sub() inserita in questi
vedi se puo' funzionare uno o l'altro metodo
ciao
Option Explicit
Sub aggiorna()
Dim celle As Range
Dim cella As Variant
Set celle = Range("B2:D" & Cells(Rows.Count, "D").End(xlUp).Row)
celle.NumberFormat = "0.0"
On Error Resume Next
For Each cella In celle
If Len(cella) > 4 Then
Cells(cella.Row, cella.Column) = --(Mid(cella, 1, 2) & "," & Mid(cella, 5, 1))
ElseIf Len(cella) < 3 Then
Cells(cella.Row, cella.Column) = --(Mid(cella, 1, 2) & "," & "0")
End If
Next
Set celle = Nothing
End Sub
|
di Francesco86 (utente non iscritto) data: 14/10/2014 11:19:57
Ti ringrazio infinitamente, cercherò di comprendere la logica del tuo listato di comandi! Grazie ancora!
di Francesco86 (utente non iscritto) data: 16/10/2014 09:16:29
Ciao mister x, sto cercando di capire dove inserire il listato dei comandi per poter effettuare le operazioni necessarie sulle celle, non sono molto esperto. Devo svolgere lo stesso tipo di operazione sull'ultimo file che mi è rimasto da modificare e che ho appena allegato in questa discussione. Grazie!!!
di Mister_x (utente non iscritto) data: 16/10/2014 13:12:56
ciao
come mai questo file tutti i dati sono in formato Data e non in formato Testo?
comunque con le colonne di appoggio
F2=GIORNO(B2)*24+ORA(B2)+MINUTO(B2)/100
G2=GIORNO(C2)*24+ORA(C2)+MINUTO(C2)/100
H2=GIORNO(D2)*24+ORA(D2)+MINUTO(D2)/100
poi trascini in basso
con la sub() da mettere nel foglio specifico dove ci sono i dati
vedi file tuo con modifica
foglio1 formule
foglio2 VBA
ciao
Option Explicit
Sub aggiorna()
Dim celle As Range
Dim cella As Variant
Set celle = Range("B2:D" & Cells(Rows.Count, "D").End(xlUp).Row)
celle.NumberFormat = "0.00"
On Error Resume Next
For Each cella In celle
Cells(cella.Row, cella.Column) = (Fix(cella) * 24) + Hour(cella) + (Minute(cella) / 100)
Next
Set celle = Nothing
End Sub |
di Francesco86 (utente non iscritto) data: 16/10/2014 14:29:31
Scusa mister x, ti disturbo per l'ultima volta. Ho aperto il nuovo file che mi hai allegato ed ho visto che c'è la necessità di eliminare gli zeri dopo la virgola, cioè 62.03 devo trasformarlo in 62.3 e questa modifica devo effettuarla per tutte le tre colonne. Potresti darmi una mano??
di Mister_x (utente non iscritto) data: 16/10/2014 14:44:02
ciao
al posto di dividere per 100 dividi per 10
formattazione celle un solo decimale
F2=GIORNO(B2)*24+ORA(B2)+MINUTO(B2)/10
anche in G2 e H2
la sub() idem
celle.NumberFormat = "0.0"
Cells(cella.Row, cella.Column) = (Fix(cella) * 24) + Hour(cella) + (Minute(cella) / 10)
ciao
Vuoi Approfondire?