Nah ini, Pak Anton datang biasanya dengan "yg diluar dugaan"
Jika pun untuk melakukan
Klik Menu Data > TexToColumn> Pilih Posi Piih Format dianggap kelamaan,
apa yg kita Pencet & Pilih itu dapat direkam sbg makro
Makronya lebih pendek dan waktu eksekusinya lebh cepat, 2 versi ini
di pc siti jalan dgn baik
Sub YyyyMmDd2Date()
Selection.TextToColumns Destination:=Selection(1), _
DataType:=xlFixedWidth, FieldInfo:=Array(0, 5)
End Sub
Sub YYYYMMDD2Tgl()
Selection.TextToColumns Destination:=Selection(1), _
DataType:=xlDelimited, Tab:=True, FieldInfo:=Array(1, 5)
End Sub
Terima kasih pak Anton....
2011/4/30 summonery <[email protected]>
>
>
> Atau menggunakan "text to column"
> Format sesuai keinginan
>
> >Semoga bermanfaat
>
> --- In [email protected], "STDEV(i)" <setiyowati.devi@...>
> wrote:
> > bisa !!
> >
> > select range yg berisi data seperti itu; misal range C3:C34
> > kolom itu berisi data TEXT / ataupun BILANGAN yang 'format'nya YYYYMMDD
> > ( jika pun itu bilangan adalah abilangan biasa, bukan bernilai data date)
> >
> > tekan tombol CTRL + SHIFT + D
>
