iya terima kasih mr kid.. Alhamdulillah bisa Terimakasih banyak bantuannya
-- dikirim dari Smartphone OPPO saya "'Mr. Kid' [email protected] [belajar-excel]" <[email protected]> menulis: > > >wa'alaikumussalam wr wb > >Hai Aris, > >Sebuah blok prosedur di VB/VBA dijatah 64KB (andai 1 char = 1 byte, berarti >max 64K char) > >Sebuah prosedur bisa memanggil prosedur lain. Coba manfaatkan ini bila >prosesnya TIDAK BISA disederhanakan lagi. > >Public sub UrutanProses() > > 'panggil Proses 1 > > Proses1 > > 'panggil proses 2 > > Proses2 > > > 'dst > >end sub > >Public sub Proses1() > > 'baris kode untuk proses 1 disini > >end sub > >Public sub Proses2() > > 'baris kode untuk proses 2 disini > > 'proses begini begitu > > 'butuh memanggil proses 2A > > Proses2A > > 'lanjutkan proses 2 lagi > > 'dst > >end sub > >Public sub Proses2A() > > 'baris kode untuk proses 2A disini > >end sub > > > >Jika dilihat dari urutan proses setiap nomor, kasus Anda bisa jadi tidak perlu >segitu banyak baris kode. > >Oh iya, sebaiknya mulai dibiasakan menggunakan object yang eksplisit seperti : > > range("af233").value=range("aa512").value > >dari pada : > > [af233]=[aa512] > > >Regards, > >Kid > > > >2016-06-02 21:19 GMT+07:00 [email protected] [belajar-excel] ><[email protected]>: > > > >Assalamualaikum… > >Mohon bantuannya Pak.. > >Saya mempunyai kendala saat membuat sebuah aplikasi menggunakan VBA, saat saya >akan run kan terdapat pesan “ Complie error : Produce too Large” Seperti pada >gambar , Padahal sebelum nya sekitar 160 Rumus masih Run Pak, setelah 230 >Rumus aplikasi nya tidak bisa di run saya menggunkan rumus sebagai berikut : > >'RUMUS 1 > >[AA13].Formula = "=Value(MID(Y10,1,2)-1)" > >[AA13].AutoFill Destination:=[AA13:AA512], Type:=xlFillDefault > >[AE231].Formula = "OT11" > >[AF231] = [AA512] > >[AG231] = [AB514] > >[AA13:AA512].ClearContents > >'RUMUS 211 > >[AA13].Formula = "=Value(MID(Y11,1,2)+7)" > >[AA13].AutoFill Destination:=[AA13:AA512], Type:=xlFillDefault > >[AE232].Formula = "WINGS01" > >[AF232] = [AA512] > >[AG232] = [AB514] > >[AA13:AA512].ClearContents > >'RUMUS 230 > >[AA13].Formula = "=Value(MID(Y12,1,2)-10)" > >[AA13].AutoFill Destination:=[AA13:AA512], Type:=xlFillDefault > >[AE233].Formula = "UNI02" > >[AF233] = [AA512] > >[AG233] = [AB514] > >[AA13:AA512].ClearContents > > >Yang saya tanyakan bagaiman solusinya Pak, apakah saya terlalu banyak >menggunaakan rumus di VBA, sedangkan itu baru 230 Rumus Pak… > >1. Apakah ada rumus untuk membuatnya bisa digunakan untuk banyak rumus pak, >kalau ada mohon bantuan nya > >2. Apakah saya bisa membuat dengan lebih dari 500 Rumus (Misalnya), karena >saya menggunakan hampir 230 rumus itu ukuran file nya besar sekali Pak >bagaiamana kalau lebih dari itu pak > >3. Mohon Bantuan nya pak karena saya juga baru belajar VBA pak, sehingga rumus >nya yang saya pakai terlalu manual Pak > >
