hehehe.. ganti menjadi : blabla.copy blabla.pastespecial xlpastevalues sepertinya harus menjadi begini : .CurrentRegion.Offset(4).Copy .CurrentRegion.Offset(4).pastespecial xlpastevalues jadi 2 baris bukan ?
Jangan lupa, semua kolom yang harusnya fixed length diatur melalui formula-formula di sheet template formulanya yang terkait. Kalau bermasalah di hasil kolom A berarti harus perbaiki formula yang di kolom A. Kalau bermasalah di kolom lain, harus perbaiki formula di kolom lain. Pastikan dulu hasil di template formula sudah sesuai kebutuhan pada kondisi cell yang di-format number general Wassalam, Kid. 2012/11/27 Emi <[email protected]> > ** > > > Pak Kid, > > 1. Formulanya sudah saya ubah supaya angkanya menjadi format TEXT > 2. Untuk makronya saya ganti seperti ini > > > lRec = .WorksheetFunction.Count(Sheet1.Range("d1").EntireColumn) > If lRec > 0 Then 'ada record > With Sheet2.Range("a4") > > .CurrentRegion.Offset(4).EntireRow.Delete > Sheet3.Range("a5").EntireRow.Copy > .Offset(1).Resize(lRec) > > .Parent.Calculate > 'kalkulasi sheet > .CurrentRegion.Offset(4).Copy = > .CurrentRegion.Offset(4).pastespecialxlpastevalues > > Hasilnya masih tetap sama, mohon bantuan lagi > > > Terima kasih > > Emi > > > *From:* Mr. Kid <[email protected]> > *To:* [email protected] > *Sent:* Tuesday, November 27, 2012 10:03 AM > > *Subject:* Re: [belajar-excel] Menulis formula di makro > ** > > 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 > > > > > ** > ** > > ** > **** > > ** > **** > > >
