Minggu, 05 Juni 2016

[belajar-excel] Digest Number 3873

6 Messages

Digest #3873

Messages

Sat Jun 4, 2016 5:23 am (PDT) . Posted by:

"Mr. Kid" nmkid.family@ymail.com

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

Sat Jun 4, 2016 5:40 am (PDT) . Posted by:

"farud oke"

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 2:11 am (PDT) . Posted by:

"Toby kenzo" tobykenzo

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 StringDim b As WorksheetDim c As Range
Set b = Worksheets("siswa")   '-----> Nama SheetSet c = b.Range("Nama_Siswa") '-----> Nama_Siswa adalah nama pada NameManager
a = Application.WorksheetFunction.CountA(c)

If Intersect(Target, Range("X1")) Is Nothing ThenExit SubElseIf Sheet40.Range("X1").Value >= a ThenSheet40.SpinButton1.Max = aSheet40.SpinButton1.Min = 1
End IfEnd 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 belajarsebelumnya 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

#yiv3141160866 #yiv3141160866 -- #yiv3141160866ygrp-mkp {border:1px solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv3141160866 #yiv3141160866ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv3141160866 #yiv3141160866ygrp-mkp #yiv3141160866hd {color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 0;}#yiv3141160866 #yiv3141160866ygrp-mkp #yiv3141160866ads {margin-bottom:10px;}#yiv3141160866 #yiv3141160866ygrp-mkp .yiv3141160866ad {padding:0 0;}#yiv3141160866 #yiv3141160866ygrp-mkp .yiv3141160866ad p {margin:0;}#yiv3141160866 #yiv3141160866ygrp-mkp .yiv3141160866ad a {color:#0000ff;text-decoration:none;}#yiv3141160866 #yiv3141160866ygrp-sponsor #yiv3141160866ygrp-lc {font-family:Arial;}#yiv3141160866 #yiv3141160866ygrp-sponsor #yiv3141160866ygrp-lc #yiv3141160866hd {margin:10px 0px;font-weight:700;font-size:78%;line-height:122%;}#yiv3141160866 #yiv3141160866ygrp-sponsor #yiv3141160866ygrp-lc .yiv3141160866ad {margin-bottom:10px;padding:0 0;}#yiv3141160866 #yiv3141160866actions {font-family:Verdana;font-size:11px;padding:10px 0;}#yiv3141160866 #yiv3141160866activity {background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv3141160866 #yiv3141160866activity span {font-weight:700;}#yiv3141160866 #yiv3141160866activity span:first-child {text-transform:uppercase;}#yiv3141160866 #yiv3141160866activity span a {color:#5085b6;text-decoration:none;}#yiv3141160866 #yiv3141160866activity span span {color:#ff7900;}#yiv3141160866 #yiv3141160866activity span .yiv3141160866underline {text-decoration:underline;}#yiv3141160866 .yiv3141160866attach {clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 0;width:400px;}#yiv3141160866 .yiv3141160866attach div a {text-decoration:none;}#yiv3141160866 .yiv3141160866attach img {border:none;padding-right:5px;}#yiv3141160866 .yiv3141160866attach label {display:block;margin-bottom:5px;}#yiv3141160866 .yiv3141160866attach label a {text-decoration:none;}#yiv3141160866 blockquote {margin:0 0 0 4px;}#yiv3141160866 .yiv3141160866bold {font-family:Arial;font-size:13px;font-weight:700;}#yiv3141160866 .yiv3141160866bold a {text-decoration:none;}#yiv3141160866 dd.yiv3141160866last p a {font-family:Verdana;font-weight:700;}#yiv3141160866 dd.yiv3141160866last p span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv3141160866 dd.yiv3141160866last p span.yiv3141160866yshortcuts {margin-right:0;}#yiv3141160866 div.yiv3141160866attach-table div div a {text-decoration:none;}#yiv3141160866 div.yiv3141160866attach-table {width:400px;}#yiv3141160866 div.yiv3141160866file-title a, #yiv3141160866 div.yiv3141160866file-title a:active, #yiv3141160866 div.yiv3141160866file-title a:hover, #yiv3141160866 div.yiv3141160866file-title a:visited {text-decoration:none;}#yiv3141160866 div.yiv3141160866photo-title a, #yiv3141160866 div.yiv3141160866photo-title a:active, #yiv3141160866 div.yiv3141160866photo-title a:hover, #yiv3141160866 div.yiv3141160866photo-title a:visited {text-decoration:none;}#yiv3141160866 div#yiv3141160866ygrp-mlmsg #yiv3141160866ygrp-msg p a span.yiv3141160866yshortcuts {font-family:Verdana;font-size:10px;font-weight:normal;}#yiv3141160866 .yiv3141160866green {color:#628c2a;}#yiv3141160866 .yiv3141160866MsoNormal {margin:0 0 0 0;}#yiv3141160866 o {font-size:0;}#yiv3141160866 #yiv3141160866photos div {float:left;width:72px;}#yiv3141160866 #yiv3141160866photos div div {border:1px solid #666666;height:62px;overflow:hidden;width:62px;}#yiv3141160866 #yiv3141160866photos div label {color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv3141160866 #yiv3141160866reco-category {font-size:77%;}#yiv3141160866 #yiv3141160866reco-desc {font-size:77%;}#yiv3141160866 .yiv3141160866replbq {margin:4px;}#yiv3141160866 #yiv3141160866ygrp-actbar div a:first-child {margin-right:2px;padding-right:5px;}#yiv3141160866 #yiv3141160866ygrp-mlmsg {font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv3141160866 #yiv3141160866ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv3141160866 #yiv3141160866ygrp-mlmsg select, #yiv3141160866 input, #yiv3141160866 textarea {font:99% Arial, Helvetica, clean, sans-serif;}#yiv3141160866 #yiv3141160866ygrp-mlmsg pre, #yiv3141160866 code {font:115% monospace;}#yiv3141160866 #yiv3141160866ygrp-mlmsg * {line-height:1.22em;}#yiv3141160866 #yiv3141160866ygrp-mlmsg #yiv3141160866logo {padding-bottom:10px;}#yiv3141160866 #yiv3141160866ygrp-msg p a {font-family:Verdana;}#yiv3141160866 #yiv3141160866ygrp-msg p#yiv3141160866attach-count span {color:#1E66AE;font-weight:700;}#yiv3141160866 #yiv3141160866ygrp-reco #yiv3141160866reco-head {color:#ff7900;font-weight:700;}#yiv3141160866 #yiv3141160866ygrp-reco {margin-bottom:20px;padding:0px;}#yiv3141160866 #yiv3141160866ygrp-sponsor #yiv3141160866ov li a {font-size:130%;text-decoration:none;}#yiv3141160866 #yiv3141160866ygrp-sponsor #yiv3141160866ov li {font-size:77%;list-style-type:square;padding:6px 0;}#yiv3141160866 #yiv3141160866ygrp-sponsor #yiv3141160866ov ul {margin:0;padding:0 0 0 8px;}#yiv3141160866 #yiv3141160866ygrp-text {font-family:Georgia;}#yiv3141160866 #yiv3141160866ygrp-text p {margin:0 0 1em 0;}#yiv3141160866 #yiv3141160866ygrp-text tt {font-size:120%;}#yiv3141160866 #yiv3141160866ygrp-vital ul li:last-child {border-right:none !important;}#yiv3141160866

