Rabu, 18 Februari 2015

[belajar-excel] Digest Number 3307

12 Messages

Digest #3307
1a
rekonsiliasi by semenjana
1b
Re: rekonsiliasi [1 Attachment] by "Mr. Kid" nmkid.family@ymail.com
2b
3a
Re: Roster 3-1 by "Samsudin"
4a
Memilih sheets sekaligus kecuali sheet TES by "hendrik karnadi" hendrikkarnadi
4b
Re: Memilih sheets sekaligus kecuali sheet TES by "Mr. Kid" nmkid.family@ymail.com
4c
Re: Memilih sheets sekaligus kecuali sheet TES by "hendrik karnadi" hendrikkarnadi
4d
Re: Memilih sheets sekaligus kecuali sheet TES by "Mr. Kid" nmkid.family@ymail.com
4e
Re: Memilih sheets sekaligus kecuali sheet TES by "hendrik karnadi" hendrikkarnadi
5
terbilang formula by "odong nando"
6
Re: terbilang formula [1 Attachment] by "Hendrik Karnadi" hendrikkarnadi

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

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

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

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

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.

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&quot;, "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

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&quot;, "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&quot;, "Sheet2", "Sheet4", "Sheet5")).Select
>
> 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&quot;, "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:none !important;}#yiv2264557507

Tue Feb 17, 2015 10:11 pm (PST) . Posted by:

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

hehehe...

bukan penulisan tipe data yang selip Pak.
Array() menghasilkan suatu daftar
dim variabel as string menghasilkan wadah sebuah nilai

variabel="""sheet1"",""sheet2"",""sheet4"",""sheet5"""
menghasilkan sebuah nilai bertipe string alias teks berbunyi
"sheet1","sheet2","sheet4","sheet5"

gini saja,
coba buat prosedur berisi code 4 baris berbunyi seperti dibawah ini dan
di-run, lalu lihat di sheets ke-1 dalam workbook tersebut

sheets(1).cells.clear

sheets(1).range("a1:d1").value=array( "sheet1" , "sheet2" , "sheet4" ,
"sheet5" ) 'ada 4 item dimasukkan ke fungsi array dan ditulis di 4 cells

