Sabtu, 20 Juli 2013

[belajar-excel] Digest Number 2435

3 New Messages

Digest #2435

Messages

Sat Jul 20, 2013 4:23 am (PDT) . Posted by:

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

Sekarang perhatikan yang dipanggil, yaitu prosedur yang akan melakukan
komputasi :
*Private Function TotalDiscount( _
ByVal curDisc As Currency _
, ByVal curJual As Currency _
, curNetJual As Currency _
) As Currency*

Coba perhatikan baris kode pemanggil :
curSales = 1000 'nilai jual
curDiscount = 0.17 'discount 17%

'proses komputasi yang rumit
* curDiscount = TotalDiscount(curDiscount, curSales, curProfit)
*
sama saja bunyinya :
* curDiscount = TotalDiscount( 0.17 , 1000 , curProfit)
*
Jika baris kode pemanggil diubah menjadi :
curSales = 1000 'nilai jual
curDiscount = 0.17 'discount 17%

'proses komputasi yang rumit
* curDiscount = TotalDiscount(curSales, curDiscount, curProfit)
*
sama saja bunyinya :
* curDiscount = TotalDiscount( 1000 , 0.17 , curProfit)*

Jadi, baris kode pemanggil selalu mengikuti urutan dari prosedur berargumen
yang dipanggil, yaitu :
*Private Function TotalDiscount( _
ByVal curDisc As Currency _
, ByVal curJual As Currency _
, curNetJual As Currency _
) As Currency*

Ketika nilai sudah sampai prosedur yang dipanggil, maka akan dilakukan
proses komputasi oleh baris kode (di prosedur yang dipanggil) :
*TotalDiscount *= *curDisc ** *curJual*
*curNetJual *= *curJual *- *TotalDiscount*

Silakan dimasukkan saja angkanya berdasar warnanya.

Wassalam,
Kid.

2013/7/20 lapendosol opik <lapendosol@yahoo.com>

> **
>
>
>
> Mas Kid mungkin pertanyaannya sedikit oot dari materi pelajaran di topik
> ini, tapi saya tertarik dengan tulisan:
> 'proses komputasi yang rumit
> curDiscount = TotalDiscount(curDiscount, curSales, curProfit)
> Kalo boleh dikasih penjelasan proses komputasi dari script diatas gmn Mas?
> Lebih jelasnya saya posting pertanyaan <a href="
> http://b-excel.blogspot.com/2013/07/belajarvba-005-procedure-seri-2.html?showComment=1374317532821#c4056554061441301542">Disini
> (sekalian latian bikin link pake tulisan semoga berhasil)</a>
>
> Trimakasih sebelumnya mas hehehe
> Wassalam,
>
> ------------------------------
> *From:* Mr. Kid <mr.nmkid@gmail.com>
> *To:* BeExcel <belajar-excel@yahoogroups.com>
> *Sent:* Monday, July 15, 2013 3:14 AM
> *Subject:* [belajar-excel] BelajarVBA : lanjutan tentang prosedur
>
>
> Dear BeExceller,
>
> Mumpung sempat, sekalian saja bahasan prosedurnya disertai dengan seri 2
> yang dapat dilihat disini<http://b-excel.blogspot.com/2013/07/belajarvba-005-procedure-seri-2.html>.
> Lagipula, seri 1 dan seri 2 cenderung berkaitan erat.
>
> Selamat belajar.
>
> Wassalamu'alaikum Wr. Wb.
> Kid.
>
>
>
>
>
>

Sat Jul 20, 2013 5:00 am (PDT) . Posted by:

agam_tole

Hai MIss..

Betul sdh jalan vba yg d mksd; Terima Kasih Miss; tp ada masalah br lg, begitu formulanya adalah sumif hasilnya kok #VALUE! Dalam cell, pdahal formula tersebut asalnya mng dalam cell, lngsung saya copy n pindah ke vba; d cell malah #VALUE!

Ini formula asal di dalam cell V9
=SUMIF($E$4:$E$1114;U9;$L$4:$L$1114)

Dan ane pindah

Jd begini VBAnya:

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Sheets("DES").Range("V9").Value = Evaluate("=SUMIF($E$4:$E$1114;U9;$L$4:$L$1114)")
End Sub

Tp d cell V9 d sheet DES malah muncul
#VALUE!

