Pak Kid.
Dari data yg pak Kid kirim kan itu , saya copy paste sampai menjadi
506.482 row
data ini yg saya tes dengan data hanya di kolom A.
dan didalam nya ada data yg kosong. (tidak semua nya terisi data)
hasil nya seperti dibawah ini :
Tes_01 : diatas 5 menit (ini pun belum selesai)
Tes_02 06:17:44 PM ~ 06:17:56 PM
Tes_03 : diatas 5 menit dan belum selesai)
Tes_04 : 06:28:45 PM ~ 06:28:46 PM
yg hendak saya tanyakan: cara tes_02 . dalam pelaksanan untuk prosedur
lain nya . apakah bisa menimbulkan kesalahan dihasilnya ?
Walaupun waktu yg di butuhkan lebih banyak . tapi cara tes_02 ini , lebih
mudah saya pahami.
terima kasih . (sudah banyak saya belajar dari Pak Kid)
Selamat malam dan salam sejahtera.
Lukman.
Maaf file nya tidak saya sertakan ( 8.5 MB)
Sub Tes_01()
Cells(1, 9) = Time
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("A1000000").End(xlUp))
Cells(2, 9) = 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(3, 9) = Time
End Sub
Sub tes_02()
Cells(1, 10) = Time
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, 10) = Time
For r = 2 To s
Cells(r, 4) = Left(Cells(r, 1), 10)
'Cells(r, 8) = Mid(Cells(r, 1), 11, 10)
Next
Cells(3, 10) = Time
End Sub
Sub Tes_03()
Cells(1, 11) = Time
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("A1000000").End(xlUp))
Cells(2, 11) = Time
With ActiveCell
For i = 1 To Rng.Rows.Count
.Offset(i - 1, 4).FormulaR1C1 = "=TEXT(RC[-4],""dd/mm/yy"")"
Next i
End With
Application.ScreenUpdating = True
Application.EnableEvents = True
Cells(3, 11) = Time
End Sub
Sub Tes_04()
Cells(1, 11) = Time
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("A1000000").End(xlUp))
Cells(2, 11) = Time
With ActiveCell
For i = 1 To Rng.Rows.Count
.Offset(i - 1, 4).FormulaR1C1 = "=TEXT(RC[-4],""dd/mm/yy"")"
Next i
End With
Application.ScreenUpdating = True
Application.EnableEvents = True
Cells(3, 11) = Time
End Sub
2012/11/24 Mr. Kid <[email protected]>
> **
>
>
> Dear BeExceller,
>
> Berhubung Pak Lukman belum juga menyusulkan file lampiran lainnya, file
> terlampir bisa dijadikan bahan untuk mempelajari kasus ini.
> File terlampir adalah hasil pengurangan isi dari file yang dilampirkan Pak
> Lukman pada thread ini.
>
> Wassalam,
> Moderator Belajar-Excel
>
>
> On Sat, Nov 24, 2012 at 12:11 PM, lkm jktind <[email protected]> wrote:
>
>> 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
>>
>>
>>
>>
>
>
