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