Mohon pencerahan..
Terima kaSih


SAlam

Agam
Sent from my BlackBerry®
powered by Sinyal Kuat INDOSAT

-----Original Message-----
From: Jan Raisin <miss.jan.raisin@gmail.com>
Sender: belajar-excel@yahoogroups.com
Date: Sat, 20 Jul 2013 16:44:12
To: <belajar-excel@yahoogroups.com>
Reply-To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] MenggantI Formula dalam Cell ke code VBA

pak Agam,

tidak perlu malu untuk bertanya dan belajar.. karena batas akhir waktu
belajar adalah saat kita kembali ke rumah masa depan yang berukuran 2 x 1
meter.

baiklah.. kalo gak salah tujuan awal ingin mengganti formula dengan VBA
adalah untuk mempercepat proses dan mengurangi kapasitas file dengan cara
menghilangkan formula pada cell dan menggantikannya dengan nilainya
langsung ya..

kalo memang benar begitu adanya.. maka yang ada tulisan .Formula harus
diganti dengan .Value yang akan menghasilkan nilai sehingga excel tidak
perlu melakukan kalkulasi lagi terhadap cel tersebut.
lalu, harus dipastikan bahwa cel yang dimaksud dan cel rujukan berada pada
sheet yang tepat.. caranya seperti ini:

sheets("nama_sheet_hasil").range("a5").value = evaluate("=sum(nama_
sheetnya_misal_sheet1!A1:A4)")

ganti yang warna merah dengan nama sheet yang sesuai..

​semoga sesuai dengan kondisi di tempat aslinya.. jika masih belum sesuai..
tolong kirim sample waorkbook dengan scriptnya​

​Wassalam,

-Miss Jan Raisin-


- Untuk kepentingan belajar bersama, pertanyaan harap ditujukan *hanya*ke
belajar-excel@yahoogroups.com bukan dikirim japri ke email pribadi
member milis;
- Jika pertanyaan lama direspon, bersabarlah karena ALLAH beserta dengan
orang-orang yang sabar QS 2:153;
- Harap dipahami bersama bahwa solusi diberikan oleh Be-Exceller yang
memiliki waktu untuk on line, mengetahui solusi atas pertanyaan yang
ditanyakan, mau dan berani untuk membantu, tanpa mengharap imbalan dari
Thread Starter (TS) atau Post Starter (PS), selain itu Be-Excelller juga
memiliki kewajiban yang harus dipenuhi di dunia nyata sehingga tidak selalu
bisa on line setiap saat;
- Semoga semangat berbagi dan membantu semakin meningkat di kalangan
Be-Exceller dan menjadi amalan yang baik untuk tabungan di akhirat nanti.
اَمِين يَا رَبَّ الْعَالَمِيْن



Pada 20 Juli 2013 16.10, <agam_tole@yahoo.com> menulis:

