Senin, 06 Juni 2016

[belajar-excel] Digest Number 3874

4 Messages

Digest #3874

Messages

Sun Jun 5, 2016 4:04 am (PDT) . Posted by:

"aris_tsubatsa@yahoo.com" aris_tsubatsa

iya terima kasih mr kid..
Alhamdulillah bisa
Terimakasih banyak bantuannya

--
dikirim dari Smartphone OPPO saya

"'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com> 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 aris_tsubatsa@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com>:
>

>
>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
>
>

Sun Jun 5, 2016 4:43 am (PDT) . Posted by:

"farud oke"

Terimakasih mas toby...
langsung saya coba dan tes dan hasilnya menakjubkan mas..!!
oo iya mas ada sedikit perubahan tapi intinya sama yaitu mencetak / membuat
mail merge sesuai dengan data yang ada,tapi datanya saya bagi dua,yg leger
1 untuk yg ganjil,yg leger 2 untuk nomer genap saja.karena nantinya posisi
marginnya mau saya buat tidak sama.untuk lebih jelasnya file terlampir..
dan bagi teman2 yang mau berbagi ilmunya saya ucapkan terimakasih

2016-06-05 16:10 GMT+07:00 Toby kenzo tobykenzo@yahoo.co.id [belajar-excel]

<belajar-excel@yahoogroups.com>:

