12 Messages
Digest #3307
Messages
Tue Feb 17, 2015 2:57 pm (PST) . Posted by:
semenjana
Assalamualaikum Wr, Wb,
selamat pagi Bapak-Ibu yang saya segani,
sebelumnya mohon maaf jika mengganggu waktunya, ingin menanyakan perihal existing case terlampir dalam e-mail ini, bagaimana mitigasi yang tepat untuk dilakukan ?
Terima kasih banyak atas perhatian dan bantuannya.
Semoga sukses selalu
Salam Keberkahan,
Semenjana
selamat pagi Bapak-Ibu yang saya segani,
sebelumnya mohon maaf jika mengganggu waktunya, ingin menanyakan perihal existing case terlampir dalam e-mail ini, bagaimana mitigasi yang tepat untuk dilakukan ?
Terima kasih banyak atas perhatian dan bantuannya.
Semoga sukses selalu
Salam Keberkahan,
Semenjana
Wed Feb 18, 2015 1:28 am (PST) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Wa'alaikumussalam wr wb
File terlampir membuat susunan kolom jenis dan nomor di data GL agar sama
seperti susunan di data Tax. Hal ini akan lebih memudahkan komputasi.
Wassalamu'alaikum wr wb
Kid.
2015-02-18 9:36 GMT+11:00 semenjana@yahoo.co.id [belajar-excel] <
belajar-excel@yahoogroups.com>:
>
>
> Assalamualaikum Wr, Wb,
>
>
> selamat pagi Bapak-Ibu yang saya segani,
>
>
> sebelumnya mohon maaf jika mengganggu waktunya, ingin menanyakan perihal
> existing case terlampir dalam e-mail ini, bagaimana mitigasi yang tepat
> untuk dilakukan ?
>
>
> Terima kasih banyak atas perhatian dan bantuannya.
>
>
> Semoga sukses selalu
>
>
> Salam Keberkahan,
>
> Semenjana
>
>
>
File terlampir membuat susunan kolom jenis dan nomor di data GL agar sama
seperti susunan di data Tax. Hal ini akan lebih memudahkan komputasi.
Wassalamu'alaikum wr wb
Kid.
2015-02-18 9:36 GMT+11:00 semenjana@yahoo.co.id [belajar-excel] <
belajar-excel@yahoogroups.com>:
>
>
> Assalamualaikum Wr, Wb,
>
>
> selamat pagi Bapak-Ibu yang saya segani,
>
>
> sebelumnya mohon maaf jika mengganggu waktunya, ingin menanyakan perihal
> existing case terlampir dalam e-mail ini, bagaimana mitigasi yang tepat
> untuk dilakukan ?
>
>
> Terima kasih banyak atas perhatian dan bantuannya.
>
>
> Semoga sukses selalu
>
>
> Salam Keberkahan,
>
> Semenjana
>
>
>
Tue Feb 17, 2015 5:58 pm (PST) . Posted by:
"odong nando"
wah trimakasih bos kid...
walau formulanya membingungkan tapi trimakasih dah... :)
thx,
odong nando
Pada Jumat, 13 Februari 2015 21:33, "'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
Hai Odong,
File terlampir.
Wassalam,
Kid.
2015-02-13 13:19 GMT+11:00 odong nando odongnando@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com>:
| Dear bos kid,Trima kasih, atas bantuannya bos ...Btw, saldo awal itu kan punya si pandu, jd hanya pandulah yg memiliki pinjaman ke perus sblm thn 2015...Sy coba utak atik, malah jd ngaco...hehehe...
Mohon petunjukny lg ya bos... :)
br,
odong nando
| Dari:"'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com>
Tanggal:Kam, 12 Feb 2015 pada 17:46
Judul:Re: [belajar-excel] mencari nilai di dalam tabel yang tidak terhidden [1 Attachment]
Hai Odong Nando,
File terlampir menggunakan 4 kolom bantu biar jadi ruwet...
;)
Wassalam,
Kid.
2015-02-12 19:56 GMT+11:00 odong nando odongnando@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com>:
dear all,
bagai mana kah cara merubah text pada cell tertentu, yang merujuk pada cell tak terhidden pada sebuah tabel.
untuk lebih jelas bisa lihat lampiran berikut.
thx,
odong nando
|
|
#yiv9975525712 #yiv9975525712 -- #yiv9975525712ygrp-mkp {border:1px solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv9975525712 #yiv9975525712ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv9975525712 #yiv9975525712ygrp-mkp #yiv9975525712hd {color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 0;}#yiv9975525712 #yiv9975525712ygrp-mkp #yiv9975525712ads {margin-bottom:10px;}#yiv9975525712 #yiv9975525712ygrp-mkp .yiv9975525712ad {padding:0 0;}#yiv9975525712 #yiv9975525712ygrp-mkp .yiv9975525712ad p {margin:0;}#yiv9975525712 #yiv9975525712ygrp-mkp .yiv9975525712ad a {color:#0000ff;text-decoration:none;}#yiv9975525712 #yiv9975525712ygrp-sponsor #yiv9975525712ygrp-lc {font-family:Arial;}#yiv9975525712 #yiv9975525712ygrp-sponsor #yiv9975525712ygrp-lc #yiv9975525712hd {margin:10px 0px;font-weight:700;font-size:78%;line-height:122%;}#yiv9975525712 #yiv9975525712ygrp-sponsor #yiv9975525712ygrp-lc .yiv9975525712ad {margin-bottom:10px;padding:0 0;}#yiv9975525712 #yiv9975525712actions {font-family:Verdana;font-size:11px;padding:10px 0;}#yiv9975525712 #yiv9975525712activity {background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv9975525712 #yiv9975525712activity span {font-weight:700;}#yiv9975525712 #yiv9975525712activity span:first-child {text-transform:uppercase;}#yiv9975525712 #yiv9975525712activity span a {color:#5085b6;text-decoration:none;}#yiv9975525712 #yiv9975525712activity span span {color:#ff7900;}#yiv9975525712 #yiv9975525712activity span .yiv9975525712underline {text-decoration:underline;}#yiv9975525712 .yiv9975525712attach {clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 0;width:400px;}#yiv9975525712 .yiv9975525712attach div a {text-decoration:none;}#yiv9975525712 .yiv9975525712attach img {border:none;padding-right:5px;}#yiv9975525712 .yiv9975525712attach label {display:block;margin-bottom:5px;}#yiv9975525712 .yiv9975525712attach label a {text-decoration:none;}#yiv9975525712 blockquote {margin:0 0 0 4px;}#yiv9975525712 .yiv9975525712bold {font-family:Arial;font-size:13px;font-weight:700;}#yiv9975525712 .yiv9975525712bold a {text-decoration:none;}#yiv9975525712 dd.yiv9975525712last p a {font-family:Verdana;font-weight:700;}#yiv9975525712 dd.yiv9975525712last p span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv9975525712 dd.yiv9975525712last p span.yiv9975525712yshortcuts {margin-right:0;}#yiv9975525712 div.yiv9975525712attach-table div div a {text-decoration:none;}#yiv9975525712 div.yiv9975525712attach-table {width:400px;}#yiv9975525712 div.yiv9975525712file-title a, #yiv9975525712 div.yiv9975525712file-title a:active, #yiv9975525712 div.yiv9975525712file-title a:hover, #yiv9975525712 div.yiv9975525712file-title a:visited {text-decoration:none;}#yiv9975525712 div.yiv9975525712photo-title a, #yiv9975525712 div.yiv9975525712photo-title a:active, #yiv9975525712 div.yiv9975525712photo-title a:hover, #yiv9975525712 div.yiv9975525712photo-title a:visited {text-decoration:none;}#yiv9975525712 div#yiv9975525712ygrp-mlmsg #yiv9975525712ygrp-msg p a span.yiv9975525712yshortcuts {font-family:Verdana;font-size:10px;font-weight:normal;}#yiv9975525712 .yiv9975525712green {color:#628c2a;}#yiv9975525712 .yiv9975525712MsoNormal {margin:0 0 0 0;}#yiv9975525712 o {font-size:0;}#yiv9975525712 #yiv9975525712photos div {float:left;width:72px;}#yiv9975525712 #yiv9975525712photos div div {border:1px solid #666666;height:62px;overflow:hidden;width:62px;}#yiv9975525712 #yiv9975525712photos div label {color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv9975525712 #yiv9975525712reco-category {font-size:77%;}#yiv9975525712 #yiv9975525712reco-desc {font-size:77%;}#yiv9975525712 .yiv9975525712replbq {margin:4px;}#yiv9975525712 #yiv9975525712ygrp-actbar div a:first-child {margin-right:2px;padding-right:5px;}#yiv9975525712 #yiv9975525712ygrp-mlmsg {font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv9975525712 #yiv9975525712ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv9975525712 #yiv9975525712ygrp-mlmsg select, #yiv9975525712 input, #yiv9975525712 textarea {font:99% Arial, Helvetica, clean, sans-serif;}#yiv9975525712 #yiv9975525712ygrp-mlmsg pre, #yiv9975525712 code {font:115% monospace;}#yiv9975525712 #yiv9975525712ygrp-mlmsg * {line-height:1.22em;}#yiv9975525712 #yiv9975525712ygrp-mlmsg #yiv9975525712logo {padding-bottom:10px;}#yiv9975525712 #yiv9975525712ygrp-msg p a {font-family:Verdana;}#yiv9975525712 #yiv9975525712ygrp-msg p#yiv9975525712attach-count span {color:#1E66AE;font-weight:700;}#yiv9975525712 #yiv9975525712ygrp-reco #yiv9975525712reco-head {color:#ff7900;font-weight:700;}#yiv9975525712 #yiv9975525712ygrp-reco {margin-bottom:20px;padding:0px;}#yiv9975525712 #yiv9975525712ygrp-sponsor #yiv9975525712ov li a {font-size:130%;text-decoration:none;}#yiv9975525712 #yiv9975525712ygrp-sponsor #yiv9975525712ov li {font-size:77%;list-style-type:square;padding:6px 0;}#yiv9975525712 #yiv9975525712ygrp-sponsor #yiv9975525712ov ul {margin:0;padding:0 0 0 8px;}#yiv9975525712 #yiv9975525712ygrp-text {font-family:Georgia;}#yiv9975525712 #yiv9975525712ygrp-text p {margin:0 0 1em 0;}#yiv9975525712 #yiv9975525712ygrp-text tt {font-size:120%;}#yiv9975525712 #yiv9975525712ygrp-vital ul li:last-child {border-right:none !important;}#yiv9975525712
walau formulanya membingungkan tapi trimakasih dah... :)
thx,
odong nando
Pada Jumat, 13 Februari 2015 21:33, "'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
Hai Odong,
File terlampir.
Wassalam,
Kid.
2015-02-13 13:19 GMT+11:00 odong nando odongnando@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com>:
| Dear bos kid,Trima kasih, atas bantuannya bos ...Btw, saldo awal itu kan punya si pandu, jd hanya pandulah yg memiliki pinjaman ke perus sblm thn 2015...Sy coba utak atik, malah jd ngaco...hehehe...
Mohon petunjukny lg ya bos... :)
br,
odong nando
| Dari:"'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com>
Tanggal:Kam, 12 Feb 2015 pada 17:46
Judul:Re: [belajar-excel] mencari nilai di dalam tabel yang tidak terhidden [1 Attachment]
Hai Odong Nando,
File terlampir menggunakan 4 kolom bantu biar jadi ruwet...
;)
Wassalam,
Kid.
2015-02-12 19:56 GMT+11:00 odong nando odongnando@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com>:
dear all,
bagai mana kah cara merubah text pada cell tertentu, yang merujuk pada cell tak terhidden pada sebuah tabel.
untuk lebih jelas bisa lihat lampiran berikut.
thx,
odong nando
|
|
#yiv9975525712 #yiv9975525712 -- #yiv9975525712ygrp-
Tue Feb 17, 2015 6:26 pm (PST) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
waduh... maaf banget... sama sekali ndak ada niatan untuk membuat bingung
loh...
gimana kalau mencoba yang ini dulu sebelum mencoba memecah part-per-part
formulas yang ada disana.
1. di workbook baru di sheet pertama yang tampak
2. cell a1 diberi teks berbunyi 'Data' (jadi header data nih pura-puranya)
3. cell a2 sampai a10 diberi angka berurutan 1,2,3,dst (ketik manual, atau
auto fill, atau fungsi row()-1 boleh digunakan)
4. di cell d1 diberi teks berbunyi 'tampakkah?'
5. di cell d2 diberi formula berbunyi =subtotal( 3 , a2 ) -> angka 3
dalam subtotal bisa diganti 2 bila pasti cell yang dirujuk bertipe numerik
atau datetime
6. copy formula d2 sampai d10
7. cell f1 diberi teks berbunyi 'tampak' dan cell h1 diberi teks berbunyi
'record(s)'
8. cell g1 diberi formula berbunyi =sum(d2:d10)
9. blok cell a1:a10 dan aktifkan autofilter
10. lakukan autofilter agar menampakkan nilai 5 saja
11. perhatikan nilai di cell g1
12. ubah-ubah kriteria filternya dan perhatikan nilai di cell g1
>>> fungsi subtotal bisa dimanfaatkan untuk memberi tanda baris mana saja
hasil autofilternya
kemudian, coba juga jika cell b1 diberi teks berbunyi 'tampakkah?' dan cell
b2 diberi formula =subtotal( 3 , a2 )
formula b2 di-copy sampai cell b10
turnoff autofilter, blok a1:b10 dan turnon autofilter lalu lakukan filter
untuk menampilkan angka 5 saja.
adakah perbedaan hasil autofilternya ?
Hal-hal di atas adalah beberapa karakteristik fungsi subtotal.
Setelah memahami sebagian karakteristik dasar ini, maka bisa disusunlah
susunan formula seperti pada file yang lalu.
Moga-moga jadi jalan untuk ndak bingung lagi...
met mencoba dan mohon maaf kalau sudah membuat bingung dengan postingan
sebelumnya.
Wassalam,
Kid.
On Wed, Feb 18, 2015 at 12:55 PM, odong nando odongnando@yahoo.com
[belajar-excel] <belajar-excel@yahoogroups.com> wrote:
>
>
> wah trimakasih bos kid...
> walau formulanya membingungkan tapi trimakasih dah... :)
>
>
>
>
>
> *thx, odong nando*
>
>
> Pada Jumat, 13 Februari 2015 21:33, "'Mr. Kid' mr.nmkid@gmail.com
> [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
>
>
>
> Hai Odong,
>
> File terlampir.
>
> Wassalam,
> Kid.
>
>
> 2015-02-13 13:19 GMT+11:00 odong nando odongnando@yahoo.com
> [belajar-excel] <belajar-excel@yahoogroups.com>:
>
>
> Dear bos kid,
> Trima kasih, atas bantuannya bos ...
> Btw, saldo awal itu kan punya si pandu, jd hanya pandulah yg memiliki
> pinjaman ke perus sblm thn 2015...
> Sy coba utak atik, malah jd ngaco...hehehe...
>
> Mohon petunjukny lg ya bos... :)
>
> br,
>
> odong nando
> ------------------------------
> *Dari*:"'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]" <
> belajar-excel@yahoogroups.com>
> *Tanggal*:Kam, 12 Feb 2015 pada 17:46
> *Judul*:Re: [belajar-excel] mencari nilai di dalam tabel yang tidak
> terhidden [1 Attachment]
>
>
> Hai Odong Nando,
>
> File terlampir menggunakan 4 kolom bantu biar jadi ruwet...
>
> ;)
>
> Wassalam,
> Kid.
>
>
>
>
>
>
> 2015-02-12 19:56 GMT+11:00 odong nando odongnando@yahoo.com
> [belajar-excel] <belajar-excel@yahoogroups.com>:
>
>
> dear all,
>
> bagai mana kah cara merubah text pada cell tertentu, yang merujuk pada
> cell tak terhidden pada sebuah tabel.
>
> untuk lebih jelas bisa lihat lampiran berikut.
>
> *thx, *
>
>
>
> *odong nando*
>
>
>
>
>
>
>
loh...
gimana kalau mencoba yang ini dulu sebelum mencoba memecah part-per-part
formulas yang ada disana.
1. di workbook baru di sheet pertama yang tampak
2. cell a1 diberi teks berbunyi 'Data' (jadi header data nih pura-puranya)
3. cell a2 sampai a10 diberi angka berurutan 1,2,3,dst (ketik manual, atau
auto fill, atau fungsi row()-1 boleh digunakan)
4. di cell d1 diberi teks berbunyi 'tampakkah?'
5. di cell d2 diberi formula berbunyi =subtotal( 3 , a2 ) -> angka 3
dalam subtotal bisa diganti 2 bila pasti cell yang dirujuk bertipe numerik
atau datetime
6. copy formula d2 sampai d10
7. cell f1 diberi teks berbunyi 'tampak' dan cell h1 diberi teks berbunyi
'record(s)'
8. cell g1 diberi formula berbunyi =sum(d2:d10)
9. blok cell a1:a10 dan aktifkan autofilter
10. lakukan autofilter agar menampakkan nilai 5 saja
11. perhatikan nilai di cell g1
12. ubah-ubah kriteria filternya dan perhatikan nilai di cell g1
>>> fungsi subtotal bisa dimanfaatkan untuk memberi tanda baris mana saja
hasil autofilternya
kemudian, coba juga jika cell b1 diberi teks berbunyi 'tampakkah?' dan cell
b2 diberi formula =subtotal( 3 , a2 )
formula b2 di-copy sampai cell b10
turnoff autofilter, blok a1:b10 dan turnon autofilter lalu lakukan filter
untuk menampilkan angka 5 saja.
adakah perbedaan hasil autofilternya ?
Hal-hal di atas adalah beberapa karakteristik fungsi subtotal.
Setelah memahami sebagian karakteristik dasar ini, maka bisa disusunlah
susunan formula seperti pada file yang lalu.
Moga-moga jadi jalan untuk ndak bingung lagi...
met mencoba dan mohon maaf kalau sudah membuat bingung dengan postingan
sebelumnya.
Wassalam,
Kid.
On Wed, Feb 18, 2015 at 12:55 PM, odong nando odongnando@yahoo.com
[belajar-excel] <belajar-excel@yahoogroups.com> wrote:
>
>
> wah trimakasih bos kid...
> walau formulanya membingungkan tapi trimakasih dah... :)
>
>
>
>
>
> *thx, odong nando*
>
>
> Pada Jumat, 13 Februari 2015 21:33, "'Mr. Kid' mr.nmkid@gmail.com
> [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
>
>
>
> Hai Odong,
>
> File terlampir.
>
> Wassalam,
> Kid.
>
>
> 2015-02-13 13:19 GMT+11:00 odong nando odongnando@yahoo.com
> [belajar-excel] <belajar-excel@yahoogroups.com>:
>
>
> Dear bos kid,
> Trima kasih, atas bantuannya bos ...
> Btw, saldo awal itu kan punya si pandu, jd hanya pandulah yg memiliki
> pinjaman ke perus sblm thn 2015...
> Sy coba utak atik, malah jd ngaco...hehehe...
>
> Mohon petunjukny lg ya bos... :)
>
> br,
>
> odong nando
> ------------------------------
> *Dari*:"'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]" <
> belajar-excel@yahoogroups.com>
> *Tanggal*:Kam, 12 Feb 2015 pada 17:46
> *Judul*:Re: [belajar-excel] mencari nilai di dalam tabel yang tidak
> terhidden [1 Attachment]
>
>
> Hai Odong Nando,
>
> File terlampir menggunakan 4 kolom bantu biar jadi ruwet...
>
> ;)
>
> Wassalam,
> Kid.
>
>
>
>
>
>
> 2015-02-12 19:56 GMT+11:00 odong nando odongnando@yahoo.com
> [belajar-excel] <belajar-excel@yahoogroups.com>:
>
>
> dear all,
>
> bagai mana kah cara merubah text pada cell tertentu, yang merujuk pada
> cell tak terhidden pada sebuah tabel.
>
> untuk lebih jelas bisa lihat lampiran berikut.
>
> *thx, *
>
>
>
> *odong nando*
>
>
>
>
>
>
>
Tue Feb 17, 2015 6:41 pm (PST) . Posted by:
"Samsudin"
Dear Mr. Kid,
Terima kasih atas pencerahannya, semoga mendapatkan berkah dari Allah SWT, amiiin
Hormat saya,
Samsudin
[cid:image001.jpg@01D04B67.09C16B90]
From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
Sent: Tuesday, February 17, 2015 4:18 PM
To: BeExcel
Subject: Re: [belajar-excel] Roster 3-1
Pak Samsudin,
Formula :
=LOOKUP(MOD(C$13-"2014-12-31"-1,58)+1,$B$22:$B$51/($A$22:$A$51=MOD($A14-1,3)+1),$C$22:$C$51)
=LookUp( hari_siklus_di_data , hari_siklus_referensi_pada_pola_tertentu , status_siklus_referensi )
hari_siklus_di_data = MOD(C$13-"2014-12-31"-1,58)+1
C$13-"2014-12-31" -> menghasilkan selisih hari cell c13 terhadap tanggal 31 des 2014 = jumlah hari sejak hari pertama siklus pola
-1 -> indeks hari siklus (base 0), yaitu hasil jumlah hari dikurangi 1 supaya hari ke-1 siklus dianggap hari ke-0
MOD(C$13-"2014-12-31"-1,58) -> indeks hari siklus tabel referensi, yaitu sisa bagi indeks hari siklus terhadap jumlah hari dalam 1 siklus (yaitu 58). Jadi, 0 dibagi 58 akan bersisa 0, 5 dibagi 58 akan bersisa 5, 58 dibagi 58 bersisa 0 alias seperti indeks hari ke-0 alias mulai siklus baru lagi
+1 -> mengubah indeks hari siklus menjadi hari siklus kembali, karena tabel referensi berisi nilai-nilai hari siklus (base 1 alias dimulai hari ke-1)
hari_siklus_referensi_pada_pola_tertentu = $B$22:$B$51/($A$22:$A$51=MOD($A14-1,3)+1)
$B$22:$B$51 -> nilai-nilai hari siklus di tabel referensi
$A$22:$A$51 -> nilai-nilai pola siklus setiap hari siklus di tabel referensi
$A14 -> nomor record (bukan nomor baris Excel)
-1 -> mengubah nomor record menjadi indeks record (base 0)
MOD($A14-1,3) -> indeks nomor pola, yaitu sisa bagi indeks nomor record terhadap jumlah pola yang ada (yaitu 3). Jadi, 0 dibagi 3 sisa 0, 2 dibagi 3 sisa 2, 3 dibagi 3 sisa 0 alias sama dengan sisa 0 dibagi 3 alias kembali ke pola pertama lagi
+1 -> mengubah indeks nomor pola menjadi nomor pola
status_siklus_referensi = $C$22:$C$51
Bahasa manusia :
"cel, cariken padanan yang sama atau lebih [lookup] untuk nilai hari siklus di data yang merupakan 1+ sisa bagi selisih hari yang telah dikurangi 1 dengan jumlah total hari per siklus [MOD(C$13-"2014-12-31"-1,58)] pada suatu daftar nilai hari-hari siklus ditabel referensi [$B$22:$B$51] khusus yang menghasilkan nilai numerik [/] berdasar kriteria bahwa nomor pola di tabel referensi [$A$22:$A$51] sama dengan nomor pola untuk record data tersebut, yaitu 1+ hasil sisa bagi nomor record yang sudah dikurangi 1 dengan jumlah pola yang ada dalam tabel referensi [MOD($A14-1,3)], kemudian menampilkan hasilnya berupa nilai-nilai status [$C$22:$C$51] yang sepadan."
Wassalam,
Kid.
On Tue, Feb 17, 2015 at 5:07 PM, Samsudin samsudin@bayan.com.sg<mailto:samsudin@bayan.com.sg> [belajar-excel] <belajar-excel@yahoogroups.com<mailto:belajar-excel@yahoogroups.com>> wrote:
Dear Mr. Kid,
Terima kasih atas pencerahannya dan jika berkenan bisa memberikan penjelasan tentang formula tersebut karena saya masih belum mudeng formula tersebut.
Hormat saya,
Samsudin
[cid:image004.jpg@01D04B66.7BEF4490]
From: belajar-excel@yahoogroups.com<mailto:belajar-excel@yahoogroups.com> [mailto:belajar-excel@yahoogroups.com<mailto:belajar-excel@yahoogroups.com>]
Sent: Tuesday, February 17, 2015 12:03 PM
To: BeExcel
Subject: Re: [belajar-excel] Roster 3-1 [1 Attachment]
Pak Samsudin,
File terlampir menggunakan fungsi lookup dan sebuah tabel referensi berisi pola-pola yang akan digunakan.
Asumsinya,
A. nomor pola yang digunakan oleh setiap nama mengikuti nomor urutnya dengan siklus 3 pola. Jadi nomor urut 4 akan kembali ke pola nomor 1.
B. tanggal mulai di-set per tanggal 2015-01-01.
C. setiap pola adalah siklus 58 hari sesuai ketentuan yang ada. Hari ke-59 akan kembali seperti hari ke-1 di pola tersebut yang tetap.
Silakan dikembangkan dan disesuaikan dengan kebutuhan setempat.
Wassalam,
Kid.
On Mon, Feb 16, 2015 at 2:31 PM, Samsudin samsudin@bayan.com.sg<mailto:samsudin@bayan.com.sg> [belajar-excel] <belajar-excel@yahoogroups.com<mailto:belajar-excel@yahoogroups.com>> wrote:
Dear Suhu Excel,
Mohon bantuan dan pencerahannya untuk membuat jadwal roster 3-1, dimana ketentuannya adalah :
1. Karyawan dibagi 2 shift ( 7 hari masuk pagi dan 7 hari masuk malam)
2. Karyawan diberikan libur 1 hari, setelah masuk 14 hari (shift I dan Shift II)
3. Karyawan diberikan cuti 7 hari, setelah masuk 14 hari + libur 1 hari + 7 hari masuk (shift I / shift II).
Atas bantuannya diucapkan terima kasih.
Hormat saya,
Samsudin
----------------------------------------------------------
This message (including any attachments) contains confidential information intended
for a specific individual and purpose, and is protected by law. If you are not the
intended recipient, you should delete this message and hereby notified that any
disclosure, copying, or distribution of this message (or any part thereof), or the
taking of any action based on it, is strictly prohibited. No liability or responsibility
is accepted if information or data is, for whatever reason corrupted or does not reach
its intended recipient. No warranty is given that this email is free of viruses. The
views expressed in this email are, unless otherwise stated, those of the author and
not those of the Company or its management. The Company reserves the right to monitor,
intercept and block emails addressed to its users or take any other action in accordance
with its email use policy.
----------------------------------------------------------
This message (including any attachments) contains confidential information intended
for a specific individual and purpose, and is protected by law. If you are not the
intended recipient, you should delete this message and hereby notified that any
disclosure, copying, or distribution of this message (or any part thereof), or the
taking of any action based on it, is strictly prohibited. No liability or responsibility
is accepted if information or data is, for whatever reason corrupted or does not reach
its intended recipient. No warranty is given that this email is free of viruses. The
views expressed in this email are, unless otherwise stated, those of the author and
not those of the Company or its management. The Company reserves the right to monitor,
intercept and block emails addressed to its users or take any other action in accordance
with its email use policy.
----------------------------------------------------------
This message (including any attachments) contains confidential information intended
for a specific individual and purpose, and is protected by law. If you are not the
intended recipient, you should delete this message and hereby notified that any
disclosure, copying, or distribution of this message (or any part thereof), or the
taking of any action based on it, is strictly prohibited. No liability or responsibility
is accepted if information or data is, for whatever reason corrupted or does not reach
its intended recipient. No warranty is given that this email is free of viruses. The
views expressed in this email are, unless otherwise stated, those of the author and
not those of the Company or its management. The Company reserves the right to monitor,
intercept and block emails addressed to its users or take any other action in accordance
with its email use policy.
Terima kasih atas pencerahannya, semoga mendapatkan berkah dari Allah SWT, amiiin
Hormat saya,
Samsudin
[cid:image001.jpg@01D04B67.09C16B90]
From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
Sent: Tuesday, February 17, 2015 4:18 PM
To: BeExcel
Subject: Re: [belajar-excel] Roster 3-1
Pak Samsudin,
Formula :
=LOOKUP(MOD(C$13-"2014-12-31"-1,58)+1,$B$22:$B$51/($A$22:$A$51=MOD($A14-1,3)+1),$C$22:$C$51)
=LookUp( hari_siklus_di_data , hari_siklus_referensi_pada_pola_tertentu , status_siklus_referensi )
hari_siklus_di_data = MOD(C$13-"2014-12-31"-1,58)+1
C$13-"2014-12-31" -> menghasilkan selisih hari cell c13 terhadap tanggal 31 des 2014 = jumlah hari sejak hari pertama siklus pola
-1 -> indeks hari siklus (base 0), yaitu hasil jumlah hari dikurangi 1 supaya hari ke-1 siklus dianggap hari ke-0
MOD(C$13-"2014-12-31"-1,58) -> indeks hari siklus tabel referensi, yaitu sisa bagi indeks hari siklus terhadap jumlah hari dalam 1 siklus (yaitu 58). Jadi, 0 dibagi 58 akan bersisa 0, 5 dibagi 58 akan bersisa 5, 58 dibagi 58 bersisa 0 alias seperti indeks hari ke-0 alias mulai siklus baru lagi
+1 -> mengubah indeks hari siklus menjadi hari siklus kembali, karena tabel referensi berisi nilai-nilai hari siklus (base 1 alias dimulai hari ke-1)
hari_siklus_referensi_pada_pola_tertentu = $B$22:$B$51/($A$22:$A$51=MOD($A14-1,3)+1)
$B$22:$B$51 -> nilai-nilai hari siklus di tabel referensi
$A$22:$A$51 -> nilai-nilai pola siklus setiap hari siklus di tabel referensi
$A14 -> nomor record (bukan nomor baris Excel)
-1 -> mengubah nomor record menjadi indeks record (base 0)
MOD($A14-1,3) -> indeks nomor pola, yaitu sisa bagi indeks nomor record terhadap jumlah pola yang ada (yaitu 3). Jadi, 0 dibagi 3 sisa 0, 2 dibagi 3 sisa 2, 3 dibagi 3 sisa 0 alias sama dengan sisa 0 dibagi 3 alias kembali ke pola pertama lagi
+1 -> mengubah indeks nomor pola menjadi nomor pola
status_siklus_referensi = $C$22:$C$51
Bahasa manusia :
"cel, cariken padanan yang sama atau lebih [lookup] untuk nilai hari siklus di data yang merupakan 1+ sisa bagi selisih hari yang telah dikurangi 1 dengan jumlah total hari per siklus [MOD(C$13-"2014-12-31"-1,58)] pada suatu daftar nilai hari-hari siklus ditabel referensi [$B$22:$B$51] khusus yang menghasilkan nilai numerik [/] berdasar kriteria bahwa nomor pola di tabel referensi [$A$22:$A$51] sama dengan nomor pola untuk record data tersebut, yaitu 1+ hasil sisa bagi nomor record yang sudah dikurangi 1 dengan jumlah pola yang ada dalam tabel referensi [MOD($A14-1,3)], kemudian menampilkan hasilnya berupa nilai-nilai status [$C$22:$C$51] yang sepadan."
Wassalam,
Kid.
On Tue, Feb 17, 2015 at 5:07 PM, Samsudin samsudin@bayan.com.sg<mailto:samsudin@bayan.com.sg> [belajar-excel] <belajar-excel@yahoogroups.com<mailto:belajar-excel@yahoogroups.com>> wrote:
Dear Mr. Kid,
Terima kasih atas pencerahannya dan jika berkenan bisa memberikan penjelasan tentang formula tersebut karena saya masih belum mudeng formula tersebut.
Hormat saya,
Samsudin
[cid:image004.jpg@01D04B66.7BEF4490]
From: belajar-excel@yahoogroups.com<mailto:belajar-excel@yahoogroups.com> [mailto:belajar-excel@yahoogroups.com<mailto:belajar-excel@yahoogroups.com>]
Sent: Tuesday, February 17, 2015 12:03 PM
To: BeExcel
Subject: Re: [belajar-excel] Roster 3-1 [1 Attachment]
Pak Samsudin,
File terlampir menggunakan fungsi lookup dan sebuah tabel referensi berisi pola-pola yang akan digunakan.
Asumsinya,
A. nomor pola yang digunakan oleh setiap nama mengikuti nomor urutnya dengan siklus 3 pola. Jadi nomor urut 4 akan kembali ke pola nomor 1.
B. tanggal mulai di-set per tanggal 2015-01-01.
C. setiap pola adalah siklus 58 hari sesuai ketentuan yang ada. Hari ke-59 akan kembali seperti hari ke-1 di pola tersebut yang tetap.
Silakan dikembangkan dan disesuaikan dengan kebutuhan setempat.
Wassalam,
Kid.
On Mon, Feb 16, 2015 at 2:31 PM, Samsudin samsudin@bayan.com.sg<mailto:samsudin@bayan.com.sg> [belajar-excel] <belajar-excel@yahoogroups.com<mailto:belajar-excel@yahoogroups.com>> wrote:
Dear Suhu Excel,
Mohon bantuan dan pencerahannya untuk membuat jadwal roster 3-1, dimana ketentuannya adalah :
1. Karyawan dibagi 2 shift ( 7 hari masuk pagi dan 7 hari masuk malam)
2. Karyawan diberikan libur 1 hari, setelah masuk 14 hari (shift I dan Shift II)
3. Karyawan diberikan cuti 7 hari, setelah masuk 14 hari + libur 1 hari + 7 hari masuk (shift I / shift II).
Atas bantuannya diucapkan terima kasih.
Hormat saya,
Samsudin
------------
This message (including any attachments) contains confidential information intended
for a specific individual and purpose, and is protected by law. If you are not the
intended recipient, you should delete this message and hereby notified that any
disclosure, copying, or distribution of this message (or any part thereof), or the
taking of any action based on it, is strictly prohibited. No liability or responsibility
is accepted if information or data is, for whatever reason corrupted or does not reach
its intended recipient. No warranty is given that this email is free of viruses. The
views expressed in this email are, unless otherwise stated, those of the author and
not those of the Company or its management. The Company reserves the right to monitor,
intercept and block emails addressed to its users or take any other action in accordance
with its email use policy.
------------
This message (including any attachments) contains confidential information intended
for a specific individual and purpose, and is protected by law. If you are not the
intended recipient, you should delete this message and hereby notified that any
disclosure, copying, or distribution of this message (or any part thereof), or the
taking of any action based on it, is strictly prohibited. No liability or responsibility
is accepted if information or data is, for whatever reason corrupted or does not reach
its intended recipient. No warranty is given that this email is free of viruses. The
views expressed in this email are, unless otherwise stated, those of the author and
not those of the Company or its management. The Company reserves the right to monitor,
intercept and block emails addressed to its users or take any other action in accordance
with its email use policy.
------------
This message (including any attachments) contains confidential information intended
for a specific individual and purpose, and is protected by law. If you are not the
intended recipient, you should delete this message and hereby notified that any
disclosure, copying, or distribution of this message (or any part thereof), or the
taking of any action based on it, is strictly prohibited. No liability or responsibility
is accepted if information or data is, for whatever reason corrupted or does not reach
its intended recipient. No warranty is given that this email is free of viruses. The
views expressed in this email are, unless otherwise stated, those of the author and
not those of the Company or its management. The Company reserves the right to monitor,
intercept and block emails addressed to its users or take any other action in accordance
with its email use policy.
Tue Feb 17, 2015 6:42 pm (PST) . Posted by:
"hendrik karnadi" hendrikkarnadi
Dear be-Exceler,
Beberapa waktu yang lalu pernah ada pertanyaan:"Bagaimana memilih beberapa sheet sekaligus kecuali satu sheet tertentu dengan macro".Untuk contoh kasus saya buat lima sheets dimana satu sheet tertentu tsb bernama "TES" sebagai ganti Sheet3
Jika digunakan rekaman (macro recording) maka codenya seperti ini:Sheets(Array("Sheet1", "Sheet2", "Sheet4", "Sheet5")).Select
Karena jumlah sheet bisa banyak maka saya buat macro seperti ini:Sub All_x_Tes() Dim sh As Worksheet Dim shNames As Variant For Each sh In ThisWorkbook.Worksheets If sh.Name <> "TES" Then shNames = shNames & sh.Name & """, """ End If Next shNames = Left(shNames, Len(shNames) - 4) Sheets(Array(shNames)).SelectEnd Sub
Ketika saya jalankan keluar message :Run-time error '9':Subscript out of range
Ketika saya debug maka code ini diberi warna kuning:Sheets(Array(shNames)).Select
Jika disorot warna kuningnya maka akan tampakshNames = "Sheet1", "Sheet2", "Sheet4", "Sheet5" sehingga kalau digabung menjadi:Sheets(Array("Sheet1", "Sheet2", "Sheet4", "Sheet5")).Select
Pertanyaannya (bukan quiz):Dimana salahnya ?
Terima kasih.
Salam,HK
Beberapa waktu yang lalu pernah ada pertanyaan:"
Jika digunakan rekaman (macro recording) maka codenya seperti ini:Sheets(Array(
Karena jumlah sheet bisa banyak maka saya buat macro seperti ini:Sub All_x_Tes() Dim sh As Worksheet Dim shNames As Variant For Each sh In ThisWorkbook.
Ketika saya jalankan keluar message :Run-time error '9':
Ketika saya debug maka code ini diberi warna kuning:Sheets(
Jika disorot warna kuningnya maka akan tampakshNames = "Sheet1"
Pertanyaannya (bukan quiz):Dimana salahnya ?
Terima kasih.
Salam,HK
Tue Feb 17, 2015 6:57 pm (PST) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
hehehe... kalo ini jelas bukan quiz, soale ada keterangan resminya...
masalahnya adalah tipe data.
Pada
Array("Sheet1", "Sheet2", "Sheet4", "Sheet5")
yang berupa string adalah nilai Sheet1 kemudian nilai Sheet2 lalu nilai
Sheet4 beserta nilai Sheet5 karena semua nilai-nilai itu didefinisikan
dengan diapit tanda petik.
Jadi, bunyi "Sheet1", "Sheet2", "Sheet4", "Sheet5" (secara utuh) bukanlah
string yang bernilai "Sheet1", "Sheet2", "Sheet4", "Sheet5"
Array(shNames)
dengan shNames bertipe string, jika ditulis lugas akan menjadi :
Array("""Sheet1"", ""Sheet2"", ""Sheet4"", ""Sheet5""")
dan berbeda dengan bunyi :
Array("Sheet1", "Sheet2", "Sheet4", "Sheet5")
bukan ?
bedanya :
Array("Sheet1", "Sheet2", "Sheet4", "Sheet5") membentuk array dengan 4 item
didalamnya
dan
Array("""Sheet1"", ""Sheet2"", ""Sheet4"", ""Sheet5""") membentuk array
dengan 1 item didalamnya yang berbunyi "Sheet1", "Sheet2", "Sheet4",
"Sheet5"
hasilnya, proses oleh methods Select menghasilkan error karena tidak ada
sheet bernama "Sheet1", "Sheet2", "Sheet4", "Sheet5" dalam workbook.
sekarang pakai bahasa programmer :
Array() adalah function yang bisa menerima parameter berupa array alias
daftar
nilai sheet1 yang bertipe teks alias berbunyi lengkap "Sheet1" menjadi
nilai parameter ke-1 bagi fungsi Array
begitu pula untuk nilai sheet2, sheet4, dan sheet5.
Regards,
Kid.
2015-02-18 13:42 GMT+11:00 hendrik karnadi hendrikkarnadi@yahoo.com
[belajar-excel] <belajar-excel@yahoogroups.com>:
>
>
> Dear be-Exceler,
>
> Beberapa waktu yang lalu pernah ada pertanyaan:
> "Bagaimana memilih beberapa sheet sekaligus kecuali satu sheet tertentu
> dengan macro".
> Untuk contoh kasus saya buat lima sheets dimana satu sheet tertentu tsb
> bernama "TES" sebagai ganti Sheet3
>
> Jika digunakan rekaman (macro recording) maka codenya seperti ini:
> Sheets(Array("Sheet1", "Sheet2", "Sheet4", "Sheet5")).Select
>
> Karena jumlah sheet bisa banyak maka saya buat macro seperti ini:
> Sub All_x_Tes()
> Dim sh As Worksheet
> Dim shNames As Variant
> For Each sh In ThisWorkbook.Worksheets
> If sh.Name <> "TES" Then
> shNames = shNames & sh.Name & """, """
> End If
> Next
> shNames = Left(shNames, Len(shNames) - 4)
> Sheets(Array(shNames)).Select
> End Sub
>
> *Ketika saya jalankan keluar message :*
> *Run-time error '9':*
> *Subscript out of range*
>
> Ketika saya debug maka code ini diberi warna kuning:
> Sheets(Array(shNames)).Select
>
> Jika disorot warna kuningnya maka akan tampak
> shNames = "Sheet1", "Sheet2", "Sheet4", "Sheet5"
> sehingga kalau digabung menjadi:
> Sheets(Array("Sheet1", "Sheet2", "Sheet4", "Sheet5")).Select
>
> Pertanyaannya (bukan quiz):
> Dimana salahnya ?
>
> Terima kasih.
>
> Salam,
> HK
>
>
>
>
>
>
>
>
>
>
>
masalahnya adalah tipe data.
Pada
Array("Sheet1", "Sheet2", "Sheet4", "Sheet5")
yang berupa string adalah nilai Sheet1 kemudian nilai Sheet2 lalu nilai
Sheet4 beserta nilai Sheet5 karena semua nilai-nilai itu didefinisikan
dengan diapit tanda petik.
Jadi, bunyi "Sheet1", "Sheet2", "Sheet4", "Sheet5" (secara utuh) bukanlah
string yang bernilai "Sheet1", "Sheet2", "Sheet4", "Sheet5"
Array(shNames)
dengan shNames bertipe string, jika ditulis lugas akan menjadi :
Array("""Sheet1"", ""Sheet2"", ""Sheet4"", ""Sheet5""")
dan berbeda dengan bunyi :
Array("Sheet1", "Sheet2", "Sheet4", "Sheet5")
bukan ?
bedanya :
Array("Sheet1", "Sheet2", "Sheet4", "Sheet5") membentuk array dengan 4 item
didalamnya
dan
Array("""Sheet1"", ""Sheet2"", ""Sheet4"", ""Sheet5""") membentuk array
dengan 1 item didalamnya yang berbunyi "Sheet1", "Sheet2", "Sheet4",
"Sheet5"
hasilnya, proses oleh methods Select menghasilkan error karena tidak ada
sheet bernama "Sheet1", "Sheet2", "Sheet4", "Sheet5" dalam workbook.
sekarang pakai bahasa programmer :
Array() adalah function yang bisa menerima parameter berupa array alias
daftar
nilai sheet1 yang bertipe teks alias berbunyi lengkap "Sheet1" menjadi
nilai parameter ke-1 bagi fungsi Array
begitu pula untuk nilai sheet2, sheet4, dan sheet5.
Regards,
Kid.
2015-02-18 13:42 GMT+11:00 hendrik karnadi hendrikkarnadi@yahoo.com
[belajar-excel] <belajar-excel@yahoogroups.com>:
>
>
> Dear be-Exceler,
>
> Beberapa waktu yang lalu pernah ada pertanyaan:
> "Bagaimana memilih beberapa sheet sekaligus kecuali satu sheet tertentu
> dengan macro".
> Untuk contoh kasus saya buat lima sheets dimana satu sheet tertentu tsb
> bernama "TES" sebagai ganti Sheet3
>
> Jika digunakan rekaman (macro recording) maka codenya seperti ini:
> Sheets(Array(
>
> Karena jumlah sheet bisa banyak maka saya buat macro seperti ini:
> Sub All_x_Tes()
> Dim sh As Worksheet
> Dim shNames As Variant
> For Each sh In ThisWorkbook.
> If sh.Name <> "TES" Then
> shNames = shNames & sh.Name & ""
> End If
> Next
> shNames = Left(shNames, Len(shNames) - 4)
> Sheets(Array(
> End Sub
>
> *Ketika saya jalankan keluar message :*
> *Run-time error '9':
> *Subscript out of range*
>
> Ketika saya debug maka code ini diberi warna kuning:
> Sheets(Array(
>
> Jika disorot warna kuningnya maka akan tampak
> shNames = "Sheet1"
> sehingga kalau digabung menjadi:
> Sheets(Array(
>
> Pertanyaannya (bukan quiz):
> Dimana salahnya ?
>
> Terima kasih.
>
> Salam,
> HK
>
>
>
>
>
>
>
>
>
>
>
Tue Feb 17, 2015 8:47 pm (PST) . Posted by:
"hendrik karnadi" hendrikkarnadi
Terima kasih Mr. Kid atas penjelasannya.
Penulisan type data inilah yang kadang2 masih selip...Saya coba seperti ini ternyata masih error,Sub All_x_Tes() Dim sh As Worksheet Dim shNames As Variant For Each sh In ThisWorkbook.Worksheets If sh.Name <> "TES" Then If shNames = "" Then shNames = """""" shNames = shNames & sh.Name & """"", """"" End If Next shNames = Left(shNames, Len(shNames) - 4) Sheets(Array(shNames)).Select 'masih errorEnd Sub
Mohon petunjuk lebih lanjut mengenai teknis penulisannya.Terima kasih.
Salam,HK
From: "'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com>
To: BeExcel <belajar-excel@yahoogroups.com>
Sent: Wednesday, 18 February 2015, 9:56
Subject: Re: [belajar-excel] Memilih sheets sekaligus kecuali sheet TES
hehehe... kalo ini jelas bukan quiz, soale ada keterangan resminya...
masalahnya adalah tipe data.
Pada
Array("Sheet1", "Sheet2", "Sheet4", "Sheet5")yang berupa string adalah nilai Sheet1 kemudian nilai Sheet2 lalu nilai Sheet4 beserta nilai Sheet5 karena semua nilai-nilai itu didefinisikan dengan diapit tanda petik.
Jadi, bunyi "Sheet1", "Sheet2", "Sheet4", "Sheet5" (secara utuh) bukanlah string yang bernilai "Sheet1", "Sheet2", "Sheet4", "Sheet5"
Array(shNames)dengan shNames bertipe string, jika ditulis lugas akan menjadi :
Array("""Sheet1"", ""Sheet2"", ""Sheet4"", ""Sheet5""")
dan berbeda dengan bunyi :
Array("Sheet1", "Sheet2", "Sheet4", "Sheet5")
bukan ?
bedanya :
Array("Sheet1", "Sheet2", "Sheet4", "Sheet5") membentuk array dengan 4 item didalamnya
dan
Array("""Sheet1"", ""Sheet2"", ""Sheet4"", ""Sheet5""") membentuk array dengan 1 item didalamnya yang berbunyi "Sheet1", "Sheet2", "Sheet4", "Sheet5"hasilnya, proses oleh methods Select menghasilkan error karena tidak ada sheet bernama "Sheet1", "Sheet2", "Sheet4", "Sheet5" dalam workbook.
sekarang pakai bahasa programmer :
Array() adalah function yang bisa menerima parameter berupa array alias daftar
nilai sheet1 yang bertipe teks alias berbunyi lengkap "Sheet1" menjadi nilai parameter ke-1 bagi fungsi Array
begitu pula untuk nilai sheet2, sheet4, dan sheet5.
Regards,
Kid.
2015-02-18 13:42 GMT+11:00 hendrik karnadi hendrikkarnadi@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com>:
Dear be-Exceler,
Beberapa waktu yang lalu pernah ada pertanyaan:"Bagaimana memilih beberapa sheet sekaligus kecuali satu sheet tertentu dengan macro".Untuk contoh kasus saya buat lima sheets dimana satu sheet tertentu tsb bernama "TES" sebagai ganti Sheet3
Jika digunakan rekaman (macro recording) maka codenya seperti ini:Sheets(Array("Sheet1", "Sheet2", "Sheet4", "Sheet5")).Select
Karena jumlah sheet bisa banyak maka saya buat macro seperti ini:Sub All_x_Tes() Dim sh As Worksheet Dim shNames As Variant For Each sh In ThisWorkbook.Worksheets If sh.Name <> "TES" Then shNames = shNames & sh.Name & """, """ End If Next shNames = Left(shNames, Len(shNames) - 4) Sheets(Array(shNames)).SelectEnd Sub
Ketika saya jalankan keluar message :Run-time error '9':Subscript out of range
Ketika saya debug maka code ini diberi warna kuning:Sheets(Array(shNames)).Select
Jika disorot warna kuningnya maka akan tampakshNames = "Sheet1", "Sheet2", "Sheet4", "Sheet5" sehingga kalau digabung menjadi:Sheets(Array("Sheet1", "Sheet2", "Sheet4", "Sheet5")).Select
Pertanyaannya (bukan quiz):Dimana salahnya ?
Terima kasih.
Salam,HK
#yiv2264557507 #yiv2264557507 -- #yiv2264557507ygrp-mkp {border:1px solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv2264557507 #yiv2264557507ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv2264557507 #yiv2264557507ygrp-mkp #yiv2264557507hd {color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 0;}#yiv2264557507 #yiv2264557507ygrp-mkp #yiv2264557507ads {margin-bottom:10px;}#yiv2264557507 #yiv2264557507ygrp-mkp .yiv2264557507ad {padding:0 0;}#yiv2264557507 #yiv2264557507ygrp-mkp .yiv2264557507ad p {margin:0;}#yiv2264557507 #yiv2264557507ygrp-mkp .yiv2264557507ad a {color:#0000ff;text-decoration:none;}#yiv2264557507 #yiv2264557507ygrp-sponsor #yiv2264557507ygrp-lc {font-family:Arial;}#yiv2264557507 #yiv2264557507ygrp-sponsor #yiv2264557507ygrp-lc #yiv2264557507hd {margin:10px 0px;font-weight:700;font-size:78%;line-height:122%;}#yiv2264557507 #yiv2264557507ygrp-sponsor #yiv2264557507ygrp-lc .yiv2264557507ad {margin-bottom:10px;padding:0 0;}#yiv2264557507 #yiv2264557507actions {font-family:Verdana;font-size:11px;padding:10px 0;}#yiv2264557507 #yiv2264557507activity {background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv2264557507 #yiv2264557507activity span {font-weight:700;}#yiv2264557507 #yiv2264557507activity span:first-child {text-transform:uppercase;}#yiv2264557507 #yiv2264557507activity span a {color:#5085b6;text-decoration:none;}#yiv2264557507 #yiv2264557507activity span span {color:#ff7900;}#yiv2264557507 #yiv2264557507activity span .yiv2264557507underline {text-decoration:underline;}#yiv2264557507 .yiv2264557507attach {clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 0;width:400px;}#yiv2264557507 .yiv2264557507attach div a {text-decoration:none;}#yiv2264557507 .yiv2264557507attach img {border:none;padding-right:5px;}#yiv2264557507 .yiv2264557507attach label {display:block;margin-bottom:5px;}#yiv2264557507 .yiv2264557507attach label a {text-decoration:none;}#yiv2264557507 blockquote {margin:0 0 0 4px;}#yiv2264557507 .yiv2264557507bold {font-family:Arial;font-size:13px;font-weight:700;}#yiv2264557507 .yiv2264557507bold a {text-decoration:none;}#yiv2264557507 dd.yiv2264557507last p a {font-family:Verdana;font-weight:700;}#yiv2264557507 dd.yiv2264557507last p span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv2264557507 dd.yiv2264557507last p span.yiv2264557507yshortcuts {margin-right:0;}#yiv2264557507 div.yiv2264557507attach-table div div a {text-decoration:none;}#yiv2264557507 div.yiv2264557507attach-table {width:400px;}#yiv2264557507 div.yiv2264557507file-title a, #yiv2264557507 div.yiv2264557507file-title a:active, #yiv2264557507 div.yiv2264557507file-title a:hover, #yiv2264557507 div.yiv2264557507file-title a:visited {text-decoration:none;}#yiv2264557507 div.yiv2264557507photo-title a, #yiv2264557507 div.yiv2264557507photo-title a:active, #yiv2264557507 div.yiv2264557507photo-title a:hover, #yiv2264557507 div.yiv2264557507photo-title a:visited {text-decoration:none;}#yiv2264557507 div#yiv2264557507ygrp-mlmsg #yiv2264557507ygrp-msg p a span.yiv2264557507yshortcuts {font-family:Verdana;font-size:10px;font-weight:normal;}#yiv2264557507 .yiv2264557507green {color:#628c2a;}#yiv2264557507 .yiv2264557507MsoNormal {margin:0 0 0 0;}#yiv2264557507 o {font-size:0;}#yiv2264557507 #yiv2264557507photos div {float:left;width:72px;}#yiv2264557507 #yiv2264557507photos div div {border:1px solid #666666;height:62px;overflow:hidden;width:62px;}#yiv2264557507 #yiv2264557507photos div label {color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv2264557507 #yiv2264557507reco-category {font-size:77%;}#yiv2264557507 #yiv2264557507reco-desc {font-size:77%;}#yiv2264557507 .yiv2264557507replbq {margin:4px;}#yiv2264557507 #yiv2264557507ygrp-actbar div a:first-child {margin-right:2px;padding-right:5px;}#yiv2264557507 #yiv2264557507ygrp-mlmsg {font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv2264557507 #yiv2264557507ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv2264557507 #yiv2264557507ygrp-mlmsg select, #yiv2264557507 input, #yiv2264557507 textarea {font:99% Arial, Helvetica, clean, sans-serif;}#yiv2264557507 #yiv2264557507ygrp-mlmsg pre, #yiv2264557507 code {font:115% monospace;}#yiv2264557507 #yiv2264557507ygrp-mlmsg * {line-height:1.22em;}#yiv2264557507 #yiv2264557507ygrp-mlmsg #yiv2264557507logo {padding-bottom:10px;}#yiv2264557507 #yiv2264557507ygrp-msg p a {font-family:Verdana;}#yiv2264557507 #yiv2264557507ygrp-msg p#yiv2264557507attach-count span {color:#1E66AE;font-weight:700;}#yiv2264557507 #yiv2264557507ygrp-reco #yiv2264557507reco-head {color:#ff7900;font-weight:700;}#yiv2264557507 #yiv2264557507ygrp-reco {margin-bottom:20px;padding:0px;}#yiv2264557507 #yiv2264557507ygrp-sponsor #yiv2264557507ov li a {font-size:130%;text-decoration:none;}#yiv2264557507 #yiv2264557507ygrp-sponsor #yiv2264557507ov li {font-size:77%;list-style-type:square;padding:6px 0;}#yiv2264557507 #yiv2264557507ygrp-sponsor #yiv2264557507ov ul {margin:0;padding:0 0 0 8px;}#yiv2264557507 #yiv2264557507ygrp-text {font-family:Georgia;}#yiv2264557507 #yiv2264557507ygrp-text p {margin:0 0 1em 0;}#yiv2264557507 #yiv2264557507ygrp-text tt {font-size:120%;}#yiv2264557507 #yiv2264557507ygrp-vital ul li:last-child {border-right:
Penulisan type data inilah yang kadang2 masih selip...Saya coba seperti ini ternyata masih error,Sub All_x_Tes() Dim sh As Worksheet Dim shNames As Variant For Each sh In ThisWorkbook.Worksheets If sh.Name <> "TES" Then If shNames = "" Then shNames = """""" shNames = shNames & sh.Name & """"", """"" End If Next shNames = Left(shNames, Len(shNames) - 4) Sheets(Array(shNames)).Select 'masih errorEnd Sub
Mohon petunjuk lebih lanjut mengenai teknis penulisannya.Terima kasih.
Salam,HK
From: "'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com>
To: BeExcel <belajar-excel@yahoogroups.com>
Sent: Wednesday, 18 February 2015, 9:56
Subject: Re: [belajar-excel] Memilih sheets sekaligus kecuali sheet TES
hehehe... kalo ini jelas bukan quiz, soale ada keterangan resminya...
masalahnya adalah tipe data.
Pada
Array("Sheet1", "Sheet2", "Sheet4", "Sheet5")yang berupa string adalah nilai Sheet1 kemudian nilai Sheet2 lalu nilai Sheet4 beserta nilai Sheet5 karena semua nilai-nilai itu didefinisikan dengan diapit tanda petik.
Jadi, bunyi "Sheet1", "Sheet2", "Sheet4", "Sheet5" (secara utuh) bukanlah string yang bernilai "Sheet1", "Sheet2", "Sheet4", "Sheet5"
Array(shNames)dengan shNames bertipe string, jika ditulis lugas akan menjadi :
Array("""Sheet1"", ""Sheet2"", ""Sheet4"", ""Sheet5""")
dan berbeda dengan bunyi :
Array("Sheet1", "Sheet2", "Sheet4", "Sheet5")
bukan ?
bedanya :
Array("Sheet1", "Sheet2", "Sheet4", "Sheet5") membentuk array dengan 4 item didalamnya
dan
Array("""Sheet1"", ""Sheet2"", ""Sheet4"", ""Sheet5""") membentuk array dengan 1 item didalamnya yang berbunyi "Sheet1", "Sheet2", "Sheet4", "Sheet5"hasilnya, proses oleh methods Select menghasilkan error karena tidak ada sheet bernama "Sheet1", "Sheet2", "Sheet4", "Sheet5" dalam workbook.
sekarang pakai bahasa programmer :
Array() adalah function yang bisa menerima parameter berupa array alias daftar
nilai sheet1 yang bertipe teks alias berbunyi lengkap "Sheet1" menjadi nilai parameter ke-1 bagi fungsi Array
begitu pula untuk nilai sheet2, sheet4, dan sheet5.
Regards,
Kid.
2015-02-18 13:42 GMT+11:00 hendrik karnadi hendrikkarnadi@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com>:
Dear be-Exceler,
Beberapa waktu yang lalu pernah ada pertanyaan:"
Jika digunakan rekaman (macro recording) maka codenya seperti ini:Sheets(Array(
Karena jumlah sheet bisa banyak maka saya buat macro seperti ini:Sub All_x_Tes() Dim sh As Worksheet Dim shNames As Variant For Each sh In ThisWorkbook.
Ketika saya jalankan keluar message :Run-time error '9':
Ketika saya debug maka code ini diberi warna kuning:Sheets(
Jika disorot warna kuningnya maka akan tampakshNames = "Sheet1"
Pertanyaannya (bukan quiz):Dimana salahnya ?
Terima kasih.
Salam,HK
#yiv2264557507 #yiv2264557507 -- #yiv2264557507ygrp-