15 New Messages
Digest #1789
Messages
Tue Sep 18, 2012 5:40 am (PDT) . Posted by:
"Kid Mr." nmkid.family@ymail.com
Hai Pie,
Coba buat Conditional Formatting (CF) dengan : (di Excel 2003, sesuaikan
dengan menu membuat CF dan pilih opsi Formula Is)
ribbon Home -> Conditional Foprmatting -> New Rule -> pilih opsi Use
Formula -> tulis formula kriterianya
Misal untuk data tanggal (tipe datetime) di B3:B5 dan akan memasang CF di
kolom X3:X5, dengan syarat, nilai di kolom B (masing-masing row) yang masuk
dalam interval *hari ini sampai **dengan **7 hari kedepan*.
1. Blok X3:X5
2. buat CF :: Home-> CF -> new rule -> use formula -> tulis formula berikut
:
= *( $b3 >= Today() ) * *** * ( $b3 <= Today()+7 )*
bahasa manusianya :
"Apakah tanggal di kolom B baris aktif [$b3] masuk dalam interval tanggal
mulai hari ini [ >=Today() ] <biasa disebut lebih dari atau sama dengan
hari ini> sampai dengan [ * ] hari pada 7 hari kedepan [ <= Today()+7 ]
<biasa disebut kurang dari atau sama dengan>"
Wassalam,
Kid.
Wassalam,
Kid.
2012/9/18 indria pie <mas_pie3@yahoo.co.id >
> **
>
>
> dear master and all
>
> mohon dibantu untuk pencerahan tentang bagaimana menggunakan conditional
> formatting untuk data yang berbentuk text / data hasil rumus...
>
> terima kasih sebelumya
>
> salam,
> -snupy-
>
>
>
Coba buat Conditional Formatting (CF) dengan : (di Excel 2003, sesuaikan
dengan menu membuat CF dan pilih opsi Formula Is)
ribbon Home -> Conditional Foprmatting -> New Rule -> pilih opsi Use
Formula -> tulis formula kriterianya
Misal untuk data tanggal (tipe datetime) di B3:B5 dan akan memasang CF di
kolom X3:X5, dengan syarat, nilai di kolom B (masing-masing row) yang masuk
dalam interval *hari ini sampai **dengan **7 hari kedepan*.
1. Blok X3:X5
2. buat CF :: Home-> CF -> new rule -> use formula -> tulis formula berikut
:
= *( $b3 >= Today() ) * *** * ( $b3 <= Today()+7 )*
bahasa manusianya :
"Apakah tanggal di kolom B baris aktif [$b3] masuk dalam interval tanggal
mulai hari ini [ >=Today() ] <biasa disebut lebih dari atau sama dengan
hari ini> sampai dengan [ * ] hari pada 7 hari kedepan [ <= Today()+7 ]
<biasa disebut kurang dari atau sama dengan>"
Wassalam,
Kid.
Wassalam,
Kid.
2012/9/18 indria pie <mas_pie3@yahoo.
> **
>
>
> dear master and all
>
> mohon dibantu untuk pencerahan tentang bagaimana menggunakan conditional
> formatting untuk data yang berbentuk text / data hasil rumus...
>
> terima kasih sebelumya
>
> salam,
> -snupy-
>
>
>
Tue Sep 18, 2012 5:43 am (PDT) . Posted by:
"basyoir Bas"
Dear Pak Kid & AJi,
Mantaaab sekali dan terima kasih.
thanks
bas
________________________________
From: Kid Mr. <mr.nmkid@gmail.com >
To: belajar-excel@yahoogroups.com
Sent: Tuesday, September 18, 2012 3:25 PM
Subject: Re: [belajar-excel] MEROBAH DARI ANGKA TEXT MENJADI WAKTU
Atau lompat dari 1 ke 3, menjadi :
=--Substitute( "03.00" , "." , ":" )
Wassalam,
Kid.
2012/9/18 aji mumpung <pupung1986@gmail.com >
>
>Pak Bas,
>
>
>untuk mengubah data terlampir langkah-langkahnya sebagai berikut: (contoh saya ambil dari data pertama)
>
>
>1. Hilangkan tanda titik yang digunakan sebagai pemisah antara jam dengan menit, gunakan fungsi Substitute
> syntax untuk fungsi ini adalah
> SUBSTITUTE(text, old_text, new_text, [instance_num])
> dalam kasus ini =Substitute("03.00", ".", ""), karena instannce number tidak diisi maka excel akan menganggap nilainya 1, hasil akhir adalah 0300
>
>
> 2. Ubah hasil text pada langkah 1 menjadi text dalam format jam, gunakan fungsi Text
> syntax untuk fungsi ini adalah
> TEXT(value, format_text)
> dalam kasus ini =Text("0300", "00\:00"), tanda back slash digunakan untuk memisahkan 2 digit pertama sebagai jam & 2 digit berikutnya sebagai menit, hasil akhir adalah 03:00
>
>
> 3. Ubah text pada langkah 2 menjadi nilai dari jam tersebut, gunakan fungsi TimeValue
> syntax fungsi ini adalah
> TIMEVALUE(time_text)
> dalam kasus ini =TimeValue("03:00"), hasil akhirnya adalah data bertipe numerik
>
>
>4. Ubah data numerik tersebut kedalam format waktu yang diinginkan
>
>
>Karena pada langkah ke-3 tipe data sudah berubah dari Text menjadi Numeric, maka data tersebut dapat dilakukan operasi matematika termasuk juga penjumlahan
>
>
>formula lengkapnya adalah =TIMEVALUE(TEXT(SUBSTITUTE(E5;".";"");"00\:00"))
>
>
>Hasil akhir dapat dilihat pada file terlampir
>
>
>wassalam,
>
>
>-aji mumpung-
>
>
>Pada 18 September 2012 16:33, basyoir Bas <basyoir_bas@yahoo.com > menulis:
>
>
>
>>
>>Dear Juragan excel,
>>
>>
>>Assalamualikum Sheich Excel,
>>Mau tanya formula untuk merubah format text menjadi format waktu, sample seperti terlampir.
>>
>>
>>Atas bantuannya terima kasih.
>>
>>
>>Salam,
>>Bas
>
Mantaaab sekali dan terima kasih.
thanks
bas
____________
From: Kid Mr. <mr.nmkid@gmail.
To: belajar-excel@
Sent: Tuesday, September 18, 2012 3:25 PM
Subject: Re: [belajar-excel] MEROBAH DARI ANGKA TEXT MENJADI WAKTU
Atau lompat dari 1 ke 3, menjadi :
=--Substitute( "03.00" , "." , ":" )
Wassalam,
Kid.
2012/9/18 aji mumpung <pupung1986@gmail.
>
>Pak Bas,
>
>
>untuk mengubah data terlampir langkah-langkahnya sebagai berikut: (contoh saya ambil dari data pertama)
>
>
>1. Hilangkan tanda titik yang digunakan sebagai pemisah antara jam dengan menit, gunakan fungsi Substitute
> syntax untuk fungsi ini adalah
> SUBSTITUTE(text, old_text, new_text, [instance_num]
> dalam kasus ini =Substitute(
>
>
> 2. Ubah hasil text pada langkah 1 menjadi text dalam format jam, gunakan fungsi Text
> syntax untuk fungsi ini adalah
> TEXT(value, format_text)
> dalam kasus ini =Text("0300"
>
>
> 3. Ubah text pada langkah 2 menjadi nilai dari jam tersebut, gunakan fungsi TimeValue
> syntax fungsi ini adalah
> TIMEVALUE(time_
> dalam kasus ini =TimeValue("
>
>
>4. Ubah data numerik tersebut kedalam format waktu yang diinginkan
>
>
>Karena pada langkah ke-3 tipe data sudah berubah dari Text menjadi Numeric, maka data tersebut dapat dilakukan operasi matematika termasuk juga penjumlahan
>
>
>formula lengkapnya adalah =TIMEVALUE(
>
>
>Hasil akhir dapat dilihat pada file terlampir
>
>
>wassalam,
>
>
>-aji mumpung-
>
>
>Pada 18 September 2012 16:33, basyoir Bas <basyoir_bas@
>
>
>
>>
>>Dear Juragan excel,
>>
>>
>>Assalamualikum Sheich Excel,
>>Mau tanya formula untuk merubah format text menjadi format waktu, sample seperti terlampir.
>>
>>
>>Atas bantuannya terima kasih.
>>
>>
>>Salam,
>>Bas
>
Tue Sep 18, 2012 9:16 am (PDT) . Posted by:
"summonery" summonery
Coba juga,
=DOLLARDE("03.00",60)/24
(Syarat dan ketentuan berlaku)
>semoga bermanfaat
--- In belajar-excel@yahoogroups.com , "Kid Mr." <mr.nmkid@...> wrote:
>
> Atau lompat dari 1 ke 3, menjadi :
> =--Substitute( "03.00" , "." , ":" )
>
>
> Wassalam,
> Kid.
>
> 2012/9/18 aji mumpung <pupung1986@...>
>
> > **
> >
> >
> > Pak Bas,
> >
> > untuk mengubah data terlampir langkah-langkahnya sebagai berikut: (contoh
> > saya ambil dari data pertama)
> >
> > 1. Hilangkan tanda titik yang digunakan sebagai pemisah antara jam dengan
> > menit, gunakan fungsi Substitute
> > syntax untuk fungsi ini adalah
> > SUBSTITUTE(text, old_text, new_text, [instance_num])
> > dalam kasus ini =Substitute("03.00", ".", ""), karena instannce
> > number tidak diisi maka excel akan menganggap nilainya 1, hasil akhir
> > adalah 0300
> >
> > 2. Ubah hasil text pada langkah 1 menjadi text dalam format jam, gunakan
> > fungsi Text
> > syntax untuk fungsi ini adalah
> > TEXT(value, format_text)
> > dalam kasus ini =Text("0300", "00\:00"), tanda back slash digunakan
> > untuk memisahkan 2 digit pertama sebagai jam & 2 digit berikutnya sebagai
> > menit, hasil akhir adalah 03:00
> >
> > 3. Ubah text pada langkah 2 menjadi nilai dari jam tersebut, gunakan
> > fungsi TimeValue
> > syntax fungsi ini adalah
> > TIMEVALUE(time_text)
> > dalam kasus ini =TimeValue("03:00"), hasil akhirnya adalah data
> > bertipe numerik
> >
> > 4. Ubah data numerik tersebut kedalam format waktu yang diinginkan
> >
> > Karena pada langkah ke-3 tipe data sudah berubah dari Text menjadi
> > Numeric, maka data tersebut dapat dilakukan operasi matematika termasuk
> > juga penjumlahan
> >
> > formula lengkapnya adalah =TIMEVALUE(TEXT(SUBSTITUTE(E5;".";"");"00\:00"))
> >
> > Hasil akhir dapat dilihat pada file terlampir
> >
> > wassalam,
> >
> > -aji mumpung-
> >
> > Pada 18 September 2012 16:33, basyoir Bas <basyoir_bas@...> menulis:
> >
> > **
> >>
> >>
> >> Dear Juragan excel,
> >>
> >> Assalamualikum Sheich Excel,
> >> Mau tanya formula untuk merubah format text menjadi format waktu, sample
> >> seperti terlampir.
> >>
> >> Atas bantuannya terima kasih.
> >>
> >> Salam,
> >> Bas
> >>
> >>
> >
> >
>
=DOLLARDE("03.
(Syarat dan ketentuan berlaku)
>semoga bermanfaat
--- In belajar-excel@
>
> Atau lompat dari 1 ke 3, menjadi :
> =--Substitute( "03.00" , "." , ":" )
>
>
> Wassalam,
> Kid.
>
> 2012/9/18 aji mumpung <pupung1986@
>
> > **
> >
> >
> > Pak Bas,
> >
> > untuk mengubah data terlampir langkah-langkahnya sebagai berikut: (contoh
> > saya ambil dari data pertama)
> >
> > 1. Hilangkan tanda titik yang digunakan sebagai pemisah antara jam dengan
> > menit, gunakan fungsi Substitute
> > syntax untuk fungsi ini adalah
> > SUBSTITUTE(text, old_text, new_text, [instance_num]
> > dalam kasus ini =Substitute(
> > number tidak diisi maka excel akan menganggap nilainya 1, hasil akhir
> > adalah 0300
> >
> > 2. Ubah hasil text pada langkah 1 menjadi text dalam format jam, gunakan
> > fungsi Text
> > syntax untuk fungsi ini adalah
> > TEXT(value, format_text)
> > dalam kasus ini =Text("0300"
> > untuk memisahkan 2 digit pertama sebagai jam & 2 digit berikutnya sebagai
> > menit, hasil akhir adalah 03:00
> >
> > 3. Ubah text pada langkah 2 menjadi nilai dari jam tersebut, gunakan
> > fungsi TimeValue
> > syntax fungsi ini adalah
> > TIMEVALUE(time_
> > dalam kasus ini =TimeValue("
> > bertipe numerik
> >
> > 4. Ubah data numerik tersebut kedalam format waktu yang diinginkan
> >
> > Karena pada langkah ke-3 tipe data sudah berubah dari Text menjadi
> > Numeric, maka data tersebut dapat dilakukan operasi matematika termasuk
> > juga penjumlahan
> >
> > formula lengkapnya adalah =TIMEVALUE(TEXT(
> >
> > Hasil akhir dapat dilihat pada file terlampir
> >
> > wassalam,
> >
> > -aji mumpung-
> >
> > Pada 18 September 2012 16:33, basyoir Bas <basyoir_bas@
> >
> > **
> >>
> >>
> >> Dear Juragan excel,
> >>
> >> Assalamualikum Sheich Excel,
> >> Mau tanya formula untuk merubah format text menjadi format waktu, sample
> >> seperti terlampir.
> >>
> >> Atas bantuannya terima kasih.
> >>
> >> Salam,
> >> Bas
> >>
> >>
> >
> >
>
Tue Sep 18, 2012 6:06 am (PDT) . Posted by:
"basyoir Bas"
أَعْظَمَ اللهُ أَجْرَكَ, وَأَحْسَنَ عَزَاءَكَ, وَغَفَرَلِمَيِّتِكَ
A'DLOMALLOHU AJROK, WA AHSANA AZAAA'AK, WA GHOFARO LIMAYYITIK
Semoga Alloh memberi pahala yang besar,
Salam,
Bas
From:jkssxls Sudarsono <jkssxls@hotmail.
To: Belajar-Excel Yahoo Groups <belajar-excel@
Sent: Monday, September 17, 2012 11:16 AM
Subject: RE: [belajar-excel] Selamat jalan mbak Siti...
Maaf baru baca, saya sebagai anggota sungguh merasakan kehilangan sahabat sekaligus seorang yang banyak memberikan solusi bagi anggota Be-Exceler.
Semoga Sahabat kita tercinta , berbahagia di sisiNya.
____________
To: belajar-excel@
From: trustamaji@yahoo.
Date: Mon, 17 Sep 2012 15:28:06 +0800
Subject: Re: [belajar-excel] Selamat jalan mbak Siti...
selamat jalan mbak Siti.
akan saya bagikan ilmu yang njenengan berikan kepada teman-teman saya.
rahmat dan ampunan semoga selalu tercurahkan kepada mu.
From: "belajar-excel-
To: belajar-excel@
Sent: Thursday, September 13, 2012 12:31 AM
Subject: [belajar-excel] Selamat jalan mbak Siti...
Inna lillahi wa inna ilaihi raji'un
Semoga seluruh amal kebaikan mbah Mabrur (aka mbak Siti) diterima Allah SWT.
Semoga beliau mendapatkan rahmat ampunan Allah SWT.
Semoga iman islamnya diterima Allah SWT.
Selamat jalan.
--- Dear BeExceller ---
Salah seorang Exceller sejati negeri ini telah mendahului kita.
Mari kita kenang seluruh kebaikan yang telah diberikannya untuk kita semua.
Mari kita amalkan seluruh ilmu yang telah dibaginya untuk kita semua.
Thread ini adalah untuk ungkapan cinta kasih yang penuh kerinduan kita kepada mbak Siti.
------------
Tue Sep 18, 2012 6:36 am (PDT) . Posted by:
"abdul hafidz" a.hafidz
hi basyoir Bas,
> Tahap pertama hilangkan terlebih dahulu tanda titik dengan meReplacenya dgn klik Ctrl+H
> ketikan rumus berikut di kolom D5 =--TEXT( --C5; "00"":""00" )
> Contoh terlampir
semoga membantu,
trims.
________________________________
Dari: basyoir Bas <basyoir_bas@yahoo.com >
Kepada: "belajar-excel@yahoogroups.com " <belajar-excel@yahoogroups.com >
Dikirim: Selasa, 18 September 2012 16:33
Judul: [belajar-excel] MEROBAH DARI ANGKA TEXT MENJADI WAKTU
Dear Juragan excel,
Assalamualikum Sheich Excel,
Mau tanya formula untuk merubah format text menjadi format waktu, sample seperti terlampir.
Atas bantuannya terima kasih.
Salam,
Bas
> Tahap pertama hilangkan terlebih dahulu tanda titik dengan meReplacenya dgn klik Ctrl+H
> ketikan rumus berikut di kolom D5 =--TEXT( --C5; "00"":""00" )
> Contoh terlampir
semoga membantu,
trims.
____________
Dari: basyoir Bas <basyoir_bas@
Kepada: "belajar-excel@
Dikirim: Selasa, 18 September 2012 16:33
Judul: [belajar-excel] MEROBAH DARI ANGKA TEXT MENJADI WAKTU
Dear Juragan excel,
Assalamualikum Sheich Excel,
Mau tanya formula untuk merubah format text menjadi format waktu, sample seperti terlampir.
Atas bantuannya terima kasih.
Salam,
Bas
Tue Sep 18, 2012 6:52 am (PDT) . Posted by:
"basyoir Bas"
pak Hafidz,
terima kasih atas bantuannya pak.
thanks
bas
________________________________
From: abdul hafidz <a.hafidz@yahoo.co.id >
To: "belajar-excel@yahoogroups.com " <belajar-excel@yahoogroups.com >
Sent: Tuesday, September 18, 2012 4:36 PM
Subject: Bls: [belajar-excel] MEROBAH DARI ANGKA TEXT MENJADI WAKTU
hi basyoir Bas,
> Tahap pertama hilangkan terlebih dahulu tanda titik dengan meReplacenya dgn klik Ctrl+H
> ketikan rumus berikut di kolom D5 =--TEXT( --C5; "00"":""00" )
> Contoh terlampir
semoga membantu,
trims.
________________________________
Dari: basyoir Bas <basyoir_bas@yahoo.com >
Kepada: "belajar-excel@yahoogroups.com " <belajar-excel@yahoogroups.com >
Dikirim: Selasa, 18 September 2012 16:33
Judul: [belajar-excel] MEROBAH DARI ANGKA TEXT MENJADI WAKTU
Dear Juragan excel,
Assalamualikum Sheich Excel,
Mau tanya formula untuk merubah format text menjadi format waktu, sample seperti terlampir.
Atas bantuannya terima kasih.
Salam,
Bas
terima kasih atas bantuannya pak.
thanks
bas
____________
From: abdul hafidz <a.hafidz@yahoo.
To: "belajar-excel@
Sent: Tuesday, September 18, 2012 4:36 PM
Subject: Bls: [belajar-excel] MEROBAH DARI ANGKA TEXT MENJADI WAKTU
hi basyoir Bas,
> Tahap pertama hilangkan terlebih dahulu tanda titik dengan meReplacenya dgn klik Ctrl+H
> ketikan rumus berikut di kolom D5 =--TEXT( --C5; "00"":""00" )
> Contoh terlampir
semoga membantu,
trims.
____________
Dari: basyoir Bas <basyoir_bas@
Kepada: "belajar-excel@
Dikirim: Selasa, 18 September 2012 16:33
Judul: [belajar-excel] MEROBAH DARI ANGKA TEXT MENJADI WAKTU
Dear Juragan excel,
Assalamualikum Sheich Excel,
Mau tanya formula untuk merubah format text menjadi format waktu, sample seperti terlampir.
Atas bantuannya terima kasih.
Salam,
Bas
Tue Sep 18, 2012 8:51 am (PDT) . Posted by:
"Kid Mr." nmkid.family@ymail.com
Jadi, sudah ada step-by-step cara menyusun formula konversi angka bertipe
teks ke nilai bertipe time, yang disampaikan mas Pupung.
begini bunyi akhirnya :
=TIMEVALUE(TEXT(SUBSTITUTE(E5;".";"");"00\:00"))
Kemudian, dengan alur logika yang sama, formula tersebut dapat
disederhanakan menjadi :
=--Substitute( "03.00" , "." , ":" )
Pak Hafidz mencoba dengan solusi berupa formula :
=--TEXT( --C5; "00"":""00" )
tapi didahului dengan proses menghilangkan tanda titik dengan fitur replace
*Andaikan datanya pasti hanya berisi 2 digit didepan titik dan 2 digit
dibelakang titik*, maka cara Pak Hafidz bisa sedikit diubah agar tanpa
menggunakan fitur Replace dan memanfaatkan informasi format number yang
disampaikan mas Pupung, sehingga menjadi :
=--Text( c5 * 100 , "00\:00" )
Jadi, jika andai nya tidak terpenuhi, maka opsi formula
=--Substitute( c5 , "." , ":" )
dapat digunakan. Misal saja, c5 berisi teks seperti 12.45.57
Wassalam,
Kid.
2012/9/18 abdul hafidz <a.hafidz@yahoo.co.id >
> **
>
>
> hi basyoir Bas,
>
> > Tahap pertama hilangkan terlebih dahulu tanda titik dengan meReplacenya
> dgn klik Ctrl+H
> > ketikan rumus berikut di kolom D5 =--TEXT( --C5; "00"":""00" )
> > Contoh terlampir
>
> semoga membantu,
> trims.
>
>
> ------------------------------
> *Dari:* basyoir Bas <basyoir_bas@yahoo.com >
> *Kepada:* "belajar-excel@yahoogroups.com " <belajar-excel@yahoogroups.com >
> *Dikirim:* Selasa, 18 September 2012 16:33
> *Judul:* [belajar-excel] MEROBAH DARI ANGKA TEXT MENJADI WAKTU
>
>
> Dear Juragan excel,
>
> Assalamualikum Sheich Excel,
> Mau tanya formula untuk merubah format text menjadi format waktu, sample
> seperti terlampir.
>
> Atas bantuannya terima kasih.
>
> Salam,
> Bas
>
>
>
>
teks ke nilai bertipe time, yang disampaikan mas Pupung.
begini bunyi akhirnya :
=TIMEVALUE(TEXT(
Kemudian, dengan alur logika yang sama, formula tersebut dapat
disederhanakan menjadi :
=--Substitute( "03.00" , "." , ":" )
Pak Hafidz mencoba dengan solusi berupa formula :
=--TEXT( --C5; "00"":""00" )
tapi didahului dengan proses menghilangkan tanda titik dengan fitur replace
*Andaikan datanya pasti hanya berisi 2 digit didepan titik dan 2 digit
dibelakang titik*, maka cara Pak Hafidz bisa sedikit diubah agar tanpa
menggunakan fitur Replace dan memanfaatkan informasi format number yang
disampaikan mas Pupung, sehingga menjadi :
=--Text( c5 * 100 , "00\:00" )
Jadi, jika andai nya tidak terpenuhi, maka opsi formula
=--Substitute( c5 , "." , ":" )
dapat digunakan. Misal saja, c5 berisi teks seperti 12.45.57
Wassalam,
Kid.
2012/9/18 abdul hafidz <a.hafidz@yahoo.
> **
>
>
> hi basyoir Bas,
>
> > Tahap pertama hilangkan terlebih dahulu tanda titik dengan meReplacenya
> dgn klik Ctrl+H
> > ketikan rumus berikut di kolom D5 =--TEXT( --C5; "00"":""00" )
> > Contoh terlampir
>
> semoga membantu,
> trims.
>
>
> ------------
> *Dari:* basyoir Bas <basyoir_bas@
> *Kepada:* "belajar-excel@
> *Dikirim:* Selasa, 18 September 2012 16:33
> *Judul:* [belajar-excel] MEROBAH DARI ANGKA TEXT MENJADI WAKTU
>
>
> Dear Juragan excel,
>
> Assalamualikum Sheich Excel,
> Mau tanya formula untuk merubah format text menjadi format waktu, sample
> seperti terlampir.
>
> Atas bantuannya terima kasih.
>
> Salam,
> Bas
>
>
>
>
Tue Sep 18, 2012 6:41 am (PDT) . Posted by:
"abdul hafidz" a.hafidz
Dear rekans be-excell...
selamat malam...
berhubung kerjaan lagi sedikit, klo diisi mendalami excell seru juga nih,
Case :
Jika ingin menghitung jumlah warna pada conditional formating yg ada di sebuah kolom/baris gimana yah..
Case ini pernah di bahas/ditanyakan oleh salah satu rekan be-excell, tapi setelah saya cari-cari knp ga ada filenya yah.. kiranya mohon tdk dipermasalahkan bila case ini diajukan kembali.
Contoh case terlampir, mohon pencerahannya yah...
trims.
h4f1dz
Tue Sep 18, 2012 6:57 am (PDT) . Posted by:
"aji mumpung"
pak hafidz,
kalo menghitung cacah terhadap nilainya bisa menggunakan formula berikut
=SUMPRODUCT(((E2:E46)>=TIME(20,0,0))*((E2:E46)<=TIME(23,59,59)))
kalo mau menghitung berdasarkan warna, bisa diunduh di sini
https://www.box.com/shared/50ytb9339mh606fydets
file tersebut berisi fungsi buatan alm pak mabrur masyhud .aka. Siti Vi
wassalam,
-aji mumpung-
Pada 18 September 2012 20:41, abdul hafidz <a.hafidz@yahoo.co.id > menulis:
> **
>
>
>
> Dear rekans be-excell....
> selamat malam...
>
> berhubung kerjaan lagi sedikit, klo diisi mendalami excell seru juga nih,
>
> Case :
> Jika ingin menghitung jumlah warna pada conditional formating yg ada di
> sebuah kolom/baris gimana yah..
> Case ini pernah di bahas/ditanyakan oleh salah satu rekan be-excell,
> tapi setelah saya cari-cari knp ga ada filenya yah.. kiranya mohon tdk
> dipermasalahkan bila case ini diajukan kembali.
>
> Contoh case terlampir, mohon pencerahannya yah...
>
> trims.
> h4f1dz
>
>
>
>
>
kalo menghitung cacah terhadap nilainya bisa menggunakan formula berikut
=SUMPRODUCT(
kalo mau menghitung berdasarkan warna, bisa diunduh di sini
https://www.
file tersebut berisi fungsi buatan alm pak mabrur masyhud .aka. Siti Vi
wassalam,
-aji mumpung-
Pada 18 September 2012 20:41, abdul hafidz <a.hafidz@yahoo.
> **
>
>
>
> Dear rekans be-excell...
> selamat malam...
>
> berhubung kerjaan lagi sedikit, klo diisi mendalami excell seru juga nih,
>
> Case :
> Jika ingin menghitung jumlah warna pada conditional formating yg ada di
> sebuah kolom/baris gimana yah..
> Case ini pernah di bahas/ditanyakan oleh salah satu rekan be-excell,
> tapi setelah saya cari-cari knp ga ada filenya yah.. kiranya mohon tdk
> dipermasalahkan bila case ini diajukan kembali.
>
> Contoh case terlampir, mohon pencerahannya yah...
>
> trims.
> h4f1dz
>
>
>
>
>
Tue Sep 18, 2012 7:39 am (PDT) . Posted by:
"abdul hafidz" a.hafidz
wah luar biasa sekali ini formulanya pa aji, sangat superrr.....
terima kasih banyak pa aji atas pencerahannya yah,
________________________________
Dari: aji mumpung <pupung1986@gmail.com >
Kepada: belajar-excel@yahoogroups.com
Dikirim: Selasa, 18 September 2012 20:57
Judul: Re: [belajar-excel] Trs: Belajar Menghitung Warna lagi...
pak hafidz,
kalo menghitung cacah terhadap nilainya bisa menggunakan formula berikut
=SUMPRODUCT(((E2:E46)>=TIME(20,0,0))*((E2:E46)<=TIME(23,59,59)))
kalo mau menghitung berdasarkan warna, bisa diunduh di sini
https://www.box.com/shared/50ytb9339mh606fydets
file tersebut berisi fungsi buatan alm pak mabrur masyhud .aka. Siti Vi
wassalam,
-aji mumpung-
Pada 18 September 2012 20:41, abdul hafidz <a.hafidz@yahoo.co.id > menulis:
>
>
>
>Dear rekans be-excell....
>selamat malam...
>
>berhubung kerjaan lagi sedikit, klo diisi mendalami excell seru juga nih,
>
>Case :
>Jika ingin menghitung jumlah warna pada conditional formating yg ada di sebuah kolom/baris gimana yah..
>Case ini pernah di bahas/ditanyakan oleh salah satu rekan be-excell, tapi setelah saya cari-cari knp ga ada filenya yah.. kiranya mohon tdk dipermasalahkan bila case ini diajukan kembali.
>
>Contoh case terlampir, mohon pencerahannya yah...
>
>
>trims.
>h4f1dz
>
>
>
>
terima kasih banyak pa aji atas pencerahannya yah,
____________
Dari: aji mumpung <pupung1986@gmail.
Kepada: belajar-excel@
Dikirim: Selasa, 18 September 2012 20:57
Judul: Re: [belajar-excel] Trs: Belajar Menghitung Warna lagi...
pak hafidz,
kalo menghitung cacah terhadap nilainya bisa menggunakan formula berikut
=SUMPRODUCT(
kalo mau menghitung berdasarkan warna, bisa diunduh di sini
https://www.
file tersebut berisi fungsi buatan alm pak mabrur masyhud .aka. Siti Vi
wassalam,
-aji mumpung-
Pada 18 September 2012 20:41, abdul hafidz <a.hafidz@yahoo.
>
>
>
>Dear rekans be-excell...
>selamat malam...
>
>berhubung kerjaan lagi sedikit, klo diisi mendalami excell seru juga nih,
>
>Case :
>Jika ingin menghitung jumlah warna pada conditional formating yg ada di sebuah kolom/baris gimana yah..
>Case ini pernah di bahas/ditanyakan oleh salah satu rekan be-excell, tapi setelah saya cari-cari knp ga ada filenya yah.. kiranya mohon tdk dipermasalahkan bila case ini diajukan kembali.
>
>Contoh case terlampir, mohon pencerahannya yah...
>
>
>trims.
>h4f1dz
>
>
>
>
Tue Sep 18, 2012 8:18 am (PDT) . Posted by:
"Kid Mr." nmkid.family@ymail.com
Hitung jumlah cacah berdasar warna yang pewarnaannya dilakukan oleh
Conditional formatting (CF) lebih baik memang menghitung berdasar kriteria
yang dituangkan dalam CF secara langsung kedalam formula.
Untuk kasus ini, selain SumProduct dari mas Pupung, bisa juga dengan
CountIF, seperti :
=COUNTIF($E$2:$E$46,"<=1")-COUNTIF($E$2:$E$46,"<20:00")
btw,
sekedar wacana saja.
hitung jumlah cacah berdasar warna yang pewarnaannya dilakukan manual oleh
user, bisa dengan UDF milik mbak Siti yang sudah disampaikan oleh mas
Pupung.
untuk yang seperti kasus ini, yang pewarnaannya dilakukan oleh CF, maka udf
membaca warna interior tidak akan menghasilkan apa-apa (kalo salah
dikoreksi ya).
Untuk hitung cacah berdasar warna milik CF, memang membutuhkan UDF dan
penyusunan UDF nya juga tidak sederhana.
Prinsip kerjanya adalah dengan mengevaluasi *seluruh kondisi *yang bisa
digunakan dalam sebuah CF, yang bisa menghasilkan warna yang akan dihitung.
Padahal, kondisi dalam sebuah CF sangatlah banyak, misal :
1. untuk tipe CF adalah dengan berdasar Cell Value di cell tersebut, bisa
dikondisikan yang memenuhi operasi between, less than, dsb.
2. untuk tipe CF berdasar formula (use formula atau formula is), maka harus
evaluasi bunyi formula yang ada, tetapi diset untuk cell yang sedang
dikalkulasi
(artinya, ketika CF dipasang dengan formula untuk A2, maka kalkulasi di
cell A7 harus mengubah semua rujukan formula CF yang merujuk ke A2 menjadi
ke A7)
3. untuk tipe CF berdasar suatu text tertentu, bisa tergantung operasi teks
seperti contains, begin with, dsb
4. lihat sendiri saja saat akan membuat CF, bisa membuat kondisi berdasar
apa saja dan dalam batasan nilai apa saja...
so, jika akan menggunakan UDF pastilah UDF nya harus yang lengkap-kap atau
malah UDF nya yang sesuai kebutuhan saja.
Misal, UDF untuk menghitung cacah cell yang diberi CF bertipe cell value
saja dan yang operasinya adalah between saja.
Untuk contoh kasus seperti ini, bisa seperti file terlampir yang
menggunakan UDF bernama CountCFColor.
Syntax :
=CountCFColor( *range_data_yang_diberi_CF* , *
range_kriteria_warna_yang_diwarnai_manual * )
hasil : numerik bilangan bulat bertipe Long
contoh pemakaian :
>> misal suati range diberi CF bertipe cell value dengan batasan
menggunakan between, dan diberi warna Kuning.
>> formula pemakaian UDF CountCFColor :
=CountCFColor( * E2:E46* , *D49 *)
dimana, *D49 *sudah diberi warna kuning secara manual, dan range
*E2:E46 *adalah
range yang sudah diberi CF tersebut.
Harapannya,
1. Yang suka VBA, bersedia mengembangkan UDF tersebut menjadi UDF yang bisa
memenuhi seluruh kriteria yang ada dalam fitur CF (Conditional Formatting)
2. Yang suka menghitung berdasar warna, mbok yao menghitungnya berdasarkan
alasan kenapa cell tersebut diberi warna.
Wassalam,
Kid.
2012/9/18 aji mumpung <pupung1986@gmail.com >
> **
>
>
> pak hafidz,
>
> kalo menghitung cacah terhadap nilainya bisa menggunakan formula berikut
>
> =SUMPRODUCT(((E2:E46)>=TIME(20,0,0))*((E2:E46)<=TIME(23,59,59)))
>
> kalo mau menghitung berdasarkan warna, bisa diunduh di sini
>
> https://www.box.com/shared/50ytb9339mh606fydets
>
> file tersebut berisi fungsi buatan alm pak mabrur masyhud .aka. Siti Vi
>
> wassalam,
>
> -aji mumpung-
>
> Pada 18 September 2012 20:41, abdul hafidz <a.hafidz@yahoo.co.id > menulis:
>
> **
>>
>>
>>
>> Dear rekans be-excell....
>> selamat malam...
>>
>> berhubung kerjaan lagi sedikit, klo diisi mendalami excell seru juga nih,
>>
>> Case :
>> Jika ingin menghitung jumlah warna pada conditional formating yg ada di
>> sebuah kolom/baris gimana yah..
>> Case ini pernah di bahas/ditanyakan oleh salah satu rekan be-excell,
>> tapi setelah saya cari-cari knp ga ada filenya yah.. kiranya mohon tdk
>> dipermasalahkan bila case ini diajukan kembali.
>>
>> Contoh case terlampir, mohon pencerahannya yah...
>>
>> trims.
>> h4f1dz
>>
>>
>>
>>
>
>
>
Conditional formatting (CF) lebih baik memang menghitung berdasar kriteria
yang dituangkan dalam CF secara langsung kedalam formula.
Untuk kasus ini, selain SumProduct dari mas Pupung, bisa juga dengan
CountIF, seperti :
=COUNTIF($E$
btw,
sekedar wacana saja.
hitung jumlah cacah berdasar warna yang pewarnaannya dilakukan manual oleh
user, bisa dengan UDF milik mbak Siti yang sudah disampaikan oleh mas
Pupung.
untuk yang seperti kasus ini, yang pewarnaannya dilakukan oleh CF, maka udf
membaca warna interior tidak akan menghasilkan apa-apa (kalo salah
dikoreksi ya).
Untuk hitung cacah berdasar warna milik CF, memang membutuhkan UDF dan
penyusunan UDF nya juga tidak sederhana.
Prinsip kerjanya adalah dengan mengevaluasi *seluruh kondisi *yang bisa
digunakan dalam sebuah CF, yang bisa menghasilkan warna yang akan dihitung.
Padahal, kondisi dalam sebuah CF sangatlah banyak, misal :
1. untuk tipe CF adalah dengan berdasar Cell Value di cell tersebut, bisa
dikondisikan yang memenuhi operasi between, less than, dsb.
2. untuk tipe CF berdasar formula (use formula atau formula is), maka harus
evaluasi bunyi formula yang ada, tetapi diset untuk cell yang sedang
dikalkulasi
(artinya, ketika CF dipasang dengan formula untuk A2, maka kalkulasi di
cell A7 harus mengubah semua rujukan formula CF yang merujuk ke A2 menjadi
ke A7)
3. untuk tipe CF berdasar suatu text tertentu, bisa tergantung operasi teks
seperti contains, begin with, dsb
4. lihat sendiri saja saat akan membuat CF, bisa membuat kondisi berdasar
apa saja dan dalam batasan nilai apa saja...
so, jika akan menggunakan UDF pastilah UDF nya harus yang lengkap-kap atau
malah UDF nya yang sesuai kebutuhan saja.
Misal, UDF untuk menghitung cacah cell yang diberi CF bertipe cell value
saja dan yang operasinya adalah between saja.
Untuk contoh kasus seperti ini, bisa seperti file terlampir yang
menggunakan UDF bernama CountCFColor.
Syntax :
=CountCFColor( *range_data_
range_kriteria_
hasil : numerik bilangan bulat bertipe Long
contoh pemakaian :
>> misal suati range diberi CF bertipe cell value dengan batasan
menggunakan between, dan diberi warna Kuning.
>> formula pemakaian UDF CountCFColor :
=CountCFColor( * E2:E46* , *D49 *)
dimana, *D49 *sudah diberi warna kuning secara manual, dan range
*E2:E46 *adalah
range yang sudah diberi CF tersebut.
Harapannya,
1. Yang suka VBA, bersedia mengembangkan UDF tersebut menjadi UDF yang bisa
memenuhi seluruh kriteria yang ada dalam fitur CF (Conditional Formatting)
2. Yang suka menghitung berdasar warna, mbok yao menghitungnya berdasarkan
alasan kenapa cell tersebut diberi warna.
Wassalam,
Kid.
2012/9/18 aji mumpung <pupung1986@gmail.
> **
>
>
> pak hafidz,
>
> kalo menghitung cacah terhadap nilainya bisa menggunakan formula berikut
>
> =SUMPRODUCT(
>
> kalo mau menghitung berdasarkan warna, bisa diunduh di sini
>
> https://www.
>
> file tersebut berisi fungsi buatan alm pak mabrur masyhud .aka. Siti Vi
>
> wassalam,
>
> -aji mumpung-
>
> Pada 18 September 2012 20:41, abdul hafidz <a.hafidz@yahoo.
>
> **
>>
>>
>>
>> Dear rekans be-excell...
>> selamat malam...
>>
>> berhubung kerjaan lagi sedikit, klo diisi mendalami excell seru juga nih,
>>
>> Case :
>> Jika ingin menghitung jumlah warna pada conditional formating yg ada di
>> sebuah kolom/baris gimana yah..
>> Case ini pernah di bahas/ditanyakan oleh salah satu rekan be-excell,
>> tapi setelah saya cari-cari knp ga ada filenya yah.. kiranya mohon tdk
>> dipermasalahkan bila case ini diajukan kembali.
>>
>> Contoh case terlampir, mohon pencerahannya yah...
>>
>> trims.
>> h4f1dz
>>
>>
>>
>>
>
>
>
Tue Sep 18, 2012 8:49 am (PDT) . Posted by:
"Shenly Ruchman" shenly_excelmania
Waah mantap pak aji.... ternyata yang menjadi patokan dalam rumus adalah nilainya bukan warnanya hehehe, sampai terkecoh dengan warnanya saya
----- Pesan yang Diteruskan -----
Dari: abdul hafidz <a.hafidz@yahoo.co.id >
Kepada: "belajar-excel@yahoogroups.com " <belajar-excel@yahoogroups.com >
Dikirim: Selasa, 18 September 2012 21:39
Judul: Bls: [belajar-excel] Trs: Belajar Menghitung Warna lagi...
wah luar biasa sekali ini formulanya pa aji, sangat superrr.....
terima kasih banyak pa aji atas pencerahannya yah,
________________________________
Dari: aji mumpung <pupung1986@gmail.com >
Kepada: belajar-excel@yahoogroups.com
Dikirim: Selasa, 18 September 2012 20:57
Judul: Re: [belajar-excel] Trs: Belajar Menghitung Warna lagi...
pak hafidz,
kalo menghitung cacah terhadap nilainya bisa menggunakan formula berikut
=SUMPRODUCT(((E2:E46)>=TIME(20,0,0))*((E2:E46)<=TIME(23,59,59)))
kalo mau menghitung berdasarkan warna, bisa diunduh di sini
https://www.box.com/shared/50ytb9339mh606fydets
file tersebut berisi fungsi buatan alm pak mabrur masyhud .aka. Siti Vi
wassalam,
-aji mumpung-
Pada 18 September 2012 20:41, abdul hafidz <a.hafidz@yahoo.co.id > menulis:
>
>
>
>Dear rekans be-excell....
>selamat malam...
>
>berhubung kerjaan lagi sedikit, klo diisi mendalami excell seru juga nih,
>
>Case :
>Jika ingin menghitung jumlah warna pada conditional formating yg ada di sebuah kolom/baris gimana yah..
>Case ini pernah di bahas/ditanyakan oleh salah satu rekan be-excell, tapi setelah saya cari-cari knp ga ada filenya yah.. kiranya mohon tdk dipermasalahkan bila case ini diajukan kembali.
>
>Contoh case terlampir, mohon pencerahannya yah...
>
>
>trims.
>h4f1dz
>
>
>
>
----- Pesan yang Diteruskan -----
Dari: abdul hafidz <a.hafidz@yahoo.
Kepada: "belajar-excel@
Dikirim: Selasa, 18 September 2012 21:39
Judul: Bls: [belajar-excel] Trs: Belajar Menghitung Warna lagi...
wah luar biasa sekali ini formulanya pa aji, sangat superrr.....
terima kasih banyak pa aji atas pencerahannya yah,
____________
Dari: aji mumpung <pupung1986@gmail.
Kepada: belajar-excel@
Dikirim: Selasa, 18 September 2012 20:57
Judul: Re: [belajar-excel] Trs: Belajar Menghitung Warna lagi...
pak hafidz,
kalo menghitung cacah terhadap nilainya bisa menggunakan formula berikut
=SUMPRODUCT(
kalo mau menghitung berdasarkan warna, bisa diunduh di sini
https://www.
file tersebut berisi fungsi buatan alm pak mabrur masyhud .aka. Siti Vi
wassalam,
-aji mumpung-
Pada 18 September 2012 20:41, abdul hafidz <a.hafidz@yahoo.
>
>
>
>Dear rekans be-excell...
>selamat malam...
>
>berhubung kerjaan lagi sedikit, klo diisi mendalami excell seru juga nih,
>
>Case :
>Jika ingin menghitung jumlah warna pada conditional formating yg ada di sebuah kolom/baris gimana yah..
>Case ini pernah di bahas/ditanyakan oleh salah satu rekan be-excell, tapi setelah saya cari-cari knp ga ada filenya yah.. kiranya mohon tdk dipermasalahkan bila case ini diajukan kembali.
>
>Contoh case terlampir, mohon pencerahannya yah...
>
>
>trims.
>h4f1dz
>
>
>
>
Tue Sep 18, 2012 8:59 am (PDT) . Posted by:
"a.hafidz@yahoo.co.id" a.hafidz
Terima kasih Mr. Kid atas pencerahan n penjelasannya yg amat sangat super komplit.
Sent from my BlackBerry�
powered by Sinyal Kuat INDOSAT
-----Original Message-----
From: "Kid Mr." <mr.nmkid@gmail.com >
Sender: belajar-excel@yahoogroups.com
Date: Tue, 18 Sep 2012 22:17:53
To: <belajar-excel@yahoogroups.com >
Reply-To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] Trs: Belajar Menghitung Warna lagi...
Hitung jumlah cacah berdasar warna yang pewarnaannya dilakukan oleh
Conditional formatting (CF) lebih baik memang menghitung berdasar kriteria
yang dituangkan dalam CF secara langsung kedalam formula.
Untuk kasus ini, selain SumProduct dari mas Pupung, bisa juga dengan
CountIF, seperti :
=COUNTIF($E$2:$E$46,"<=1")-COUNTIF($E$2:$E$46,"<20:00")
btw,
sekedar wacana saja.
hitung jumlah cacah berdasar warna yang pewarnaannya dilakukan manual oleh
user, bisa dengan UDF milik mbak Siti yang sudah disampaikan oleh mas
Pupung.
untuk yang seperti kasus ini, yang pewarnaannya dilakukan oleh CF, maka udf
membaca warna interior tidak akan menghasilkan apa-apa (kalo salah
dikoreksi ya).
Untuk hitung cacah berdasar warna milik CF, memang membutuhkan UDF dan
penyusunan UDF nya juga tidak sederhana.
Prinsip kerjanya adalah dengan mengevaluasi *seluruh kondisi *yang bisa
digunakan dalam sebuah CF, yang bisa menghasilkan warna yang akan dihitung.
Padahal, kondisi dalam sebuah CF sangatlah banyak, misal :
1. untuk tipe CF adalah dengan berdasar Cell Value di cell tersebut, bisa
dikondisikan yang memenuhi operasi between, less than, dsb.
2. untuk tipe CF berdasar formula (use formula atau formula is), maka harus
evaluasi bunyi formula yang ada, tetapi diset untuk cell yang sedang
dikalkulasi
(artinya, ketika CF dipasang dengan formula untuk A2, maka kalkulasi di
cell A7 harus mengubah semua rujukan formula CF yang merujuk ke A2 menjadi
ke A7)
3. untuk tipe CF berdasar suatu text tertentu, bisa tergantung operasi teks
seperti contains, begin with, dsb
4. lihat sendiri saja saat akan membuat CF, bisa membuat kondisi berdasar
apa saja dan dalam batasan nilai apa saja...
so, jika akan menggunakan UDF pastilah UDF nya harus yang lengkap-kap atau
malah UDF nya yang sesuai kebutuhan saja.
Misal, UDF untuk menghitung cacah cell yang diberi CF bertipe cell value
saja dan yang operasinya adalah between saja.
Untuk contoh kasus seperti ini, bisa seperti file terlampir yang
menggunakan UDF bernama CountCFColor.
Syntax :
=CountCFColor( *range_data_yang_diberi_CF* , *
range_kriteria_warna_yang_diwarnai_manual * )
hasil : numerik bilangan bulat bertipe Long
contoh pemakaian :
>> misal suati range diberi CF bertipe cell value dengan batasan
menggunakan between, dan diberi warna Kuning.
>> formula pemakaian UDF CountCFColor :
=CountCFColor( * E2:E46* , *D49 *)
dimana, *D49 *sudah diberi warna kuning secara manual, dan range
*E2:E46 *adalah
range yang sudah diberi CF tersebut.
Harapannya,
1. Yang suka VBA, bersedia mengembangkan UDF tersebut menjadi UDF yang bisa
memenuhi seluruh kriteria yang ada dalam fitur CF (Conditional Formatting)
2. Yang suka menghitung berdasar warna, mbok yao menghitungnya berdasarkan
alasan kenapa cell tersebut diberi warna.
Wassalam,
Kid.
2012/9/18 aji mumpung <pupung1986@gmail.com >
> **
>
>
> pak hafidz,
>
> kalo menghitung cacah terhadap nilainya bisa menggunakan formula berikut
>
> =SUMPRODUCT(((E2:E46)>=TIME(20,0,0))*((E2:E46)<=TIME(23,59,59)))
>
> kalo mau menghitung berdasarkan warna, bisa diunduh di sini
>
> https://www.box.com/shared/50ytb9339mh606fydets
>
> file tersebut berisi fungsi buatan alm pak mabrur masyhud .aka. Siti Vi
>
> wassalam,
>
> -aji mumpung-
>
> Pada 18 September 2012 20:41, abdul hafidz <a.hafidz@yahoo.co.id > menulis:
>
> **
>>
>>
>>
>> Dear rekans be-excell....
>> selamat malam...
>>
>> berhubung kerjaan lagi sedikit, klo diisi mendalami excell seru juga nih,
>>
>> Case :
>> Jika ingin menghitung jumlah warna pada conditional formating yg ada di
>> sebuah kolom/baris gimana yah..
>> Case ini pernah di bahas/ditanyakan oleh salah satu rekan be-excell,
>> tapi setelah saya cari-cari knp ga ada filenya yah.. kiranya mohon tdk
>> dipermasalahkan bila case ini diajukan kembali.
>>
>> Contoh case terlampir, mohon pencerahannya yah...
>>
>> trims.
>> h4f1dz
>>
>>
>>
>>
>
>
>
Sent from my BlackBerry�
powered by Sinyal Kuat INDOSAT
-----Original Message-----
From: "Kid Mr." <mr.nmkid@gmail.
Sender: belajar-excel@
Date: Tue, 18 Sep 2012 22:17:53
To: <belajar-excel@
Reply-To: belajar-excel@
Subject: Re: [belajar-excel] Trs: Belajar Menghitung Warna lagi...
Hitung jumlah cacah berdasar warna yang pewarnaannya dilakukan oleh
Conditional formatting (CF) lebih baik memang menghitung berdasar kriteria
yang dituangkan dalam CF secara langsung kedalam formula.
Untuk kasus ini, selain SumProduct dari mas Pupung, bisa juga dengan
CountIF, seperti :
=COUNTIF($E$
btw,
sekedar wacana saja.
hitung jumlah cacah berdasar warna yang pewarnaannya dilakukan manual oleh
user, bisa dengan UDF milik mbak Siti yang sudah disampaikan oleh mas
Pupung.
untuk yang seperti kasus ini, yang pewarnaannya dilakukan oleh CF, maka udf
membaca warna interior tidak akan menghasilkan apa-apa (kalo salah
dikoreksi ya).
Untuk hitung cacah berdasar warna milik CF, memang membutuhkan UDF dan
penyusunan UDF nya juga tidak sederhana.
Prinsip kerjanya adalah dengan mengevaluasi *seluruh kondisi *yang bisa
digunakan dalam sebuah CF, yang bisa menghasilkan warna yang akan dihitung.
Padahal, kondisi dalam sebuah CF sangatlah banyak, misal :
1. untuk tipe CF adalah dengan berdasar Cell Value di cell tersebut, bisa
dikondisikan yang memenuhi operasi between, less than, dsb.
2. untuk tipe CF berdasar formula (use formula atau formula is), maka harus
evaluasi bunyi formula yang ada, tetapi diset untuk cell yang sedang
dikalkulasi
(artinya, ketika CF dipasang dengan formula untuk A2, maka kalkulasi di
cell A7 harus mengubah semua rujukan formula CF yang merujuk ke A2 menjadi
ke A7)
3. untuk tipe CF berdasar suatu text tertentu, bisa tergantung operasi teks
seperti contains, begin with, dsb
4. lihat sendiri saja saat akan membuat CF, bisa membuat kondisi berdasar
apa saja dan dalam batasan nilai apa saja...
so, jika akan menggunakan UDF pastilah UDF nya harus yang lengkap-kap atau
malah UDF nya yang sesuai kebutuhan saja.
Misal, UDF untuk menghitung cacah cell yang diberi CF bertipe cell value
saja dan yang operasinya adalah between saja.
Untuk contoh kasus seperti ini, bisa seperti file terlampir yang
menggunakan UDF bernama CountCFColor.
Syntax :
=CountCFColor( *range_data_
range_kriteria_
hasil : numerik bilangan bulat bertipe Long
contoh pemakaian :
>> misal suati range diberi CF bertipe cell value dengan batasan
menggunakan between, dan diberi warna Kuning.
>> formula pemakaian UDF CountCFColor :
=CountCFColor( * E2:E46* , *D49 *)
dimana, *D49 *sudah diberi warna kuning secara manual, dan range
*E2:E46 *adalah
range yang sudah diberi CF tersebut.
Harapannya,
1. Yang suka VBA, bersedia mengembangkan UDF tersebut menjadi UDF yang bisa
memenuhi seluruh kriteria yang ada dalam fitur CF (Conditional Formatting)
2. Yang suka menghitung berdasar warna, mbok yao menghitungnya berdasarkan
alasan kenapa cell tersebut diberi warna.
Wassalam,
Kid.
2012/9/18 aji mumpung <pupung1986@gmail.
> **
>
>
> pak hafidz,
>
> kalo menghitung cacah terhadap nilainya bisa menggunakan formula berikut
>
> =SUMPRODUCT(
>
> kalo mau menghitung berdasarkan warna, bisa diunduh di sini
>
> https://www.
>
> file tersebut berisi fungsi buatan alm pak mabrur masyhud .aka. Siti Vi
>
> wassalam,
>
> -aji mumpung-
>
> Pada 18 September 2012 20:41, abdul hafidz <a.hafidz@yahoo.
>
> **
>>
>>
>>
>> Dear rekans be-excell...
>> selamat malam...
>>
>> berhubung kerjaan lagi sedikit, klo diisi mendalami excell seru juga nih,
>>
>> Case :
>> Jika ingin menghitung jumlah warna pada conditional formating yg ada di
>> sebuah kolom/baris gimana yah..
>> Case ini pernah di bahas/ditanyakan oleh salah satu rekan be-excell,
>> tapi setelah saya cari-cari knp ga ada filenya yah.. kiranya mohon tdk
>> dipermasalahkan bila case ini diajukan kembali.
>>
>> Contoh case terlampir, mohon pencerahannya yah...
>>
>> trims.
>> h4f1dz
>>
>>
>>
>>
>
>
>
Tue Sep 18, 2012 6:52 am (PDT) . Posted by:
"Kid Mr." nmkid.family@ymail.com
Pak Dedy,
Mari kita berimajinasi. Tapi sebaiknya langsung dibuat di sebuah Excel
Worksheet.
1. Misal kolom A, di A2 berisi sebuah data, seperti angka 1
2. kolom B di B2 sampai B11 berisi data semuanya, misal angka dari 100
sampai 1000
3. mungkin kolom C juga ada.
Nah itu adalah data yang akan diproses.
*Cara 1 : *
>> untuk kondisi data sebagai berikut :
- tidak ada cell blank dalam tabel kecuali kolom A saja.
- yang terisi pasti hanya record pertama kolom A (hanya A2 saja)
>> coba lakukan :
- klik cell A2, tekan CTRL C
- kemudian tekan CTRL G dan kllik tombol Special yang ada dalam dialog yang
muncul
- pilih Current Region dan tekan OK
- kemudian tekan CTRL G lagi dan klik tombol special lagi
- tapi, pilih opri Blanks dan tekan OK
- akhirnya, tekan CTRL V
*Cara 2 : *
>> untuk kondisi data sebagai berikut :
- tidak ada blank dalam tabel kecuali kolom A saja.
- yang terisi bisa jadi tidak hanya cell A2. Mungkin A5 juga ada datanya.
A2 di copy sampai A4 dan A5 di copy sampai A11.
>> coba lakukan :
- klik cell blank pertama di kolom A (misal A3)
- isi dengan formula (ingat, misal di A3 ya, jadi sesuaikan formulanya) :
=A2
[ketik = lalu tekan panah atas 1 kali, diikuti menekan Enter]
- klik cell berformula tadi (misal A3)
- tekan CTRL C
- kemudian, tekan CTRL G dan klik tombol Special, pilih Current Region dan
tekan OK
- lakukan lagi, tekan CTRL G lagi dan kllik tombol Special juga, pilih
Blanks dan tekan OK
- tekan CTRL V
- kemudian, klik cell A2 diikuti menekan tombol CTRL dan SHIFT terus
menerus (jangan dilepaskan), lalu tekan panah ke bawah sebanyak 1 kali saja.
- lepas semua tombol keyboard (sudah terblok semua)
- tekan CTRL C
- klik kanan mouse dan pilih Paste Special
- pilih opsi Values dan tekan OK
*Cara 3 : *
>> untuk kondisi data sebagai berikut :
- cell blank bisa dikolom mana saja (tidak hanya di kolom A saja) [misal
pada data dengan lebih dari 2 kolom.
- ada sebuah kolom selalu terisi data (mulai baris 2 sampai baris 11 di
contoh data ini) -> misal kolom B
>> coba lakukan :
- klik cell blank pertama, misal A3
- tulis formula :
=A2
[ketik = lalu tekan panah atas 1 kali, diikuti menekan Enter]
- klik cell A3 dan tekan CTRL C
- klik cell B2 dan tekan tombol CTRL (jangan dilepaskan sedikitpun),
kemudian tekan panah kebawah (sampai deh di baris terakhir data)
- lepaskan jari dari keyboard (boleh sambil tepuk tangan)
- klik kolom A pada baris terakhir itu
- tekan tombol CTRL dan SHIFT terus menerus (jangan dilepaskan), kemudian
tekan panah ke atas 1 kali saja
- boleh tepuk tangan lagi atau kegiatan lain, yang penting keyboard gak
tertekan jari lagi
- sekarang, tekan CTRL G dan klik tombol Special, pilih Blanks dan tekan
OK
- kemudian tekan CTRL V
- klik cell A2
- tekan CTRL terus menerus diikuti tekan panah kebawah 1 kali dan lepaskan
jari dari keyboard
- tekan CTRL C
- klik kanan mouse dan pilih Paste Special
- pilih opsi Values dan tekan OK
Seluruh cara di atas, bisa Anda susun sendiri prosedur otomasinya melalui
rekam Macro (record Macro).
Cara rekam macro sudah dibuatkan dongengnya olah mas Pupung dan bisa di
download di :
1. folder files milis (butuh YahooID)
http://tech.groups.yahoo.com/group/belajar-excel/files/
2. folder backup file kiriman member di :
http://www.4shared.com/folder/vlA08EdU/Dari_Member_Untuk_Member.html
Jika ingin coba cara try n error, ikuti langkah berikut :
1. ke menu developer (xl2007 ke atas) atau di xl2003 melalui menu Tools ->
Macro
2. tekan atau pilih Record Macro
3. isi nama macronya (tanpa spasi atau tanda baca selain underscore '_' )
[misal : TryCara1]
4. tekan OK
5. lakukan Cara 1 di atas sana
6. setelah selesai semua step dalam Cara 1, kembali ke menu Macro tadi dan
tekan atau pilih Stop recording
7. siapkan lagi contoh datanya seperti yang ada di atas sana
8. jalankan Macro dengan cara tekan ALT F8 lalu pilih nama Macro yang
akan dijalankan (misal TryCara1) dan tekan Run
9. moga-moga try n error nya berhasil ya
10. kalau berhasil, save as file dengan ekstensi salah satu dari daftar
berikut :
.xls, .xlsm, .xlsb
11. kalau tidak berhasil, try n error lagi mulai langkah 1 (boleh sambil
sebel kok, tapi jangan lama-lama, karena yang penting tetap semangat
mencoba)
Wassalam,
Kid.
2012/9/18 abdul dedy <abduldedysubhansyah@yahoo.co.id >
> **
>
>
> Dear Mr. Kid
>
> saya udah ada sedikit inspirasi dari reply anda, dan udah saya lakukan,
> terimakasih atas ide-nya, ada satu hal lagi yang saya ingin tau
>
> saya ada satu kolom blank kecuali di row pertama, dimana dikolom
> sebelahnya terdapat data, saya ingin mencopy data di baris pertama dan
> mempastenya sampai baris terakhir sesuai dengan kolom di sebelahnya, karena
> saya pilih control panah bawah, malah kepilih ampe baris bener-bener paling
> akhir,
>
> misalnya data terakhir di row 10, saya ingin paste hanya sampai di row 10
> itu, di kolom yang hanya ada data di row pertama tadi, apa ada VBAnya?
>
>
>
Mari kita berimajinasi. Tapi sebaiknya langsung dibuat di sebuah Excel
Worksheet.
1. Misal kolom A, di A2 berisi sebuah data, seperti angka 1
2. kolom B di B2 sampai B11 berisi data semuanya, misal angka dari 100
sampai 1000
3. mungkin kolom C juga ada.
Nah itu adalah data yang akan diproses.
*Cara 1 : *
>> untuk kondisi data sebagai berikut :
- tidak ada cell blank dalam tabel kecuali kolom A saja.
- yang terisi pasti hanya record pertama kolom A (hanya A2 saja)
>> coba lakukan :
- klik cell A2, tekan CTRL C
- kemudian tekan CTRL G dan kllik tombol Special yang ada dalam dialog yang
muncul
- pilih Current Region dan tekan OK
- kemudian tekan CTRL G lagi dan klik tombol special lagi
- tapi, pilih opri Blanks dan tekan OK
- akhirnya, tekan CTRL V
*Cara 2 : *
>> untuk kondisi data sebagai berikut :
- tidak ada blank dalam tabel kecuali kolom A saja.
- yang terisi bisa jadi tidak hanya cell A2. Mungkin A5 juga ada datanya.
A2 di copy sampai A4 dan A5 di copy sampai A11.
>> coba lakukan :
- klik cell blank pertama di kolom A (misal A3)
- isi dengan formula (ingat, misal di A3 ya, jadi sesuaikan formulanya) :
=A2
[ketik = lalu tekan panah atas 1 kali, diikuti menekan Enter]
- klik cell berformula tadi (misal A3)
- tekan CTRL C
- kemudian, tekan CTRL G dan klik tombol Special, pilih Current Region dan
tekan OK
- lakukan lagi, tekan CTRL G lagi dan kllik tombol Special juga, pilih
Blanks dan tekan OK
- tekan CTRL V
- kemudian, klik cell A2 diikuti menekan tombol CTRL dan SHIFT terus
menerus (jangan dilepaskan), lalu tekan panah ke bawah sebanyak 1 kali saja.
- lepas semua tombol keyboard (sudah terblok semua)
- tekan CTRL C
- klik kanan mouse dan pilih Paste Special
- pilih opsi Values dan tekan OK
*Cara 3 : *
>> untuk kondisi data sebagai berikut :
- cell blank bisa dikolom mana saja (tidak hanya di kolom A saja) [misal
pada data dengan lebih dari 2 kolom.
- ada sebuah kolom selalu terisi data (mulai baris 2 sampai baris 11 di
contoh data ini) -> misal kolom B
>> coba lakukan :
- klik cell blank pertama, misal A3
- tulis formula :
=A2
[ketik = lalu tekan panah atas 1 kali, diikuti menekan Enter]
- klik cell A3 dan tekan CTRL C
- klik cell B2 dan tekan tombol CTRL (jangan dilepaskan sedikitpun),
kemudian tekan panah kebawah (sampai deh di baris terakhir data)
- lepaskan jari dari keyboard (boleh sambil tepuk tangan)
- klik kolom A pada baris terakhir itu
- tekan tombol CTRL dan SHIFT terus menerus (jangan dilepaskan), kemudian
tekan panah ke atas 1 kali saja
- boleh tepuk tangan lagi atau kegiatan lain, yang penting keyboard gak
tertekan jari lagi
- sekarang, tekan CTRL G dan klik tombol Special, pilih Blanks dan tekan
OK
- kemudian tekan CTRL V
- klik cell A2
- tekan CTRL terus menerus diikuti tekan panah kebawah 1 kali dan lepaskan
jari dari keyboard
- tekan CTRL C
- klik kanan mouse dan pilih Paste Special
- pilih opsi Values dan tekan OK
Seluruh cara di atas, bisa Anda susun sendiri prosedur otomasinya melalui
rekam Macro (record Macro).
Cara rekam macro sudah dibuatkan dongengnya olah mas Pupung dan bisa di
download di :
1. folder files milis (butuh YahooID)
http://tech.
2. folder backup file kiriman member di :
http://www.4shared.
Jika ingin coba cara try n error, ikuti langkah berikut :
1. ke menu developer (xl2007 ke atas) atau di xl2003 melalui menu Tools ->
Macro
2. tekan atau pilih Record Macro
3. isi nama macronya (tanpa spasi atau tanda baca selain underscore '_' )
[misal : TryCara1]
4. tekan OK
5. lakukan Cara 1 di atas sana
6. setelah selesai semua step dalam Cara 1, kembali ke menu Macro tadi dan
tekan atau pilih Stop recording
7. siapkan lagi contoh datanya seperti yang ada di atas sana
8. jalankan Macro dengan cara tekan ALT F8 lalu pilih nama Macro yang
akan dijalankan (misal TryCara1) dan tekan Run
9. moga-moga try n error nya berhasil ya
10. kalau berhasil, save as file dengan ekstensi salah satu dari daftar
berikut :
.xls, .xlsm, .xlsb
11. kalau tidak berhasil, try n error lagi mulai langkah 1 (boleh sambil
sebel kok, tapi jangan lama-lama, karena yang penting tetap semangat
mencoba)
Wassalam,
Kid.
2012/9/18 abdul dedy <abduldedysubhansyah
> **
>
>
> Dear Mr. Kid
>
> saya udah ada sedikit inspirasi dari reply anda, dan udah saya lakukan,
> terimakasih atas ide-nya, ada satu hal lagi yang saya ingin tau
>
> saya ada satu kolom blank kecuali di row pertama, dimana dikolom
> sebelahnya terdapat data, saya ingin mencopy data di baris pertama dan
> mempastenya sampai baris terakhir sesuai dengan kolom di sebelahnya, karena
> saya pilih control panah bawah, malah kepilih ampe baris bener-bener paling
> akhir,
>
> misalnya data terakhir di row 10, saya ingin paste hanya sampai di row 10
> itu, di kolom yang hanya ada data di row pertama tadi, apa ada VBAnya?
>
>
>
Tue Sep 18, 2012 8:21 am (PDT) . Posted by:
"Shenly Ruchman" shenly_excelmania
Terima kasih mas Aji sangat bermafaat sekali bagi saya yg pemula, dan sangat mudah untuh di pahami
----- Pesan yang Diteruskan -----
Dari: aji mumpung <pupung1986@gmail.com >
Kepada: belajar-excel@yahoogroups.com
Dikirim: Senin, 17 September 2012 22:38
Judul: [belajar-excel] Rekam Macro
Seorang member millis ini menanyakan bagaimana caranya mekukan copy, paste, dan transpose menggunakan VBA. Kelihatannya ini adalah hal yang mudah tetapi tetap saja sulit bagi yang masih awam dengan VBA.
>>
>>
>>Pada kesempatan ini saya akan coba menjelaskan langkah-langkah membuat macro dengan cara melakukan perekaman macro, kenapa harus dengan merekam? karena menurut saya cara ini adalah cara yang paling mudah manakala kita berniat serius untuk mempelajari macro tetapi tidak ada dukungan yang cukup, dukungan ini bisa berupa buku, situs dan sejenisnya, atau bahkan ketiadaan seorang guru yang mengajari kita.
>>
>>
>>Cukup sudah basa-basinya.. kita mulai saja langkah yang panjang ini.. Karena tulisan ini saya tujukan untuk para pemula, jadi ada kemungkinan para master dan sesepuh akan merasa bosan membaca tulisan ini..
>>
>>
>>Anggap saja ada penilaian tentang cara cara para master memberikan penjelasan atas pertanyaan-pertanyaan dari member millis ini, dan anda bertugas untuk memasukkan nilai tersebut ke dalam sheet "Input"
>>
>>
>>
>>
>>
>>
>>Setelah memasukkan data di sheet "Input" lalu anda diminta untuk memindahkannya ke sheet "Hasil" seperti ini:
>>
>>
>>
>>
>>Tidak ada maksud buruk dari saya dengan memasukkan nick name Alm pak Mabrur Masyhud dalam contoh ini, dan hal ini masih bisa diperdebatkan.. tetapi bukan itu inti dari pembelajaran ini..
>>
>>
>>Setelah ratusan bahkan ribuan kali memasukkan data di Sheet Input kemudian memindahkannya ke sheet Hasil, tentu anda akan berfikir.. "seandainya saja ada tombol ajaib yang akan melakukan semua hal tersebut'
>>
>>
>>Baiklah.. kenapa tidak kita buat saja tombol ajaib tersebut dengan cara melakukan perekaman macro..
>>
>>
>>Pada Excel 2003 untuk merekam macro bisa melalui Tools >> Option >> Record new macro, sedangkan pada versi 2007 ke atas anda dapat merekam dengan meng-klik tombol Record Macro setelah terlebih dahulu mengaktifkan ribbon Developer
>>
>>
>>
>>
>>
>>
>>setelah itu anda dapat melengkapi form seperti di bawah ini
>>
>>
>>
>>
>>
>>
>>Nomer 1 adalah nama macro yang anda buat
>>Nomer 2 adalah sortcut key atau tombol yang akan menjalankan program macro
>>Nomor 3 adalah lokasi macro disimpan
>>Anda juga dapat menuliskan keterangan tentang macro yang anda buat di kotak Description
>>
>>
>>Supaya seragam kita isi saja sebagai berikut
>>1. nama macro = CopasSpesial (nama macro tidak boleh mengandung spasi)
>>2. sortcut key = CTRL Shift A
>>3. lokasi simpan = This Workbook
>>setelah itu tekan tombol OK
>>
>>
>>pertama kita copy nama, untuk itu klik cell c4 di sheet Input, setelah itu klik kanan dan pilih copy
>>
>>
>>
>>
>>
>>
>>Setelah itu pindah ke sheet Hasil untuk mempaste nama, setelah berada di sheet Hasil, klik Nama atau cell b4 seperti gambar berikut:
>>
>>
>>
>>
>>
>>
>>dari sini ada beberapa langkah yang kita lakukan, yaitu:
>>1. Pergi ke cell paling bawah yang berisi data
>>2. Setelah itu turun 1 baris ke cell yang kosong
>>
>>
>>Alih-alih ingin melakukan hal yang benar, jika anda langsung pergi ke cell b8 tanpa mengubah dari alamat absolut menjadi alamat relatif, maka hasil perekaman macro tersebut akan selalu menuju ke cell b8. Untuk itulah kita mesti mengubah dahulu alamat absolut menjadi alamat relatif.
>>
>>
>>Pada versi 2007 ke atas anda dapat melakukannya dengan meng-klik tombol Use Relative References
>>
>>
>>
>>
>>
>>
>>Sekarang anda dapat mem-paste nama yang sudah anda copy tadi dengan cara..
>>1. Dari header Nama, pergi ke cell paling bawah yang berisi data dengan cara menekan tombol CTRL + panah bawah
>>2. Setelah itu takan tombol panah bawah 1 kali
>>3. Paste di cell tersebut dengan menekan tombol CTRL + V
>>
>>
>>Untuk pergi ke cell yang beisi data:
>>ke arah bawah ==> CTRL + panah bawah
>>ke arah kanan ==> CTRL + panah kanan
>>
>>
>>Jika anda mengulang dengan sabar dan benar langkah-langkah di atas, maka seharusnya hasilnya akan seperti gambar berikut:
>>
>>
>>
>>
>>
>>
>>Hasil copas dengan data yang benar tetapi dengan format yang salah.
>>
>>
>>Setelah itu anda dapat memperbaiki format dengan cara melakukan copas format dari data pertama sehingga hasil akhirnya seperti gambar di bawah ini:
>>
>>
>>
>>
>>
>>
>>Setelah selesai maka anda dapat segera menekan tombol Stop Recording untuk menghentikan proses perekaman macro.
>>
>>
>>Anda dapat menemukan macro hasil perekaman tadi di dalam Modul1
>>
>>
>>
>>
>>
>>
>>
>>
>>Seharusnya hasil rekam macro saya dengan anda tidak terlalu jauh berbeda, berikut adalah hasil rekam macro saya
>>
>>
>>Option Explicit
>>
>>
>>Sub CopasSpesial()
>>'
>>' CopasSpesial Macro
>>'
>>' Keyboard Shortcut: Ctrl+Shift+A
>>'
>> Range("C4").Select ' memilih cell c4
>> Selection.Copy ' mengcopy cell c4
>> Sheets("Hasil").Select ' pergi ke sheetsHasil
>> Range("B4").Select ' memilih header Nama
>> Selection.End(xlDown).Select ' pergi ke baris paling bawah yang berisi data
>> ActiveCell.Offset(1, 0).Range("A1").Select ' turun 1 baris ke cell yang kosong
>> ActiveSheet.Paste ' mem-paste nama dari sheet Input
>> Sheets("Input").Select ' kembali ke sheet Input
>> Range("C6").Select ' memilih cell c6 yang berisi nilai untuk formula
>> Application.CutCopyMode = False ' menghapus clipboard yang berisi copy data dari cell c4
>> Selection.Copy ' meng-copy cell c6
>> Sheets("Hasil").Select ' pergi ke sheet Hasil
>> Range("B4").Select ' memilih header nama
>> Selection.End(xlDown).Select ' pergi ke baris paling bawah yang berisi data
>> ActiveCell.Offset(0, 1).Range("A1").Select ' pergi 1 kolom ke sebelah kanan
>> ActiveSheet.Paste ' mempaste nilai formula dari cell input
>> Sheets("Input").Select ' pergi ke sheet input
>> Range("C8").Select ' memilih cell c8
>> Application.CutCopyMode = False ' menghapus clipboard
>> Selection.Copy ' mengcopy cell c8
>> Sheets("Hasil").Select ' pergi ke sheet Hasil
>> Range("B4").Select ' pergi ke header nama
>> Selection.End(xlDown).Select ' pergi ke baris paling bawah yang berisi data
>> Selection.End(xlToRight).Select ' pergi ke cell paling kanan yang berisi data
>> ActiveCell.Offset(0, 1).Range("A1").Select ' pergi 1 kolom ke sebelah kanan
>> ActiveSheet.Paste ' mem-paste nilai macro
>> Application.CutCopyMode = False ' menghapus clipboard
>> Range("B4").Select ' memilih header nama
>> ActiveCell.Offset(1, 0).Range("A1").Select ' turun 1 baris
>> Range(Selection, Selection.End(xlToRight)).Select ' memblok cell b5 sampai d5
>> Selection.Copy ' mengcopy cell b5 sampai d5
>> Selection.End(xlDown).Select ' pergi ke baris paling bawah yang berisi data
>> Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
>> SkipBlanks:=False, Transpose:=False ' mempaste format
>> Application.CutCopyMode = False ' menghapus clibboard
>>End Sub
>>
>>
>>Mari kita ulang, apa saja yang sudah kita pelajari?
>>
>>
>>1. Cara meng-kopi dan mempaste suatu cell
>>2. Bergerak di dalam workseet, yaitu:
>> a. ke data yang paling akhir di bawah .end(xlDown)
>> b. ke data paling akhir di sebelah kanan .end(xlRight)
>> untuk bergerak ke data akhir di sebelah atas dan kiri silakan gunakan cara yang serupa
>> c. turun 1 baris ke bawah .OffSet(1, 0)
>> d. pindah 1 baris ke sebelah kanan .OffSet (0, 1)
>> untuk bergerak ke atas dan ke bawah silakan gunakan cara yang serupa
>> .Offset(baris, kolom)
>> baris jika bernilai positif berarti turun ke bawah, jika negatif berarti bergerak ke atas
>> kolom jika bernilai positif berarti ke arah kanan, jika negatif berarti ke arah kiri.
>>
>>
>>Walaupun teknik rekam saya rasakan sangat membantu saya dalam mempelajari macro, tetapi teknik ini juga memiliki kelemahan yaitu tidak dapat melakukan perulangan..
>>
>>
>>Saya rasa cukup sampai di sini cerita saya yang panjang lebar.. tentu jika saya teruskan akan membuat bosan orang yang membacanya.. Contoh file bisa dilihat di lampiran.
>>
>>
>>Semoga bermanfaat.
>>
>>
>>wassalam,
>>
>>
>>-aji mumpung-
# jika dirasa bermanfaat, dipersilakan untuk menyebarkan tanpa persetujuan dahulu dari saya
maaf mr kid, saya tidak lampirkan readme-nya, karena setelah saya kompres dengan winrar ukurannya masih 267KB
----- Pesan yang Diteruskan -----
Dari: aji mumpung <pupung1986@gmail.
Kepada: belajar-excel@
Dikirim: Senin, 17 September 2012 22:38
Judul: [belajar-excel] Rekam Macro
Seorang member millis ini menanyakan bagaimana caranya mekukan copy, paste, dan transpose menggunakan VBA. Kelihatannya ini adalah hal yang mudah tetapi tetap saja sulit bagi yang masih awam dengan VBA.
>>
>>
>>Pada kesempatan ini saya akan coba menjelaskan langkah-langkah membuat macro dengan cara melakukan perekaman macro, kenapa harus dengan merekam? karena menurut saya cara ini adalah cara yang paling mudah manakala kita berniat serius untuk mempelajari macro tetapi tidak ada dukungan yang cukup, dukungan ini bisa berupa buku, situs dan sejenisnya, atau bahkan ketiadaan seorang guru yang mengajari kita.
>>
>>
>>Cukup sudah basa-basinya.
>>
>>
>>Anggap saja ada penilaian tentang cara cara para master memberikan penjelasan atas pertanyaan-pertanya
>>
>>
>>
>>
>>
>>
>>Setelah memasukkan data di sheet "Input" lalu anda diminta untuk memindahkannya ke sheet "Hasil" seperti ini:
>>
>>
>>
>>
>>Tidak ada maksud buruk dari saya dengan memasukkan nick name Alm pak Mabrur Masyhud dalam contoh ini, dan hal ini masih bisa diperdebatkan.
>>
>>
>>Setelah ratusan bahkan ribuan kali memasukkan data di Sheet Input kemudian memindahkannya ke sheet Hasil, tentu anda akan berfikir.. "seandainya saja ada tombol ajaib yang akan melakukan semua hal tersebut'
>>
>>
>>Baiklah.. kenapa tidak kita buat saja tombol ajaib tersebut dengan cara melakukan perekaman macro..
>>
>>
>>Pada Excel 2003 untuk merekam macro bisa melalui Tools >> Option >> Record new macro, sedangkan pada versi 2007 ke atas anda dapat merekam dengan meng-klik tombol Record Macro setelah terlebih dahulu mengaktifkan ribbon Developer
>>
>>
>>
>>
>>
>>
>>setelah itu anda dapat melengkapi form seperti di bawah ini
>>
>>
>>
>>
>>
>>
>>Nomer 1 adalah nama macro yang anda buat
>>Nomer 2 adalah sortcut key atau tombol yang akan menjalankan program macro
>>Nomor 3 adalah lokasi macro disimpan
>>Anda juga dapat menuliskan keterangan tentang macro yang anda buat di kotak Description
>>
>>
>>Supaya seragam kita isi saja sebagai berikut
>>1. nama macro = CopasSpesial (nama macro tidak boleh mengandung spasi)
>>2. sortcut key = CTRL Shift A
>>3. lokasi simpan = This Workbook
>>setelah itu tekan tombol OK
>>
>>
>>pertama kita copy nama, untuk itu klik cell c4 di sheet Input, setelah itu klik kanan dan pilih copy
>>
>>
>>
>>
>>
>>
>>Setelah itu pindah ke sheet Hasil untuk mempaste nama, setelah berada di sheet Hasil, klik Nama atau cell b4 seperti gambar berikut:
>>
>>
>>
>>
>>
>>
>>dari sini ada beberapa langkah yang kita lakukan, yaitu:
>>1. Pergi ke cell paling bawah yang berisi data
>>2. Setelah itu turun 1 baris ke cell yang kosong
>>
>>
>>Alih-alih ingin melakukan hal yang benar, jika anda langsung pergi ke cell b8 tanpa mengubah dari alamat absolut menjadi alamat relatif, maka hasil perekaman macro tersebut akan selalu menuju ke cell b8. Untuk itulah kita mesti mengubah dahulu alamat absolut menjadi alamat relatif.
>>
>>
>>Pada versi 2007 ke atas anda dapat melakukannya dengan meng-klik tombol Use Relative References
>>
>>
>>
>>
>>
>>
>>Sekarang anda dapat mem-paste nama yang sudah anda copy tadi dengan cara..
>>1. Dari header Nama, pergi ke cell paling bawah yang berisi data dengan cara menekan tombol CTRL + panah bawah
>>2. Setelah itu takan tombol panah bawah 1 kali
>>3. Paste di cell tersebut dengan menekan tombol CTRL + V
>>
>>
>>Untuk pergi ke cell yang beisi data:
>>ke arah bawah ==> CTRL + panah bawah
>>ke arah kanan ==> CTRL + panah kanan
>>
>>
>>Jika anda mengulang dengan sabar dan benar langkah-langkah di atas, maka seharusnya hasilnya akan seperti gambar berikut:
>>
>>
>>
>>
>>
>>
>>Hasil copas dengan data yang benar tetapi dengan format yang salah.
>>
>>
>>Setelah itu anda dapat memperbaiki format dengan cara melakukan copas format dari data pertama sehingga hasil akhirnya seperti gambar di bawah ini:
>>
>>
>>
>>
>>
>>
>>Setelah selesai maka anda dapat segera menekan tombol Stop Recording untuk menghentikan proses perekaman macro.
>>
>>
>>Anda dapat menemukan macro hasil perekaman tadi di dalam Modul1
>>
>>
>>
>>
>>
>>
>>
>>
>>Seharusnya hasil rekam macro saya dengan anda tidak terlalu jauh berbeda, berikut adalah hasil rekam macro saya
>>
>>
>>Option Explicit
>>
>>
>>Sub CopasSpesial(
>>'
>>' CopasSpesial Macro
>>'
>>' Keyboard Shortcut: Ctrl+Shift+A
>>'
>> Range("C4").
>> Selection.Copy ' mengcopy cell c4
>> Sheets("Hasil"
>> Range("B4").
>> Selection.End(
>> ActiveCell.Offset(
>> ActiveSheet.
>> Sheets("Input"
>> Range("C6").
>> Application.
>> Selection.Copy ' meng-copy cell c6
>> Sheets("Hasil"
>> Range("B4").
>> Selection.End(
>> ActiveCell.Offset(
>> ActiveSheet.
>> Sheets("Input"
>> Range("C8").
>> Application.
>> Selection.Copy ' mengcopy cell c8
>> Sheets("Hasil"
>> Range("B4").
>> Selection.End(
>> Selection.End(
>> ActiveCell.Offset(
>> ActiveSheet.
>> Application.
>> Range("B4").
>> ActiveCell.Offset(
>> Range(Selection, Selection.End(
>> Selection.Copy ' mengcopy cell b5 sampai d5
>> Selection.End(
>> Selection.PasteSpec
>> SkipBlanks:=
>> Application.
>>End Sub
>>
>>
>>Mari kita ulang, apa saja yang sudah kita pelajari?
>>
>>
>>1. Cara meng-kopi dan mempaste suatu cell
>>2. Bergerak di dalam workseet, yaitu:
>> a. ke data yang paling akhir di bawah .end(xlDown)
>> b. ke data paling akhir di sebelah kanan .end(xlRight)
>> untuk bergerak ke data akhir di sebelah atas dan kiri silakan gunakan cara yang serupa
>> c. turun 1 baris ke bawah .OffSet(1, 0)
>> d. pindah 1 baris ke sebelah kanan .OffSet (0, 1)
>> untuk bergerak ke atas dan ke bawah silakan gunakan cara yang serupa
>> .Offset(baris, kolom)
>> baris jika bernilai positif berarti turun ke bawah, jika negatif berarti bergerak ke atas
>> kolom jika bernilai positif berarti ke arah kanan, jika negatif berarti ke arah kiri.
>>
>>
>>Walaupun teknik rekam saya rasakan sangat membantu saya dalam mempelajari macro, tetapi teknik ini juga memiliki kelemahan yaitu tidak dapat melakukan perulangan..
>>
>>
>>Saya rasa cukup sampai di sini cerita saya yang panjang lebar.. tentu jika saya teruskan akan membuat bosan orang yang membacanya.. Contoh file bisa dilihat di lampiran.
>>
>>
>>Semoga bermanfaat.
>>
>>
>>wassalam,
>>
>>
>>-aji mumpung-
# jika dirasa bermanfaat, dipersilakan untuk menyebarkan tanpa persetujuan dahulu dari saya
maaf mr kid, saya tidak lampirkan readme-nya, karena setelah saya kompres dengan winrar ukurannya masih 267KB
GROUP FOOTER MESSAGE
---------------------------------------------------------------------
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
---------------------------------------------------------------------
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