Sabtu, 12 November 2016

[belajar-excel] Digest Number 4014

2 Messages

Digest #4014
1b
Re: filter sesuai data di sheet terpilih by "Mr. Kid" nmkid.family@ymail.com

Messages

Fri Nov 11, 2016 7:52 pm (PST) . Posted by:

"achmad adi" didon13@ymail.com

to mr kid.sebelumnya terimakasih ...
kalo seandainya waktu penampilan SEMUA( data semua sheet )
nama sheet bukan numeric(1.2.3) tapi diganti dengan kata (misal: gudang.kantor.areal)untuk prosedurnya gimana....mohon bantuannya,,,


Pada Selasa, 25 Oktober 2016 18:37, "'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:


  Hai Didon,

Terlampir contohnya.

Regards,
Kid

2016-10-24 21:34 GMT+07:00 achmad adi didon13@ymail.com [belajar-excel] <belajar-excel@yahoogroups.com>:

  dear master,,,saya mencoba membuat adv filter tapi hanya di sheet 1 aja yang bisa difilter...yang ingin saya tanyakan,,,seadainya saya ingin memfilter data tetapi berdasarkan data sheet terpilih..bagaimanakah caranya...mohon pencerahaannya,,,saya lampirkan file

sebelumnya saya sampaikan terimakasih


