Saya masih belajar.
Tanya : cara test_01 waktu nya : 11:53:56 selesai 11:54:01
cara test_02 waktunya : 11:54:17 selesai 11:54:17
apa yg penyebabnya . jadi lambat dari cara tes_01 ?
Sub Tes_01()
Dim Rng As Range
Dim i As Long
'Application.ScreenUpdating = False
'Application.EnableEvents = False
Sheets("Pertanyaan 2").Select
Range("A2").Select
Set Rng = Range("A2", Range("A65000").End(xlUp))
Cells(2, 5) = Time
For i = 1 To Rng.Rows.Count
ActiveCell.Offset(0, 2).FormulaR1C1 = "=TEXT(RC[-2],""dd/mm/yy"")"
ActiveCell.Offset(1, 0).Select
Next i
'Application.ScreenUpdating = True
'Application.EnableEvents = True
Cells(2, 6) = Time
End Sub
Option Explicit
Sub tes_02()
Dim r As Long
Dim s As Long
Worksheets(2).Select
Cells(2, 1).Select
s = Cells(Rows.Count, 1).End(xlUp).Row
Range(Cells(2, 7), Cells(s, 10)).ClearContents
Cells(2, 9) = Time
For r = 2 To s
Cells(r, 7) = Left(Cells(r, 1), 10)
Cells(r, 8) = Mid(Cells(r, 1), 11, 10)
Next
Cells(2, 10) = Time
End Sub
salam
Lukman
--- Mods ---
File lampiran dicekal karena melebihi 250KB.
Contoh data tidak perlu sampai ribuan. Jika membutuhkan contoh data yang banyak
untuk uji kecepatan proses, coba create contoh data dengan VBA. Dengan demikian
filesize bisa dijaga tetap sesuai peraturan milis.
------------
------------------------------------
---------------------------------------------------------------------
bergabung ke milis (subscribe), kirim mail kosong ke:
[email protected]
posting ke milis, kirimkan ke:
[email protected]
berkunjung ke web milis
http://tech.groups.yahoo.com/group/belajar-excel/messages
melihat file archive / mendownload lampiran
http://www.mail-archive.com/[email protected]/
atau (sejak 25-Apr-2011) bisa juga di :
http://milis-belajar-excel.1048464.n5.nabble.com/
menghubungi moderators & owners: [email protected]
keluar dari membership milis (UnSubscribe):
kirim mail kosong ke [email protected]
---------------------------------------------------------------------Yahoo!
Groups Links
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/belajar-excel/
<*> Your email settings:
Individual Email | Traditional
<*> To change settings online go to:
http://groups.yahoo.com/group/belajar-excel/join
(Yahoo! ID required)
<*> To change settings via email:
[email protected]
[email protected]
<*> To unsubscribe from this group, send an email to:
[email protected]
<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/