> **
>
>
> ** Hai Miss Jan
>
>
> Sub Formulabiasa()
> range("A5").Formula = Evaluate("=SUM(A1:A4)")
> End Sub
>
> Ada tulIsan Runtime error 1004
> Aplication-defined ir object-defined error
>
> Itu cOde VBAnya yg error
> (Malu mau posting sebenernya)
> Tp gak apa, namanya beljar..
>
>
> Salam
>
> Agam
> Sent from my BlackBerry®
> powered by Sinyal Kuat INDOSAT
> ------------------------------
> *From: * Jan Raisin <miss.jan.raisin@gmail.com>
> *Sender: * belajar-excel@yahoogroups.com
> *Date: *Sat, 20 Jul 2013 15:06:49 +0700
> *To: *<belajar-excel@yahoogroups.com>
> *ReplyTo: * belajar-excel@yahoogroups.com
> *Subject: *Re: [belajar-excel] MenggantI Formula dalam Cell ke code VBA
>
>
>
> pak Agam, cara mengganti activecell dengan range adalah seperti contoh di
> bawah ini:
>
> ingin merujuk ke cell A1 >> range("a1")
> ingin merujuk ke cell b25 >> range("b25")
>
> jadi format penulisannya adalah range("ini_alamat_cellnya")
> ganti yang warna merah dengan alamat cell yang diinginkan
>
> jika masih ada kesulitan.. coba posting ke sini hasil usaha yang sudah
> dilakukan dan timbul error tersebut
>
> ​salam,
> ​
>
> -Miss Jan Raisin-
>
>
> - Untuk kepentingan belajar bersama, pertanyaan harap ditujukan *hanya*ke
> belajar-excel@yahoogroups.com bukan dikirim japri ke email pribadi
> member milis;
> - Jika pertanyaan lama direspon, bersabarlah karena ALLAH beserta
> dengan orang-orang yang sabar QS 2:153;
> - Harap dipahami bersama bahwa solusi diberikan oleh Be-Exceller yang
> memiliki waktu untuk on line, mengetahui solusi atas pertanyaan yang
> ditanyakan, mau dan berani untuk membantu, tanpa mengharap imbalan dari
> Thread Starter (TS) atau Post Starter (PS), selain itu Be-Excelller juga
> memiliki kewajiban yang harus dipenuhi di dunia nyata sehingga tidak selalu
> bisa on line setiap saat;
> - Semoga semangat berbagi dan membantu semakin meningkat di kalangan
> Be-Exceller dan menjadi amalan yang baik untuk tabungan di akhirat nanti.
> اَمِين يَا رَبَّ الْعَالَمِيْن
>
>
>
> Pada 20 Juli 2013 14.50, <agam_tole@yahoo.com> menulis:
>
>> **
>>
>>
>> ** Salam
>>
>> SIang Pak HK
>> Sebelumnya maaf saya merepotkan..
>> Saya masih bingung bagaimana mengelola code tersebut, saya sdh trial n
>> error msh blm nyambung jg untuk meletakkan ActiveCell dengan Range("..")
>>
>> Mhn bpk ksh contoh 1 deret printah VBA seperti yg bpk ksh d atas..
>>
>> Terima kasih Pak
>>
>>
>> Salam
>>
>>
>> Agam
>> Sent from my BlackBerry®
>> powered by Sinyal Kuat INDOSAT
>> ------------------------------
>> *From: * hendrik karnadi <hendrikkarnadi@yahoo.com>
>> *Sender: * belajar-excel@yahoogroups.com
>> *Date: *Wed, 17 Jul 2013 19:31:53 -0700 (PDT)
>> *To: *belajar-excel@yahoogroups.com<belajar-excel@yahoogroups.com>
>> *ReplyTo: * belajar-excel@yahoogroups.com
>> *Subject: *Re: [belajar-excel] MenggantI Formula dalam Cell ke code VBA
>>
>>
>>
>> Hi Agam,
>> Tinggal ganti ActiveCell dengan Range(".."). Titik2nya bisa diganti
>> dengan alamat sel.
>>
>> Salam,
>> HK
>>
>>
>

Sat Jul 20, 2013 5:35 am (PDT) . Posted by:

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

Coba ganti yang di vba dari utitik koma jadi koma.
Vba menggunakan koma. Di workbook window tergantung regional setting.

Wassalam,
Kid.
On Jul 20, 2013 7:00 PM, <agam_tole@yahoo.com> wrote:

> **
>
>
> ** Hai MIss..
>
> Betul sdh jalan vba yg d mksd; Terima Kasih Miss; tp ada masalah br lg,
> begitu formulanya adalah sumif hasilnya kok #VALUE! Dalam cell, pdahal
> formula tersebut asalnya mng dalam cell, lngsung saya copy n pindah ke vba;
> d cell malah #VALUE!
>
> Ini formula asal di dalam cell V9
> =SUMIF($E$4:$E$1114;U9;$L$4:$L$1114)
>
> Dan ane pindah
>
> Jd begini VBAnya:
>
> Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target
> As Range)
> Sheets("DES").Range("V9").Value =
> Evaluate("=SUMIF($E$4:$E$1114;U9;$L$4:$L$1114)")
> End Sub
>
> Tp d cell V9 d sheet DES malah muncul
> #VALUE!
>
> Mohon pencerahan..
> Terima kaSih
>
>
> SAlam
>
> Agam
> Sent from my BlackBerry®
> powered by Sinyal Kuat INDOSAT
> ------------------------------
> *From: * Jan Raisin <miss.jan.raisin@gmail.com>
> *Sender: * belajar-excel@yahoogroups.com
> *Date: *Sat, 20 Jul 2013 16:44:12 +0700
> *To: *<belajar-excel@yahoogroups.com>
> *ReplyTo: * belajar-excel@yahoogroups.com
> *Subject: *Re: [belajar-excel] MenggantI Formula dalam Cell ke code VBA
>
>
>
> pak Agam,
>
> tidak perlu malu untuk bertanya dan belajar.. karena batas akhir waktu
> belajar adalah saat kita kembali ke rumah masa depan yang berukuran 2 x 1
> meter.
>
> baiklah.. kalo gak salah tujuan awal ingin mengganti formula dengan VBA
> adalah untuk mempercepat proses dan mengurangi kapasitas file dengan cara
> menghilangkan formula pada cell dan menggantikannya dengan nilainya
> langsung ya..
>
> kalo memang benar begitu adanya.. maka yang ada tulisan .Formula harus
> diganti dengan .Value yang akan menghasilkan nilai sehingga excel tidak
> perlu melakukan kalkulasi lagi terhadap cel tersebut.
> lalu, harus dipastikan bahwa cel yang dimaksud dan cel rujukan berada pada
> sheet yang tepat.. caranya seperti ini:
>
> sheets("nama_sheet_hasil").range("a5").value = evaluate("=sum(nama_
> sheetnya_misal_sheet1!A1:A4)")
>
> ganti yang warna merah dengan nama sheet yang sesuai..
>
> ​semoga sesuai dengan kondisi di tempat aslinya.. jika masih belum
> sesuai.. tolong kirim sample waorkbook dengan scriptnya​
>
> ​Wassalam,
>
> -Miss Jan Raisin-
>
>
> - Untuk kepentingan belajar bersama, pertanyaan harap ditujukan *hanya*ke
> belajar-excel@yahoogroups.com bukan dikirim japri ke email pribadi
> member milis;
> - Jika pertanyaan lama direspon, bersabarlah karena ALLAH beserta
> dengan orang-orang yang sabar QS 2:153;
> - Harap dipahami bersama bahwa solusi diberikan oleh Be-Exceller yang
> memiliki waktu untuk on line, mengetahui solusi atas pertanyaan yang
> ditanyakan, mau dan berani untuk membantu, tanpa mengharap imbalan dari
> Thread Starter (TS) atau Post Starter (PS), selain itu Be-Excelller juga
> memiliki kewajiban yang harus dipenuhi di dunia nyata sehingga tidak selalu
> bisa on line setiap saat;
> - Semoga semangat berbagi dan membantu semakin meningkat di kalangan
> Be-Exceller dan menjadi amalan yang baik untuk tabungan di akhirat nanti.
> اَمِين يَا رَبَّ الْعَالَمِيْن
>
>
>
> Pada 20 Juli 2013 16.10, <agam_tole@yahoo.com> menulis:
>
>> **
>>
>>
>> ** Hai Miss Jan
>>
>>
>> Sub Formulabiasa()
>> range("A5").Formula = Evaluate("=SUM(A1:A4)")
>> End Sub
>>
>> Ada tulIsan Runtime error 1004
>> Aplication-defined ir object-defined error
>>
>> Itu cOde VBAnya yg error
>> (Malu mau posting sebenernya)
>> Tp gak apa, namanya beljar..
>>
>>
>> Salam
>>
>> Agam
>> Sent from my BlackBerry®
>> powered by Sinyal Kuat INDOSAT
>> ------------------------------
>> *From: * Jan Raisin <miss.jan.raisin@gmail.com>
>> *Sender: * belajar-excel@yahoogroups.com
>> *Date: *Sat, 20 Jul 2013 15:06:49 +0700
>> *To: *<belajar-excel@yahoogroups.com>
>> *ReplyTo: * belajar-excel@yahoogroups.com
>> *Subject: *Re: [belajar-excel] MenggantI Formula dalam Cell ke code VBA
>>
>>
>>
>> pak Agam, cara mengganti activecell dengan range adalah seperti contoh di
>> bawah ini:
>>
>> ingin merujuk ke cell A1 >> range("a1")
>> ingin merujuk ke cell b25 >> range("b25")
>>
>> jadi format penulisannya adalah range("ini_alamat_cellnya")
>> ganti yang warna merah dengan alamat cell yang diinginkan
>>
>> jika masih ada kesulitan.. coba posting ke sini hasil usaha yang sudah
>> dilakukan dan timbul error tersebut
>>
>> ​salam,
>> ​
>>
>> -Miss Jan Raisin-
>>
>>
>> - Untuk kepentingan belajar bersama, pertanyaan harap ditujukan *hanya
>> * ke belajar-excel@yahoogroups.com bukan dikirim japri ke email
>> pribadi member milis;
>> - Jika pertanyaan lama direspon, bersabarlah karena ALLAH beserta
>> dengan orang-orang yang sabar QS 2:153;
>> - Harap dipahami bersama bahwa solusi diberikan oleh Be-Exceller yang
>> memiliki waktu untuk on line, mengetahui solusi atas pertanyaan yang
>> ditanyakan, mau dan berani untuk membantu, tanpa mengharap imbalan dari
>> Thread Starter (TS) atau Post Starter (PS), selain itu Be-Excelller juga
>> memiliki kewajiban yang harus dipenuhi di dunia nyata sehingga tidak selalu
>> bisa on line setiap saat;
>> - Semoga semangat berbagi dan membantu semakin meningkat di kalangan
>> Be-Exceller dan menjadi amalan yang baik untuk tabungan di akhirat nanti.
>> اَمِين يَا رَبَّ الْعَالَمِيْن
>>
>>
>>
>> Pada 20 Juli 2013 14.50, <agam_tole@yahoo.com> menulis:
>>
>>> **
>>>
>>>
>>> ** Salam
>>>
>>> SIang Pak HK
>>> Sebelumnya maaf saya merepotkan..
>>> Saya masih bingung bagaimana mengelola code tersebut, saya sdh trial n
>>> error msh blm nyambung jg untuk meletakkan ActiveCell dengan Range("..")
>>>
>>> Mhn bpk ksh contoh 1 deret printah VBA seperti yg bpk ksh d atas..
>>>
>>> Terima kasih Pak
>>>
>>>
>>> Salam
>>>
>>>
>>> Agam
>>> Sent from my BlackBerry®
>>> powered by Sinyal Kuat INDOSAT
>>> ------------------------------
>>> *From: * hendrik karnadi <hendrikkarnadi@yahoo.com>
>>> *Sender: * belajar-excel@yahoogroups.com
>>> *Date: *Wed, 17 Jul 2013 19:31:53 -0700 (PDT)
>>> *To: *belajar-excel@yahoogroups.com<belajar-excel@yahoogroups.com>
>>> *ReplyTo: * belajar-excel@yahoogroups.com
>>> *Subject: *Re: [belajar-excel] MenggantI Formula dalam Cell ke code VBA
>>>
>>>
>>>
>>> Hi Agam,
>>> Tinggal ganti ActiveCell dengan Range(".."). Titik2nya bisa diganti
>>> dengan alamat sel.
>>>
>>> Salam,
>>> HK
>>>
>>>
>
>
GROUP FOOTER MESSAGE
=====================================================================
Untuk memudahkan tim penyusun materi Belajar Excel yang lebih sesuai kebutuhan member, silakan ungkapkan permasalahan yang kerap ditemui dalam menggunakan Excel sehari-hari atau hal-hal yang ingin dipelajari dalam jangka dekat ini. Mohon diprioritaskan dari yang sering ditemui sampai yang ingin dipelajari.
Isi sesuai kelompoknya (fitur-fitur, formula-formula tertentu yang masih membingungkan, otomasi atau pemrograman dalam Excel [Macro - VBA], hal lainnya yang membuat Anda kesulitan dalam mempelajari Excel).
Boleh mengisi berulang kali untuk menambah uneg-uneg yang ingin diungkapkan.
Link untuk menuangkan seluruh uneg-uneg tersebut ada di :
http://tech.groups.yahoo.com/group/belajar-excel/database?method=addRecord&tbl=3
=====================================================================
Langkah kecil Anda dalam mengisi database bisa menjadi langkah pertama yang bermanfaat besar untuk kita semua.
=====================================================================

---------------------------------------------------------------------
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
---------------------------------------------------------------------
Diposting oleh EXCEL FEED LEARNING di 05.36

Tidak ada komentar:

Posting Komentar

Langganan: Posting Komentar (Atom)