#yiv7636466191 #yiv7636466191 -- #yiv7636466191ygrp-mkp {border:1px solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv7636466191 #yiv7636466191ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv7636466191 #yiv7636466191ygrp-mkp #yiv7636466191hd {color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 0;}#yiv7636466191 #yiv7636466191ygrp-mkp #yiv7636466191ads {margin-bottom:10px;}#yiv7636466191 #yiv7636466191ygrp-mkp .yiv7636466191ad {padding:0 0;}#yiv7636466191 #yiv7636466191ygrp-mkp .yiv7636466191ad p {margin:0;}#yiv7636466191 #yiv7636466191ygrp-mkp .yiv7636466191ad a {color:#0000ff;text-decoration:none;}#yiv7636466191 #yiv7636466191ygrp-sponsor #yiv7636466191ygrp-lc {font-family:Arial;}#yiv7636466191 #yiv7636466191ygrp-sponsor #yiv7636466191ygrp-lc #yiv7636466191hd {margin:10px 0px;font-weight:700;font-size:78%;line-height:122%;}#yiv7636466191 #yiv7636466191ygrp-sponsor #yiv7636466191ygrp-lc .yiv7636466191ad {margin-bottom:10px;padding:0 0;}#yiv7636466191 #yiv7636466191actions {font-family:Verdana;font-size:11px;padding:10px 0;}#yiv7636466191 #yiv7636466191activity {background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv7636466191 #yiv7636466191activity span {font-weight:700;}#yiv7636466191 #yiv7636466191activity span:first-child {text-transform:uppercase;}#yiv7636466191 #yiv7636466191activity span a {color:#5085b6;text-decoration:none;}#yiv7636466191 #yiv7636466191activity span span {color:#ff7900;}#yiv7636466191 #yiv7636466191activity span .yiv7636466191underline {text-decoration:underline;}#yiv7636466191 .yiv7636466191attach {clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 0;width:400px;}#yiv7636466191 .yiv7636466191attach div a {text-decoration:none;}#yiv7636466191 .yiv7636466191attach img {border:none;padding-right:5px;}#yiv7636466191 .yiv7636466191attach label {display:block;margin-bottom:5px;}#yiv7636466191 .yiv7636466191attach label a {text-decoration:none;}#yiv7636466191 blockquote {margin:0 0 0 4px;}#yiv7636466191 .yiv7636466191bold {font-family:Arial;font-size:13px;font-weight:700;}#yiv7636466191 .yiv7636466191bold a {text-decoration:none;}#yiv7636466191 dd.yiv7636466191last p a {font-family:Verdana;font-weight:700;}#yiv7636466191 dd.yiv7636466191last p span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv7636466191 dd.yiv7636466191last p span.yiv7636466191yshortcuts {margin-right:0;}#yiv7636466191 div.yiv7636466191attach-table div div a {text-decoration:none;}#yiv7636466191 div.yiv7636466191attach-table {width:400px;}#yiv7636466191 div.yiv7636466191file-title a, #yiv7636466191 div.yiv7636466191file-title a:active, #yiv7636466191 div.yiv7636466191file-title a:hover, #yiv7636466191 div.yiv7636466191file-title a:visited {text-decoration:none;}#yiv7636466191 div.yiv7636466191photo-title a, #yiv7636466191 div.yiv7636466191photo-title a:active, #yiv7636466191 div.yiv7636466191photo-title a:hover, #yiv7636466191 div.yiv7636466191photo-title a:visited {text-decoration:none;}#yiv7636466191 div#yiv7636466191ygrp-mlmsg #yiv7636466191ygrp-msg p a span.yiv7636466191yshortcuts {font-family:Verdana;font-size:10px;font-weight:normal;}#yiv7636466191 .yiv7636466191green {color:#628c2a;}#yiv7636466191 .yiv7636466191MsoNormal {margin:0 0 0 0;}#yiv7636466191 o {font-size:0;}#yiv7636466191 #yiv7636466191photos div {float:left;width:72px;}#yiv7636466191 #yiv7636466191photos div div {border:1px solid #666666;height:62px;overflow:hidden;width:62px;}#yiv7636466191 #yiv7636466191photos div label {color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv7636466191 #yiv7636466191reco-category {font-size:77%;}#yiv7636466191 #yiv7636466191reco-desc {font-size:77%;}#yiv7636466191 .yiv7636466191replbq {margin:4px;}#yiv7636466191 #yiv7636466191ygrp-actbar div a:first-child {margin-right:2px;padding-right:5px;}#yiv7636466191 #yiv7636466191ygrp-mlmsg {font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv7636466191 #yiv7636466191ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv7636466191 #yiv7636466191ygrp-mlmsg select, #yiv7636466191 input, #yiv7636466191 textarea {font:99% Arial, Helvetica, clean, sans-serif;}#yiv7636466191 #yiv7636466191ygrp-mlmsg pre, #yiv7636466191 code {font:115% monospace;}#yiv7636466191 #yiv7636466191ygrp-mlmsg * {line-height:1.22em;}#yiv7636466191 #yiv7636466191ygrp-mlmsg #yiv7636466191logo {padding-bottom:10px;}#yiv7636466191 #yiv7636466191ygrp-msg p a {font-family:Verdana;}#yiv7636466191 #yiv7636466191ygrp-msg p#yiv7636466191attach-count span {color:#1E66AE;font-weight:700;}#yiv7636466191 #yiv7636466191ygrp-reco #yiv7636466191reco-head {color:#ff7900;font-weight:700;}#yiv7636466191 #yiv7636466191ygrp-reco {margin-bottom:20px;padding:0px;}#yiv7636466191 #yiv7636466191ygrp-sponsor #yiv7636466191ov li a {font-size:130%;text-decoration:none;}#yiv7636466191 #yiv7636466191ygrp-sponsor #yiv7636466191ov li {font-size:77%;list-style-type:square;padding:6px 0;}#yiv7636466191 #yiv7636466191ygrp-sponsor #yiv7636466191ov ul {margin:0;padding:0 0 0 8px;}#yiv7636466191 #yiv7636466191ygrp-text {font-family:Georgia;}#yiv7636466191 #yiv7636466191ygrp-text p {margin:0 0 1em 0;}#yiv7636466191 #yiv7636466191ygrp-text tt {font-size:120%;}#yiv7636466191 #yiv7636466191ygrp-vital ul li:last-child {border-right:none !important;}#yiv7636466191

Sat Nov 12, 2016 12:11 am (PST) . Posted by:

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

hmmm....

