Terima kasih Pak Kid,
Saya mau tanya.
1) Mengapa Events harus di turn off dan turn on semula setelah selesai?
2) Apakah fungsi Parent.Calculate dan bagaimana ia bekerja?
Terima kasih.
_Emi Lestari
With Application 'pada aplikasi
.ScreenUpdating = False 'turnoff
refresh tampilan
.EnableEvents = False 'turnoff event
'hitung record berdasar data numerik di kolom D sheet Input
lRec = .WorksheetFunction.Count(Sheet1.Range("d1").EntireColumn)
If lRec > 0 Then 'ada record
With Sheet2.Range("a4") 'pada
header target
.CurrentRegion.Offset(4).EntireRow.Delete
'hapus record data lama
Sheet3.Range("a5").EntireRow.Copy .Offset(1).Resize(lRec)
'copy formula baru
.Parent.Calculate
'kalkulasi sheet
.CurrentRegion.Offset(4).Value = .CurrentRegion.Offset(4).Value
'di-values-ken
End With 'selesai
pada header target
End If 'akhir blok cek
ada record
.EnableEvents = True 'turnon event
.ScreenUpdating = True 'turnon refresh
tampilan
End With 'selesai pada
aplikasi
________________________________
From: Mr. Kid <[email protected]>
To: [email protected]
Sent: Sunday, November 25, 2012 4:19 PM
Subject: Re: [belajar-excel] Menulis formula di makro
Dimohon file lampiran pada posting berikutnya tidak melebihi batas peraturan
milis.
mbak Emi,
File terlampir memanfaatkan sebuah sheet berisi template formula alias formula
yang bisa di-copy ke sheet target.
Prosesnya :
1. menghitung jumlah record input (berdasar kolom D)
2. membersihkan hasil lama yang di target
3. copy formula dari template formula ke sheet target sebanyak jumlah record di
input
4. di-values-ken
Wassalam,
Kid.
2012/11/23 Emi <[email protected]>
>
>
>Gurudan teman BeExcel,
>Data di sheet ini adalah hasil input manual di sheet "InputArea"
>Saya mau mempelajari bagaimana menulis makro sebagai ganti kepada formula .
>Artinya semua formula di sheet ini ditulis di VBE dan bukan di sheet ini.
>Terima kasih
>-Emi Lestari
>
>
>
>