>
>
> Hai Farud,
>
> Yang anda maksud adalah nilai spinbotton sesuai dengan jumlah siswa yang
> ada, artinya akan berhenti jika jumlah siswa sudah sesuai....
>
> 1. Delete linkcell pada properties spinbotton.
> 2. Buat NameManager untuk Nama siswa
> Fungsi NameManager adalah untuk membuat range yang dinamis pada
> coulumn Nama Siswa (coba lihat2 lagi di milis ini bagaimana membuat
> NameManager)
> 3. Buat event change pada SpinBotton1:
>
> Private Sub SpinButton1_Change()
> Sheet40.Range("X1").Value = Sheet40.SpinButton1.Value
>
> 4. Buat Event Change pada Worksheet :
>
> Private Sub Worksheet_Change(ByVal Target As Range)
> Dim a As String
> Dim b As Worksheet
> Dim c As Range
>
> Set b = Worksheets("siswa") '-----> Nama Sheet
> Set c = b.Range("Nama_Siswa") '-----> Nama_Siswa adalah nama pada
> NameManager
>
> a = Application.WorksheetFunction.CountA(c)
>
>
> If Intersect(Target, Range("X1")) Is Nothing Then
> Exit Sub
> ElseIf Sheet40.Range("X1").Value >= a Then
> Sheet40.SpinButton1.Max = a
> Sheet40.SpinButton1.Min = 1
>
> End If
> End Sub
>
> Semoga bisa membantu.
>
> TerimaKasih.
>
>
> Pada Sabtu, 4 Juni 2016 19:37, "farud oke farud.oke@gmail.com
> [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
>
>
>
> terimakasih buat nang agus yang sudi merespon pertanyaan saya,filenya saya
> lampirkan sekaligus pertanyaannya.semoga nang Agus dan yang lainnya sudi
> membantu karena terus terang saya masih awam sekali tentang excel tapi
> insya Allah saya mau belajar
> sebelumnya saya ucapkan terimakasih...
>
> Pada 4 Juni 2016 08.27, Nang Agus nangagus@gmail.com [belajar-excel] <
> belajar-excel@yahoogroups.com> menulis:
>
>
> Apakah memang disembunyikan barisnya seperti pada file terlampir? (jangan
> lupa macronya dihidupkan)
> ataukah ada pertanyaan lain?
> coba dikurangai datanya dan filenya dikirimkan ke Milis.
>
>
> 2016-06-04 7:32 GMT+07:00 Nang Agus <nangagus@gmail.com>:
>
> Coba tambahkan perintah untuk menyembunyikan baris kosong tersebut.
>
> 2016-06-03 16:22 GMT+07:00 farud oke farud.oke@gmail.com [belajar-excel] <
> belajar-excel@yahoogroups.com>:
>
>
> Assalamualaikum..
> Saya coba membuat mail merge dengan menggunakan spin button dengan nilai
> max 19 di properties,tpi ketika data siswanya kurang dari 19 ketika di klik
> next data masih muncul wlopun nama siswanya tidak ada karena memang kurang
> dari 19.
> Bagaimana caranya agar ketika siswa ada 10 maka otomatis mail mergenya
> berhenti sampai 10 saja.mohon mr.kid dan teman2 yg lain mau berbagi
> ilmunya...terimakasih
>
>
>
>
>
>
>
>

Sun Jun 5, 2016 7:49 am (PDT) . Posted by:

"Toby kenzo" tobykenzo

Hai Farud,

Pernah mencoba method Odd and Even (Ganjil dan Genap)...
Berikut saya berikan contohnya.

Semoga membantu.

TerimaKasih.

Sent from Yahoo Mail on Android

Sun Jun 5, 2016 9:39 am (PDT) . Posted by:

"farud oke"

Sekali lagi saya ucapkan terimakasih banyak buat mas toby...mantap
mas,pekerjaan saya jadi cepat selesai tapi harus banyak2 belajar lagi.
mator sakalangkong ( saya sampaikan terimakasih )

Pada 5 Juni 2016 21.49, Toby kenzo tobykenzo@yahoo.co.id [belajar-excel] <
belajar-excel@yahoogroups.com> menulis:

>
>
> Hai Farud,
>
> Pernah mencoba method Odd and Even (Ganjil dan Genap)...
> Berikut saya berikan contohnya.
>
> Semoga membantu.
>
> TerimaKasih.
>
> Sent from Yahoo Mail on Android
> <http://overview.mail.yahoo.com/mobile/?.src=Android>
>
> ------------------------------
> * From: * farud oke farud.oke@gmail.com [belajar-excel] <
> belajar-excel@yahoogroups.com>;
> * To: * <belajar-excel@yahoogroups.com>;
> * Subject: * Re: [belajar-excel] Membuat mail merge hanya sebanyak data
> yang ada [1 Attachment]
> * Sent: * Sun, Jun 5, 2016 11:34:23 AM
>
>
>
> Terimakasih mas toby...
> langsung saya coba dan tes dan hasilnya menakjubkan mas..!!
> oo iya mas ada sedikit perubahan tapi intinya sama yaitu mencetak /
> membuat mail merge sesuai dengan data yang ada,tapi datanya saya bagi
> dua,yg leger 1 untuk yg ganjil,yg leger 2 untuk nomer genap saja.karena
> nantinya posisi marginnya mau saya buat tidak sama.untuk lebih jelasnya
> file terlampir..
> dan bagi teman2 yang mau berbagi ilmunya saya ucapkan terimakasih
>
> 2016-06-05 16:10 GMT+07:00 Toby kenzo tobykenzo@yahoo.co.id
> [belajar-excel] <belajar-excel@yahoogroups.com>:
>
>>
>>
>> Hai Farud,
>>
>> Yang anda maksud adalah nilai spinbotton sesuai dengan jumlah siswa yang
>> ada, artinya akan berhenti jika jumlah siswa sudah sesuai....
>>
>> 1. Delete linkcell pada properties spinbotton.
>> 2. Buat NameManager untuk Nama siswa
>> Fungsi NameManager adalah untuk membuat range yang dinamis pada
>> coulumn Nama Siswa (coba lihat2 lagi di milis ini bagaimana membuat
>> NameManager)
>> 3. Buat event change pada SpinBotton1:
>>
>> Private Sub SpinButton1_Change()
>> Sheet40.Range("X1").Value = Sheet40.SpinButton1.Value
>>
>> 4. Buat Event Change pada Worksheet :
>>
>> Private Sub Worksheet_Change(ByVal Target As Range)
>> Dim a As String
>> Dim b As Worksheet
>> Dim c As Range
>>
>> Set b = Worksheets("siswa") '-----> Nama Sheet
>> Set c = b.Range("Nama_Siswa") '-----> Nama_Siswa adalah nama pada
>> NameManager
>>
>> a = Application.WorksheetFunction.CountA(c)
>>
>>
>> If Intersect(Target, Range("X1")) Is Nothing Then
>> Exit Sub
>> ElseIf Sheet40.Range("X1").Value >= a Then
>> Sheet40.SpinButton1.Max = a
>> Sheet40.SpinButton1.Min = 1
>>
>> End If
>> End Sub
>>
>> Semoga bisa membantu.
>>
>> TerimaKasih.
>>
>>
>> Pada Sabtu, 4 Juni 2016 19:37, "farud oke farud.oke@gmail.com
>> [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
>>
>>
>>
>> terimakasih buat nang agus yang sudi merespon pertanyaan saya,filenya
>> saya lampirkan sekaligus pertanyaannya.semoga nang Agus dan yang lainnya
>> sudi membantu karena terus terang saya masih awam sekali tentang excel tapi
>> insya Allah saya mau belajar
>> sebelumnya saya ucapkan terimakasih...
>>
>> Pada 4 Juni 2016 08.27, Nang Agus nangagus@gmail.com [belajar-excel] <
>> belajar-excel@yahoogroups.com> menulis:
>>
>>
>> Apakah memang disembunyikan barisnya seperti pada file terlampir? (jangan
>> lupa macronya dihidupkan)
>> ataukah ada pertanyaan lain?
>> coba dikurangai datanya dan filenya dikirimkan ke Milis.
>>
>>
>> 2016-06-04 7:32 GMT+07:00 Nang Agus <nangagus@gmail.com>:

>>
>> Coba tambahkan perintah untuk menyembunyikan baris kosong tersebut.
>>
>> 2016-06-03 16:22 GMT+07:00 farud oke farud.oke@gmail.com [belajar-excel]
>> <belajar-excel@yahoogroups.com>:
>>
>>
>> Assalamualaikum..
>> Saya coba membuat mail merge dengan menggunakan spin button dengan nilai
>> max 19 di properties,tpi ketika data siswanya kurang dari 19 ketika di klik
>> next data masih muncul wlopun nama siswanya tidak ada karena memang kurang
>> dari 19.
>> Bagaimana caranya agar ketika siswa ada 10 maka otomatis mail mergenya
>> berhenti sampai 10 saja.mohon mr.kid dan teman2 yg lain mau berbagi
>> ilmunya...terimakasih
>>
>>
>>
>>
>>
>>
>>
>
>
============================================================
Pojok Lowongan Kerja yang disediakan milis :
http://milis-belajar-excel.1048464.n5.nabble.com/Pojok-Lowongan-Kerja-f5725753.html
*** Posting lowongan kerja : ke link tersebut dan klik New Topic
============================================================
bergabung ke milis (subscribe), kirim mail kosong ke: belajar-excel-subscribe@yahoogroups.com
posting ke milis, kirimkan ke: belajar-excel@yahoogroups.com
berkunjung ke web milis : http://tech.groups.yahoo.com/group/belajar-excel/messages
melihat file archive / mendownload lampiran : http://www.mail-archive.com/belajar-excel@yahoogroups.com/
atau (sejak 25-Apr-2011) bisa juga di : http://milis-belajar-excel.1048464.n5.nabble.com/
menghubungi moderators & owners: belajar-excel-owner@yahoogroups.com
keluar dari membership milis (UnSubscribe), kirim mail kosong ke : belajar-excel-unsubscribe@yahoogroups.com
---------------------------------------------------------------------

Tidak ada komentar:

Posting Komentar