Terima kasih Mr Kid, sudah bisa neh, sharing ilmunya bermanfaat sekali Salam Tiny Powered by Telkomsel BlackBerry®
-----Original Message----- From: "Mr. Kid" <[email protected]> Sender: [email protected] Date: Sun, 18 Nov 2012 15:46:38 To: <[email protected]> Reply-To: [email protected] Subject: Re: [belajar-excel] Fw: Booking Calender Coba lihat sheet report1. Disana akan ada banyak sekali cell yang berisi formula. Salah satu fungsi yang digunakan dalam formula yang ada disana bernama IsBookedDate. Fungsi IsBookedDate meminta 3 inputan seperti : =IsBookedDate($E3,F$2,*Jurnal!$B$2:$D$46*) pada cell yang isinya formula berbunyi seperti itu : >> bagian yang merujuk ke sheet Jurnal diganti agar yang dirujuk *sampai kolom Ket* (*bukankah formula diatas belum menyertakan kolom Ket yang ada di sheet jurnal ?*) di sheet Jurnal >> *cell-cell yang berisi formula dengan fungsi IsBookedDate juga memiliki*C *onditional formatting * atur agar conditional formatting yang menggunakan : - dari opsi cell value dengan kriteria equal bernilai TRUE - menjadi beropsi cell value dengan kriteria not equal bernilai 0 >> *cell-cell yang berisi formula dengan fungsi IsBookedDate juga diatur Format Number nya *ubah format cell number (klik kanan cell -> format cells -> tab number -> custom -> ubah isian textbox) : - dari bertuliskan ;;; - menjadi bertuliskan ;;;@ Wassalam, Kid. 2012/11/18 <[email protected]> > ** > > > ** Mr Kid, point 2 saya kurang mengerti maksudnya, help dong > Salam > Tiny > Powered by Telkomsel BlackBerry® > ------------------------------ > *From: * "Mr. Kid" <[email protected]> > *Sender: * [email protected] > *Date: *Sun, 18 Nov 2012 11:05:35 +0700 > *To: *<[email protected]> > *ReplyTo: * [email protected] > *Subject: *Re: [belajar-excel] Fw: Booking Calender > > > > Bu Tiny, > > > Sebaiknya kasus ditujukan ke seluruh BeExceller. Semakin banyak pihak yang > dituju, maka akan terbuka peluang untuk bisa bertemu BeExceller yang lebih > luang dalam memanfaatkan seluruh resources. > > Berikut kalau dari mod... > 1. Ubah prosedur fungsi (function) bernama IsBookedDate (jangan lupa tulis > tanggal pengubahannya dan yang mengubahnya) sebagai berikut : > >> baris deklarasi fungsi (function blablabla) dari As Boolean menjadi As > Variant > >> baris pengisi variabel IsBookedDate (di nested if terdalam) dari > IsBookedDate=true menjadi IsBookedDate=vdt(lrow,4) > > 2. pada sheet report1 (sheet ini terpusat pada pemanfaatan fungsi UDF > bernama IsBookedDate), ubah seluruh cell yang berisi fungsi IsBookedDate > sebagai berikut : > >> bagian yang merujuk ke sheet Jurnal diganti agar yang dirujuk sampai > kolom Ket di sheet Jurnal > >> conditional formatting dari cell value equal TRUE menjadi cell value > not equal 0 > >> format cell number dari ;;; menjadi ;;;@ > > 3. pada sheet report2 (sheet ini terpusat pada array formula di kolom B > yang berupa array formula block), ubah > >> array formula block (45 baris x 1 kolom) di kolom B mulai B2 dari 1 > kondisi dalam IF berbunyi Jurnal!B2:B46=E3 menjadi > (Jurnal!B2:B46=E3)*(Jurnal!e2:e46=g3) > >> isi cell G3 dengan keterangan yang ingin ditampilkan > > Wassalam, > Kid. > > > On Sun, Nov 18, 2012 at 10:21 AM, <[email protected]> wrote: > >> ** >> >> >> Dear Mod >> Saya mendapat file booking calender milik P'onto Seno, saya ingin >> menambahkan berapa keperluan tetapi kurang memahami VBA yg dibuat oleh >> beliau, bisakah mod membantu, pertanyaan telah saya lampirkan di dalam file >> Terima kasih >> Salam >> Tiny >> >> Powered by Telkomsel BlackBerry® >> >> -----Original Message----- >> From: Hartini FIN <[email protected]> >> Date: Sun, 18 Nov 2012 03:11:15 >> To: [email protected]<[email protected]> >> Subject: Booking Calender >> >> >> > >