Sun Jun 5, 2016 2:50 am (PDT) . Posted by:

"farud oke"

Terimakasih mas toby...
langsung saya coba dan tes dan hasilnya menakjubkan mas...terimakasih
banyak buat mas toby,Nang agus atas bantuannya.
Mator sakalangkong (madura punya )

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 12:20 am (PDT) . Posted by:

"Mr. Kid" nmkid.family@ymail.com

Hai Fajar,

Multiple stacked column sepertinya bisa dimanfaatkan...
Contohnya seperti yang ada disini
<https://app.box.com/s/m8a72cmvvojkj8xe3c6v0d4huof52jr7>.

Regards,
Kid

On Fri, Jun 3, 2016 at 3:06 PM, Fajar Fatahillah fajar.fatahillah@yahoo.com
[belajar-excel] <belajar-excel@yahoogroups.com> wrote:

>
>
> seperti ini contohnya, .... satu tanggal ada 3 bar berbeda ...
>
> [image: Inline image]
>
> Best Regards, Fajar Fatahillah
>
>
> On Friday, June 3, 2016 2:53 PM, "Fajar Fatahillah
> fajar.fatahillah@yahoo.com [belajar-excel]" <belajar-excel@yahoogroups.com>
> wrote:
>
>
>
> Dear Master Excel.
>
> saya mau minta bantuannya, berikut terlampir datanya,
> ada 3 chart yang masing2 ada tanggalnya, yang saya inginkan masing2 chart
> (bar) pada tgl yang sama jadi satu di satu chart
>
> terima kasih atas perhatiannya
>
> Best Regards, Fajar Fatahillah
>
>
>
>
>
>
>

Sun Jun 5, 2016 12:26 am (PDT) . Posted by:

"Mr. Kid" nmkid.family@ymail.com

Hai Deddy,

Cek lagi cara penulisan kodenya. Mungkin kurang teliti.

Regards,
Kid

On Tue, May 31, 2016 at 11:07 AM, deddyacc@yahoo.com [belajar-excel] <
belajar-excel@yahoogroups.com> wrote:

>
>
> Hai Om Kid....
>
>
> terima kasih sudah reply email saya...
>
> tapi kok gak bisa ya saya masukkan query nya ke excel saya
>
> "Run time error 438 "
>
> rumus macro nya :
>
> Private Sub CommandButton1_Click()
>
> ActiveSheet.AutoFilterMode = False
> ActiveSheet.Range("A6").CurrentRegion.autofilter2 ,
> Replace(LCase(ActiveSheet.Range("B4").Value), "all", "*")
> ActiveSheet.Range("A6").CurrentRegion.autofilter3 ,
> Replace(LCase(ActiveSheet.Range("B2").Value), "all", "*")
> ActiveSheet.Range("A6").CurrentRegion.autofilter4 ,
> Replace(LCase(ActiveSheet.Range("B3").Value), "all", "*")
>
>
> End Sub
>
> oh iya untuk fungsi "LCase" kok gak jalan ya om ???
>
> heheheheh....maaf amatir ( tapi mau belajar )
>
>
> terima kasih
> Deddy
>
>
============================================================
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:

Poskan Komentar