Jadinya baris cek ada atau tidaknya si sheet diubah sesuai kebutuhan.
Artinya, baris if isnumeric(sshtname) then diganti dengan kondisi lainnya
yang sesuai (bagian isnumeric-nya diganti dengan cara cek lainnya).

hehehe...
pertanyaan Anda sebenarnya adalah bunyi ceknya seperti apa? gitu kan ya...

Ada banyak cara, antara lain :
cara 1. buat prosedur baru yang bertugas untuk loop setiap sheet yang ada,
lalu periksa apakah sheet tersebut memiliki nama seperti yang dipilih user.
> misal di prosedur baru di module tersebut juga
private function CekSheet(sNamaSheet as string) as boolean
dim sht as worksheet
for each sht in thisworkbook.worksheets 'sesuaikan
sendiri bila berkaitan dengan workbook lain
if lcase(sht.name)=snamasheet then
CekSheet=true
exit function
endif
next sht
end function
> lalu baris if isnumeric( blabla dalam prosedur filter diganti
menjadi :
if ceksheet(sshtname) then
cara 2. menyimpan
> misal di prosedur baru di module tersebut juga
private function CekSheet(sNamaSheet as string) as boolean
dim sht as worksheet
on error resume next
set sht=sheets(sNamaSheet) 'sesuaikan sendiri bila
berkaitan dengan workbook lain
err.clear
on error goto 0
CekSheet=not (sht is nothing)
end function
> lalu baris if isnumeric( blabla dalam prosedur filter diganti
menjadi :
if ceksheet(sshtname) then
cara 3. memanfaatkan formula Excel untuk memeriksa apakah suatu ekspresi
dalam formula itu adalah sebuah reference
> baris if isnumeric( blabla dalam prosedur filter diganti menjadi :
if evaluate("=isref('" & sshtname & "'!a1)") then 'sesuaikan
sendiri bila berkaitan dengan workbook lain

Kalau saya,
> jika user TIDAK mungkin mengganti nama sheet (dibuat untuk pasti TIDAK
akan mengganti nama sheet), maka saya pakai yang nomor 3
> jika saya tidak mau repot dengan kondisi workbook yang bisa jadi perlu
dibatasi agar nama sheet tidak boleh diubah, maka saya pakai nomor 1 dengan
membuat tabel referensi nama data (BUKAN nama panggilan sheet) beserta nama
akte kelahiran si sheet, dan yang dicek adalah nama akte kelahiran sheet
(properti codename) bukan nama nama panggilan sheet (properti name). Jadi,
user boleh mengganti nama sheet sesuka hatinya.

Regards,
Kid

On Sat, Nov 12, 2016 at 9:37 AM, achmad adi didon13@ymail.com
[belajar-excel] <belajar-excel@yahoogroups.com> wrote:

>
>
> to mr kid.
> sebelumnya terimakasih ...
>
> kalo seandainya waktu penampilan SEMUA( data semua sheet )
> nama sheet bukan numeric(1.2.3) tapi diganti dengan kata (misal:
> gudang.kantor.areal)
> untuk prosedurnya gimana....
> mohon bantuannya,,,
>
>
> Pada Selasa, 25 Oktober 2016 18:37, "'Mr. Kid' mr.nmkid@gmail.com
> [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
>
>
>
> Hai Didon,
>
> Terlampir contohnya.
>
> Regards,
> Kid
>
>
>
>
>
>
> 2016-10-24 21:34 GMT+07:00 achmad adi didon13@ymail.com [belajar-excel] <
> belajar-excel@yahoogroups.com>:
>
>
> dear master,,,
> saya mencoba membuat adv filter tapi hanya di sheet 1 aja yang bisa
> difilter...
> yang ingin saya tanyakan,,,
> seadainya saya ingin memfilter data tetapi berdasarkan data sheet
> terpilih..
> bagaimanakah caranya...
> mohon pencerahaannya,,,saya lampirkan file
>
> sebelumnya saya sampaikan terimakasih
>
>
>
>
>
>
============================================================
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:

Poskan Komentar