Bu Emi, Kalau gak salah ingat kira-kira bisa diubah begini : (yang pakai sheet template berisi formula kan ya) 1. ubah formula di sheet templatenya si formula pada kolom terkait, agar menghasilkan data bertipe text dan sesuai kebutuhan, misal harus sekian digit dan sebagainya. Silakan pelajari fungsi Text dan number format. 2. pada prosedur yang tugasnya menyalin formula ke sheet hasil, jika ada baris yang isinya perintah untuk mem-values-kan hasil formula, diganti menjadi proses copy paste special values. Misal disana ada proses memvalueskan berbunyi : blabla.value=blabla.value ganti menjadi : blabla.copy blabla.pastespecial xlpastevalues
Wassalam, Kid. 2012/11/27 Emi <[email protected]> > ** > > > Pak Kid, > > Terima kasih atas ilmu nya yang sangat besar manfaatnya. > > Tapi ada sedikit masalah, apabila saya menukar file excel tersebut menjadi > text hal ini yang terjadi > > > 01 menjadi 1 (ini menyebabkan sistem SAP tidak dapat mengerti 1, sebab > yang benar ialah 01) > > Mohon pencerahan bagaimana jika di excel 01, di text file juga tetap 01, > saya udah coba rumus macam macam tapi > tetap belum berhasil. > File excel dan hasil text file juga dilampirkan. > > Terima kasih. > > Emi Lestari. > > > > *From:* Mr. Kid <[email protected]> > *To:* [email protected] > *Sent:* Tuesday, November 27, 2012 6:43 AM > > *Subject:* Re: [belajar-excel] Menulis formula di makro > ** > > mbak Emi, > > 1) Mengapa Events harus di turn off dan turn on semula setelah selesai? > >> *Untuk kasus ini hanya karena kebiasaan saja.* > Umumnya pengaturan properti enableevent tergantung event yang sudah > digunakan (ada script-nya). > Coba bayangkan begini : > - Event worksheet change (setiap ada pengubahan nilai dalam cell maka > prosedur event ini dijalankan) telah berisi suatu proses tertentu > - *prosedur lain* berisi kegiatan proses untuk menulis (misal *copy paste*) > ke sheet yang sudah punya event worksheet change tersebut > - ketika properti application.enableevents tidak di-off-kan lebih dulu, > maka prosedur event change akan dijalankan setiap kegiatan oleh prosedur > lain tersebut > - bisa jadi hal ini akan memperlambat proses atau malah membuat hasil > tidak sesuai (tergantung proses dalam event change-nya) > > 2) Apakah fungsi .Parent.Calculate dan bagaimana ia bekerja? > >> *Untuk kasus ini hanya karena kebiasaan saja.* > Baris ini jika ditulis lengkap menjadi : > Sheet2.Range("a4").Parent.Calculate > Bahasa manusianya : > "mohon dilakukan kalkulasi (Calculate) pada induknya (Parent) range a4 > yang ada di Sheet2" > Jadi, calculate adalah kalkulasi, yaitu perintah untuk melakukan > kalkulasi. > Kenapa di kalkulasi ? > Setelah pasang formula dan tidak tahu apakah setting calculation excel > saat itu automatic atau sedang manual, maka dipaksa untuk lakukan kalkulasi. > Bisa jadi file tertentu yang dibuka selain file yang sedang dikerjakan, > ada suatu baris yang mengubah setting calculataion menjadi manual. > > Siapa yang dikalkulasi ? > >> Induknya range A4 yang ada di sheet2 > Loh berarti kan si Sheet2 itu sendiri ? > >> iya, dan memang bisa diganti dengan : > sheet2.calculate > >> hanya saja, baris itu (.Parent.Calculate) bekerja pada suatu pointer > yang telah ditunjuk oleh with dibeberapa baris sebelumnya. > Artinya, jika kelak ingin mengubah potongan proses ini beralih ke sheet > lain dengan range lain, maka cukup mengganti baris : > with Sheet2.Range("a4") > sedangkan baris lainnya tidak perlu dipikirkan lagi > >> kalau pengennya sekedar pendek script-nya, tentu penggunaan > sheet2.calculate lebih oke. Tapi kalau nanti alur proses untuk hal tersebut > berubah ke sheet lain, maka harus mengganti baris-baris yang berbunyi > with Sheet2.Range("a4") > dan > sheet2.calculate > > Wassalam, > Kid. > > > 2012/11/26 Emi <[email protected]>** > > ** > > 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]>** > > ** > > > Guru dan 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 > > > > > ** > ** > > ** > **** > > >
