workbook baru-mu harus dibuka dulu lalu tekan Alt + F11 kemudian buka (insert) di Module Standard
Truzz...copy paste script ex module yg ada di workbook dari siti.
kalau sulit mencar-cari-nya
tuliskan saja seperti di bawah ini, di module standar yg baru diinsertkan
itu
Sub YYYYMMDD_ToDate()
' konversi angka /text YYYYMMDD ke data date
' siti Vi 28 apr 2011
Dim Rng As Range, r As Long
Dim YY As Integer, MM As Integer, DD As Integer
Set Rng = Selection
For r = 1 To Rng.Rows.Count
If Len(Rng(r, 1)) > 0 Then
YY = CInt(Mid(Rng(r, 1), 1, 4))
MM = CInt(Mid(Rng(r, 1), 5, 2))
DD = CInt(Mid(Rng(r, 1), 7, 2))
Rng(r, 1) = DateSerial(YY, MM, DD)
Rng(r, 1).NumberFormat = "mm/dd/yyyy"
End If
Next
End Sub
Masih ada satu pekerjaan lagi yaitu memberi Short Cut untuk makro tsb:
buka dialogMacros (Alt + F8) pilih nama makro yg baru ditulis itu, tekan
tombol Option
pada dialog box 'Makro Option' yg muncul, aturlah seperti gambar ini
tekan shift + D ( sama dengan mengatur: Short key = Ctrl + Shift + D )
[image: shortcut macro.PNG]
jika neki menggunakan excel 2007 j*angan simpan workbook sbg xlsx *
tetapi harus* xlsm* atau *xlsb* atau *xls* saja
-siti-
^_^
2011/4/30 neki chan <[email protected]>
>
>
> Saya coba buka attachment punya mba siti memang jalan , textnya berubah
> menjadi format date.
> Tapi kalau saya buat di excel baru,ketik 20110430, lalu Ctrl + Shift + D
> tetap tidak berubah.
> Ada yang mesti ditambahkan , atau bagaimana yah?
>
>
>
<<shortcut macro.PNG>>
