preservare la formattazione delle date

Stai vedendo 3 articoli - dal 1 a 3 (di 3 totali)

Autore

Articoli
11/02/2018 alle 21:30 #1843 Score: 0 | Risposta
ilFonta
Partecipante
ilFonta
Salve

ho scritto la seguente macro che converte le date in una colonna dal formato yyyymmdd (letteralmente 20160807) in d/m/yyyy (quindi 7/8/2016).

Ebbene vorrei che fossero rispettati anche gli 0 (zero) nelle date, anche perche' in seguito dovro' esportare la colonna in .csv

In poche parole vorrei ottenere 07/08/2016 invece di 7/8/2016.

Qualche consiglio?

Grazie

Dim cella As Range

Dim myRange As Range
Set myRange = Application.InputBox(prompt:="Inserisci la colonna con le date in formato yyyymmdd", Type:=8)

Dim myRangeOut As Range
Set myRangeOut = myRange.Offset(0, 2)

' -----------------------------------------------------------------------
' da yyyymmdd a yyyy mm dd, separo in colonne

myRange.TextToColumns Destination:=myRangeOut, _
DataType:=xlFixedWidth, _
FieldInfo:=Array(Array(0, 1), _
Array(4, 1), _
Array(6, 1)), _
TrailingMinusNumbers:= _
True
11/02/2018 alle 22:07 #1846 Score: 0 | Risposta
Marius44
Moderatore
Marius44
Karma: 58 pts
Ciao

molto banalmente, visto che hai diviso il testo in colonne, potresti aggiungere queste due righe di codice alla tua macro

If Cells(1, 4) < = 9 Then Cells(1, 4) = "'0" & Cells(1, 4)
If Cells(1, 5) < = 9 Then Cells(1, 5) = "'0" & Cells(1, 5)

Attento però al fatto che con l'apice singolo davanti allo zero ti ritrovi con delle Stringhe. Tienilo presente in caso di calcoli.

Ciao,

Mario
13/02/2018 alle 10:33 #1895 Score: 0 | Risposta
ilFonta
Partecipante
ilFonta
Grazie mille Marius
Autore

Articoli

Stai vedendo 3 articoli - dal 1 a 3 (di 3 totali)