sheets(1).range("a7:d7").value=array( "
""sheet1"",""sheet2"",""sheet4"",""sheet5""" ) 'ada 1 item dimasukkan ke
fungsi array dan ditulis di 4 cells

sheets(1).range("a:d").entirecolumn.autofit

Jadi,
baris berbunyi :
shNames = shNames & sh.Name & """"", """""
tidak akan pernah menghasilkan nilai yang sama dengan bunyi
"sheet1" , "sheet2" , "sheet4" , "sheet5"
yang dimasukkan dalam fungsi array, karena
bunyi hasil :
shNames = shNames & sh.Name & """"", """""
selalu hanya 1 bijik nilai
sedangkan bunyi :
"sheet1" , "sheet2" , "sheet4" , "sheet5"
dalam fungsi array yang lengkapnya menjadi :
array( "sheet1" , "sheet2" , "sheet4" , "sheet5" )
terdiri dari 4 nilai yang disusun sebagai sebuah daftar.

Bukankah bunyi
Sheet1
Sheet2
Sheet4
Sheet5
sebagai daftar seperti diatas akan berbeda dengan bunyi sebuah teks dalam
sebuah cell yang tulisannya begini :
"sheet1" , "sheet2" , "sheet4" , "sheet5"

Kalau memang mau menggunakan proses loop tersebut, jadinya seperti ini :
Sub All_x_Tes()
Dim sh As Worksheet
Dim shNames As *Variant* 'harus variant agar bisa menyimpan data array
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)
shNames=split( shNames , "," )
Sheets( shNames ).Select 'gak pakai fungsi array lagi karena arraynya
dibentuk oleh fungsi split
End Sub

variabel shNames di baris berbunyi :
shNames = shNames & sh.Name & """"", """""
dan
shNames = Left(shNames, Len(shNames) - 4)
bertipe string (dari tipe variant diubah menjadi string oleh VB)
kemudian variabel shNames di baris :
shNames=split( shNames , "," )
adalah berupa array alias daftar alias list yang berisi minimal 1 item
dengan tipe data setiap item dalam kasus ini adalah string

Regards,
Kid.

2015-02-18 15:47 GMT+11:00 hendrik karnadi hendrikkarnadi@yahoo.com
[belajar-excel] <belajar-excel@yahoogroups.com>:

>
>
> 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 error
> End 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&quot;, "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&quot;, "Sheet2", "Sheet4", "Sheet5")).Select
>
> Pertanyaannya (bukan quiz):
> Dimana salahnya ?
>
> Terima kasih.
>
> Salam,
> HK
>
>
>
>
>
>
>
>
>
>
>
>
>
>

Tue Feb 17, 2015 11:37 pm (PST) . Posted by:

"hendrik karnadi" hendrikkarnadi

Terima kasih Mr. Kid.Saya terlalu fokus pada stringnya bukan pada Arraynya.Tadi stringnya kebanyakan sudah saya sunting seperti ini:Sub All_x_Tes_Kid()    Dim sh As Worksheet    Dim shNames As Variant 'harus variant agar bisa menyimpan data array    For Each sh In ThisWorkbook.Worksheets        If sh.Name <> "TES" Then           shNames = shNames & sh.Name & ","
        End If    Next    shNames = Left(shNames, Len(shNames) - 1)    shNames = Split(shNames, ",")    Sheets(shNames).Select   'gak pakai fungsi array lagi karena arraynya dibentuk oleh fungsi splitEnd Sub
Sekali lagi 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, 13:10
Subject: Re: [belajar-excel] Memilih sheets sekaligus kecuali sheet TES

  hehehe...

bukan penulisan tipe data yang selip Pak.
Array() menghasilkan suatu daftar
dim variabel as string menghasilkan wadah sebuah nilai

variabel="""sheet1"",""sheet2"",""sheet4"",""sheet5"""
menghasilkan sebuah nilai bertipe string alias teks berbunyi "sheet1","sheet2","sheet4","sheet5"

gini saja,
coba buat prosedur berisi code 4 baris berbunyi seperti dibawah ini dan di-run, lalu lihat di sheets ke-1 dalam workbook tersebut

sheets(1).cells.clear

sheets(1).range("a1:d1").value=array( "sheet1" , "sheet2" , "sheet4" , "sheet5" )   'ada 4 item dimasukkan ke fungsi array dan ditulis di 4 cells

sheets(1).range("a7:d7").value=array( """sheet1"",""sheet2"",""sheet4"",""sheet5""" ) 'ada 1 item dimasukkan ke fungsi array dan ditulis di 4 cells

sheets(1).range("a:d").entirecolumn.autofit

Jadi,
baris berbunyi :
    shNames = shNames & sh.Name & """"", """""
tidak akan pernah menghasilkan nilai yang sama dengan bunyi
    "sheet1" , "sheet2" , "sheet4" , "sheet5"
yang dimasukkan dalam fungsi array, karena
bunyi hasil :
   shNames = shNames & sh.Name & """"", """""  
selalu hanya 1 bijik nilai
sedangkan bunyi :
    "sheet1" , "sheet2" , "sheet4" , "sheet5"
dalam fungsi array yang lengkapnya menjadi :
    array( "sheet1" , "sheet2" , "sheet4" , "sheet5" )
terdiri dari 4 nilai yang disusun sebagai sebuah daftar.

Bukankah bunyi
Sheet1
Sheet2
Sheet4
Sheet5
sebagai daftar seperti diatas akan berbeda dengan bunyi sebuah teks dalam sebuah cell yang tulisannya begini :
"sheet1" , "sheet2" , "sheet4" , "sheet5"

Kalau memang mau menggunakan proses loop tersebut, jadinya seperti ini :
Sub All_x_Tes()    Dim sh As Worksheet    Dim shNames As Variant 'harus variant agar bisa menyimpan data array
    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)    shNames=split( shNames , "," )
    Sheets( shNames ).Select 'gak pakai fungsi array lagi karena arraynya dibentuk oleh fungsi split
End Sub
variabel shNames di baris berbunyi :
    shNames = shNames & sh.Name & """"", """""dan
    shNames = Left(shNames, Len(shNames) - 4)
bertipe string (dari tipe variant diubah menjadi string oleh VB)
kemudian variabel shNames di baris :
    shNames=split( shNames , "," )
adalah berupa array alias daftar alias list yang berisi minimal 1 item dengan tipe data setiap item dalam kasus ini adalah string

Regards,
Kid.

2015-02-18 15:47 GMT+11:00 hendrik karnadi hendrikkarnadi@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com>:

  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&quot;, "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

#yiv7095432589 #yiv7095432589 -- #yiv7095432589ygrp-mkp {border:1px solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv7095432589 #yiv7095432589ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv7095432589 #yiv7095432589ygrp-mkp #yiv7095432589hd {color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 0;}#yiv7095432589 #yiv7095432589ygrp-mkp #yiv7095432589ads {margin-bottom:10px;}#yiv7095432589 #yiv7095432589ygrp-mkp .yiv7095432589ad {padding:0 0;}#yiv7095432589 #yiv7095432589ygrp-mkp .yiv7095432589ad p {margin:0;}#yiv7095432589 #yiv7095432589ygrp-mkp .yiv7095432589ad a {color:#0000ff;text-decoration:none;}#yiv7095432589 #yiv7095432589ygrp-sponsor #yiv7095432589ygrp-lc {font-family:Arial;}#yiv7095432589 #yiv7095432589ygrp-sponsor #yiv7095432589ygrp-lc #yiv7095432589hd {margin:10px 0px;font-weight:700;font-size:78%;line-height:122%;}#yiv7095432589 #yiv7095432589ygrp-sponsor #yiv7095432589ygrp-lc .yiv7095432589ad {margin-bottom:10px;padding:0 0;}#yiv7095432589 #yiv7095432589actions {font-family:Verdana;font-size:11px;padding:10px 0;}#yiv7095432589 #yiv7095432589activity {background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv7095432589 #yiv7095432589activity span {font-weight:700;}#yiv7095432589 #yiv7095432589activity span:first-child {text-transform:uppercase;}#yiv7095432589 #yiv7095432589activity span a {color:#5085b6;text-decoration:none;}#yiv7095432589 #yiv7095432589activity span span {color:#ff7900;}#yiv7095432589 #yiv7095432589activity span .yiv7095432589underline {text-decoration:underline;}#yiv7095432589 .yiv7095432589attach {clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 0;width:400px;}#yiv7095432589 .yiv7095432589attach div a {text-decoration:none;}#yiv7095432589 .yiv7095432589attach img {border:none;padding-right:5px;}#yiv7095432589 .yiv7095432589attach label {display:block;margin-bottom:5px;}#yiv7095432589 .yiv7095432589attach label a {text-decoration:none;}#yiv7095432589 blockquote {margin:0 0 0 4px;}#yiv7095432589 .yiv7095432589bold {font-family:Arial;font-size:13px;font-weight:700;}#yiv7095432589 .yiv7095432589bold a {text-decoration:none;}#yiv7095432589 dd.yiv7095432589last p a {font-family:Verdana;font-weight:700;}#yiv7095432589 dd.yiv7095432589last p span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv7095432589 dd.yiv7095432589last p span.yiv7095432589yshortcuts {margin-right:0;}#yiv7095432589 div.yiv7095432589attach-table div div a {text-decoration:none;}#yiv7095432589 div.yiv7095432589attach-table {width:400px;}#yiv7095432589 div.yiv7095432589file-title a, #yiv7095432589 div.yiv7095432589file-title a:active, #yiv7095432589 div.yiv7095432589file-title a:hover, #yiv7095432589 div.yiv7095432589file-title a:visited {text-decoration:none;}#yiv7095432589 div.yiv7095432589photo-title a, #yiv7095432589 div.yiv7095432589photo-title a:active, #yiv7095432589 div.yiv7095432589photo-title a:hover, #yiv7095432589 div.yiv7095432589photo-title a:visited {text-decoration:none;}#yiv7095432589 div#yiv7095432589ygrp-mlmsg #yiv7095432589ygrp-msg p a span.yiv7095432589yshortcuts {font-family:Verdana;font-size:10px;font-weight:normal;}#yiv7095432589 .yiv7095432589green {color:#628c2a;}#yiv7095432589 .yiv7095432589MsoNormal {margin:0 0 0 0;}#yiv7095432589 o {font-size:0;}#yiv7095432589 #yiv7095432589photos div {float:left;width:72px;}#yiv7095432589 #yiv7095432589photos div div {border:1px solid #666666;height:62px;overflow:hidden;width:62px;}#yiv7095432589 #yiv7095432589photos div label {color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv7095432589 #yiv7095432589reco-category {font-size:77%;}#yiv7095432589 #yiv7095432589reco-desc {font-size:77%;}#yiv7095432589 .yiv7095432589replbq {margin:4px;}#yiv7095432589 #yiv7095432589ygrp-actbar div a:first-child {margin-right:2px;padding-right:5px;}#yiv7095432589 #yiv7095432589ygrp-mlmsg {font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv7095432589 #yiv7095432589ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv7095432589 #yiv7095432589ygrp-mlmsg select, #yiv7095432589 input, #yiv7095432589 textarea {font:99% Arial, Helvetica, clean, sans-serif;}#yiv7095432589 #yiv7095432589ygrp-mlmsg pre, #yiv7095432589 code {font:115% monospace;}#yiv7095432589 #yiv7095432589ygrp-mlmsg * {line-height:1.22em;}#yiv7095432589 #yiv7095432589ygrp-mlmsg #yiv7095432589logo {padding-bottom:10px;}#yiv7095432589 #yiv7095432589ygrp-msg p a {font-family:Verdana;}#yiv7095432589 #yiv7095432589ygrp-msg p#yiv7095432589attach-count span {color:#1E66AE;font-weight:700;}#yiv7095432589 #yiv7095432589ygrp-reco #yiv7095432589reco-head {color:#ff7900;font-weight:700;}#yiv7095432589 #yiv7095432589ygrp-reco {margin-bottom:20px;padding:0px;}#yiv7095432589 #yiv7095432589ygrp-sponsor #yiv7095432589ov li a {font-size:130%;text-decoration:none;}#yiv7095432589 #yiv7095432589ygrp-sponsor #yiv7095432589ov li {font-size:77%;list-style-type:square;padding:6px 0;}#yiv7095432589 #yiv7095432589ygrp-sponsor #yiv7095432589ov ul {margin:0;padding:0 0 0 8px;}#yiv7095432589 #yiv7095432589ygrp-text {font-family:Georgia;}#yiv7095432589 #yiv7095432589ygrp-text p {margin:0 0 1em 0;}#yiv7095432589 #yiv7095432589ygrp-text tt {font-size:120%;}#yiv7095432589 #yiv7095432589ygrp-vital ul li:last-child {border-right:none !important;}#yiv7095432589

Tue Feb 17, 2015 8:58 pm (PST) . Posted by:

"odong nando"

dear pak hendrik,
mo nyumbang formula terbilang neh, sapa tau bermanfaat bwt rekan2 yang laen.... :)
tadinya mo langsung mo nambahin di dropbox, cuma ga enak klo bukan yang punya folder yang nambahin... thx,

odong nando

Tue Feb 17, 2015 11:04 pm (PST) . Posted by:

"Hendrik Karnadi" hendrikkarnadi

Silakan saja pak.

Salam,
HK

Sent from Samsung Mobile

<div>-------- Original message --------</div><div>From: "odong nando odongnando@yahoo.com [belajar-excel]" <belajar-excel@yahoogroups.com> </div><div>Date:18/02/2015 11:52 (GMT+07:00) </div><div>To: "hendrik karnadi hendrikkarnadi@yahoo.com [belajar-excel]" <belajar-excel@yahoogroups.com> </div><div>Subject: [belajar-excel] terbilang formula [1 Attachment] </div><div>
</div>dear pak hendrik,

mo nyumbang formula terbilang neh, sapa tau bermanfaat bwt rekan2 yang laen.... :)
tadinya mo langsung mo nambahin di dropbox, cuma ga enak klo bukan yang punya folder yang nambahin...

thx,

odong nando
============================================================
Pojok Lowongan Kerja yang disediakan milis :
http://milis-belajar-excel.1048464.n5.nabble.com/Pojok-Lowongan-Kerja-f5725753.html
*** Posting lowongan kerja : ke link tersebut dan klik New Topic
============================================================
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