Jumat, 12 April 2013

[belajar-excel] Digest Number 2229

15 New Messages

Digest #2229
2a
Re: Menampilkan Pop-up kalender pada Form by "Mr. Kid" nmkid.family@ymail.com
2b
Re: Menampilkan Pop-up kalender pada Form by "lapendosol opik" lapendosol
2c
Re: Menampilkan Pop-up kalender pada Form by "Mr. Kid" nmkid.family@ymail.com
3a
Re: Cari Peringkat by "Bagus" bagus4bls
3b
Re: Cari Peringkat by "bagus" bagus4bls
3c
Re: Cari Peringkat by "Mr. Kid" nmkid.family@ymail.com
3d
Re: Cari Peringkat by "Bagus" bagus4bls
4a
Re: Fw: Menghapus nilai 0 sekaligus by "Mr. Kid" nmkid.family@ymail.com
4b
Re: Fw: Menghapus nilai 0 sekaligus by "zainul_ulum[at]yahoo[dot]com" zainul_ulum
4c
Re: Fw: Menghapus nilai 0 sekaligus by "Mr. Kid" nmkid.family@ymail.com
5a
Re: Absen Guru dan Pegawai by "Mr. Kid" nmkid.family@ymail.com
6a
Re: menjumlahkan nilai berdasarkan kode by "Mr. Kid" nmkid.family@ymail.com
7a
Mencari data ganda by "yudha pramudji" yudha_pramudji
7b
Re: Mencari data ganda by "yudha pramudji" yudha_pramudji

Messages

Thu Apr 11, 2013 11:19 pm (PDT) . Posted by:

"lkm jktind" lkmjkt

Bu Jan Raisin.
sudah bisa , dan terima kasih.

Salam

Lukman

2013/4/12 Jan Raisin <miss.jan.raisin@gmail.com>

> **
>
>
> coba ubah deklarasi fungsi-nya menjadi seperti ini:
>
> #If VBA7 And Win64 Then
> Private Declare PtrSafe Function QueryPerformanceCounter Lib
> "kernel32.dll" (ByRef lpPerformanceCount As LARGE_INTEGER) As Long
> #Else
> Private Declare Function QueryPerformanceCounter Lib "kernel32.dll"
> (ByRef lpPerformanceCount As LARGE_INTEGER) As Long
> #End If
>
> semoga bisa berjalan di semua versi excel baik 32-bit maupun 64-bit
>
> Wassalam,
>
> -Miss Jan Raisin-
>
>
> Pada 11 April 2013 23.37, lkm jktind <lkmjktind@gmail.com> menulis:
>
> **
>>
>>
>> Pak Kid.
>>
>> File yg bapak kirimkan di tempat . ada errornya
>>
>> excel yg aku gunakan ver 2010. 64bit
>> OS nya : win 7
>>
>> Bagaimana cara untuk memperbaikinya ?
>>
>>
>>
>> Lukman
>>
>>
>>
>> 2013/4/11 Mr. Kid <mr.nmkid@gmail.com>
>>
>> **
>>>
>>>
>>> Yup... penggunaan enum ataupun indeks akan lebih cepat dibanding inputan
>>> untuk parameter yang berupa string.
>>> Pada komputer sekarang, mestinya selisih ini tidak akan sampai 200 tick.
>>> Perkiraannya hanya sekitar kurang dari 10 tick.
>>> Jika terjadi perbedaan yang lebih dari 10 tick, bisa jadi karena proses
>>> fungsinya yang bekerja lambat.
>>>
>>> Misal pada :
>>> Columns("A:A").Find(vbNullString).Select
>>> dan
>>> Columns(1).Find(vbNullString).Select
>>>
>>> Perbedaan tick akibat indeks 1 maupun string input parameter "A:A" tidak
>>> akan lebih dari 10 tick (tetap perkiraan wakakaka)
>>> Sedang dampak dari performa fungsi Find (algoritma dalam fungsi Find)
>>> cenderung lebih dominan. Jika pada jumlah record yang banyak, akan tampak
>>> penurunan performa secara signifikan.
>>> Proses sisi Columns tetaplah hanya 1 kali proses. Proses yang banyak ada
>>> didalam fungsi Find.
>>>
>>> Tentu saja hal ini tidak akan lepas dari pengaruh lingkungan
>>> (proses-proses lain dalam lingkungan [windows]).
>>> Misal pada kasus :
>>> Cells(Rows.Count, 1).End(3).Offset(1).Select
>>> dan
>>> cells(rows.count,1).end(xlup).offset(1).select
>>>
>>> secara logika, nilai 3 dan xlUp bukanlah merujuk kepada nilai
>>> sesungguhnya. Nilai 3 adalah indeks panah ke atas keyboard, dan xlUp adalah
>>> enum dari direction yang bernilai -4162. Penggunaan nilai 3 dan xlUp akan
>>> mengalami proses penerjemahan menjadi nilai konstanta yang sesuai dengan
>>> kebutuhan methods End. Jadi selisihnya pastilah tidak akan lebih dari 5
>>> tick (bahkan mungkin 1 atau 2 tick saja selisihnya).
>>> Bahkan penggunaan nilai -4162 secara langsung pun tidak akan berpengaruh
>>> besar. Andai lebih cepat pun kiranya sekitar 1 atau 2 tick juga.
>>> Pada saat record sangat banyak, maka proses UP ke nilai data terakhir
>>> akan menjadi semakin pendek. Pada jumlah record yang sedikit, proses UP
>>> akan lebih panjang dan jumlah tick akan meningkat.
>>> Jadi antara kedua script di atas, akan relatif dipengaruhi oleh :
>>> 1. kondisi lingkungan (proses-proses lain yang diproses Windows,
>>> sehingga terjadi antrian thread dalam prosesor)
>>> 2. jumlah record yang menyebabkan perbedaan jarak saat proses UP.
>>>
>>> File terlampir bisa dicoba.
>>> 1. Ketika range J4:J11 diisi dengan opsi_id yang bermacam-macam
>>> 2. Ketika range J4:J11 diisi dengan sebuah opsi_id kemudian RUN, lalu
>>> diganti opsi_id lain dan di-RUN untuk membandingkan antar opsi_id
>>>
>>> Tapi yang jelas, proses terhadap string pastilah lebih lambat dibanding
>>> terhadap data numerik, apalagi data numerik dengan tipe data yang pas
>>> dengan bit Operating System yang digunakan. Untungnya, kecepatan prosesor
>>> saat ini, akan memberi perbedaan ketika jumlah prosesnya sangat buanyak
>>> sekali.
>>>
>>> Mungkin gitu kali ya... kalau salah, mohon dikoreksi ya...
>>>
>>> Wassalamu'alaikum Wr. Wb.
>>> Kid.
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>> 2013/4/11 summonery <summonery@yahoo.com>
>>>
>>>> **
>>>>
>>>>
>>>> Proses jadi lebih cepat dikarenakan penyampaian menggunakan index atau
>>>> enumerasinya lebih cepat ditangkap oleh Excel ketimbang penyampaian
>>>> menggunakan teks.
>>>>
>>>> coba juga,
>>>> Cells(Rows.Count, 1).End(3)(2).Select
>>>>
>>>> *O iya, diluar asumsi kasus pak Hendrik, mungkin mis Jan tertarik
>>>> bagaimana perbandingan performanya apabila: misal, data dati row1 s.d.
>>>> row1000000 kesemuanya (kita ekstrimkan) merupakan nullstring. Kita ketik di
>>>> cell A1 formula ="" kemudian copy paste sampai row1000000, setelah itu
>>>> semuanya divaluekan, copypastespecial: value row1:row1000000.*
>>>> *
>>>> *
>>>> *
>>>> *
>>>> >semoga bermanfaat
>>>>
>>>>
>>>> --- In belajar-excel@yahoogroups.com, Jan Raisin <miss.jan.raisin@...>
>>>> wrote:
>>>> >
>>>> > ini adalah hasil percobaan dengan keempat script
>>>> >
>>>> > script 1 dari pak hendrik
>>>> > script 2 dari mr kid
>>>> > script 3 & 4 dari pak Anton
>>>> >
>>>> > hasilnya sbb:
>>>> >
>>>> > cara 1 : Columns("A:A").Find(vbNullString).Select Alamat akhir : $A$4
>>>> > Waktu : 0 | 4877
>>>> > cara 2 : cells(rows.count,1).end(xlup).offset(1).select Alamat akhir
>>>> : $A$4
>>>> > Waktu : 0 | 1435
>>>> > cara 3 : Columns(1).Find(").Select Alamat akhir : $A$4 Waktu
>>>> > : 0 | 2371
>>>> > cara 4 : Cells(Rows.Count, 1).End(3).Offset(1).Select Alamat akhir :
>>>> $A$4
>>>> > Waktu : 0 | 589
>>>> >
>>>> > ternyata yang paling cepat adalah script nomor 4 dari pak Anton,
>>>> > padahal scriptnta mirip dengan script nomor 2 dari mr kid tapi
>>>> perbedaan
>>>> > waktunya bisa hampir sepertiganya sendiri.
>>>> >
>>>> > Bisa tolong dijelaskan oleh pak Anton atau mr Kid?
>>>> >
>>>> > Wassalam,
>>>> >
>>>> > -MJR-
>>>> >
>>>>
>>>>
>>>
>>
>
>

Thu Apr 11, 2013 11:26 pm (PDT) . Posted by:

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

Pada Excel Options -> page Trust center -> klik tombol Trust Center
Settings -> page ActiveX Controls -> pilih Enable -> OK sampai worksheet

Wassalam,
Kid.

2013/4/12 lapendosol opik <lapendosol@yahoo.com>

> **
>
>
> Udah bisa mas,
> Saya udah register mscomct2.ocx dengan aplikasi tambahan register ocx.exe
> Sudah saya pasang DTpickernya di vba, pas di run sih belum ada masalah (di
> PC saya),
> Tapi tiap run awal (pertama kali file excelnya dibuka), selalu tampil
> peringatan:
>
> This application is about to initialize ActiveX controls that might be
> unsafe. If you trust the source of this file, select OK and the controls
> will
> be initialized using your current workspace settings.
>
> Gimana caranya biar ga nongol itu terus ya?
> Trimakasih
> Wassalam,
>
>
>
> ------------------------------
> *From:* lapendosol opik <lapendosol@yahoo.com>
> *To:* "belajar-excel@yahoogroups.com" <belajar-excel@yahoogroups.com>
> *Sent:* Friday, April 12, 2013 12:16 PM
>
> *Subject:* Re: [belajar-excel] Menampilkan Pop-up kalender pada Form
>
>
> Makasih mas Kid,
> Gimana caranya download file2 terlampir ditopik yang bersangkutan? Supaya
> bisa mengikuti topiknya, kayanya kasusnya hampir sama tentang pembukuan
> *re-Pengiriman BUKU.xlsx *dll
> Saya cari kok ga nemu2 Mas
> Trimakasih
> Wassalam,
> *
> *
>
> ------------------------------
> *From:* Mr. Kid <mr.nmkid@gmail.com>
> *To:* BeExcel <belajar-excel@yahoogroups.com>
> *Sent:* Friday, April 12, 2013 10:16 AM
> *Subject:* Re: [belajar-excel] Menampilkan Pop-up kalender pada Form
>
>
> Silakan ke :
> http://tech.groups.yahoo.com/group/belajar-excel/message/23263
> dan ikuti semua link yang ada disana bila diperlukan.
>
>
> Wassalam,
> Kid.
>
>
>
> 2013/4/11 lapendosol opik <lapendosol@yahoo.com>
>
> **
>
> Dear master be-Excel
> Saya membuat form di vba, saya ingin menambahkan combobox kalender pada
> form tersebut seperti terlampir
> Bagaimana cara menambahkan kalendernya ke form?
> Jika informasi cpunya berpengaruh, saya pakai:
> Microsoft Office Professional Plus 2010
> Windows 7 Professional
> Intel(R) Core(TM) i3-2310M 2.10GHz
> 2 GB ram
> 32-bit
>
> Sebelumnya saya ucapkan terimakasih
> Wassalam,
>
>
>
>
>
>
>
>

Thu Apr 11, 2013 11:40 pm (PDT) . Posted by:

"lapendosol opik" lapendosol

Udah di enable mas, tapi tetep nongol informasinya
Wassalam,

________________________________
From: Mr. Kid <mr.nmkid@gmail.com>
To: BeExcel <belajar-excel@yahoogroups.com>
Sent: Friday, April 12, 2013 1:25 PM
Subject: Re: [belajar-excel] Menampilkan Pop-up kalender pada Form


 
Pada Excel Options -> page Trust center -> klik tombol Trust Center Settings -> page ActiveX Controls -> pilih Enable -> OK sampai worksheet

Wassalam,
Kid.

2013/4/12 lapendosol opik <lapendosol@yahoo.com>


>Udah bisa mas,
>Saya udah register mscomct2.ocx dengan aplikasi tambahan register ocx.exe
>Sudah saya pasang DTpickernya di vba, pas di run sih belum ada masalah (di PC saya),
>Tapi tiap run awal (pertama kali file excelnya dibuka), selalu tampil peringatan:
>
>This application is about to initialize ActiveX controls that might be
>unsafe. If you trust the source of this file, select OK and the controls will
>be initialized using your current workspace settings.
>
>Gimana caranya biar ga nongol itu terus ya?
>Trimakasih
>Wassalam,
>
>
>
>
>
>
>
>________________________________
> From: lapendosol opik <lapendosol@yahoo.com>
>To: "belajar-excel@yahoogroups.com" <belajar-excel@yahoogroups.com>
>Sent: Friday, April 12, 2013 12:16 PM
>
>Subject: Re: [belajar-excel] Menampilkan Pop-up kalender pada Form
>
>
>

>Makasih mas Kid,
>Gimana caranya download file2 terlampir ditopik yang bersangkutan? Supaya bisa mengikuti topiknya, kayanya kasusnya hampir sama tentang pembukuan
>
>re-Pengiriman BUKU.xlsx dll
>Saya cari kok ga nemu2 Mas
>Trimakasih
>Wassalam,
>
>
>
>
>
>
>________________________________
> From: Mr. Kid <mr.nmkid@gmail.com>
>To: BeExcel <belajar-excel@yahoogroups.com>
>Sent: Friday, April 12, 2013 10:16 AM
>Subject: Re: [belajar-excel] Menampilkan Pop-up kalender pada Form
>
>
>

>Silakan ke :
>http://tech.groups.yahoo.com/group/belajar-excel/message/23263
>dan ikuti semua link yang ada disana bila diperlukan.
>
>
>Wassalam,
>Kid.
>
>
>
>
>
>2013/4/11 lapendosol opik <lapendosol@yahoo.com>
>
>
>> 
>>Dear master be-Excel
>>Saya membuat form di vba, saya ingin menambahkan combobox kalender pada form tersebut seperti terlampir
>>Bagaimana cara menambahkan kalendernya ke form?
>>Jika informasi cpunya berpengaruh, saya pakai:
>>Microsoft Office Professional Plus 2010
>>Windows 7 Professional
>>Intel(R) Core(TM) i3-2310M 2.10GHz
>>2 GB ram
>>32-bit
>>
>>
>>Sebelumnya saya ucapkan terimakasih
>>Wassalam,
>>
>
>
>
>
>

Thu Apr 11, 2013 11:56 pm (PDT) . Posted by:

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

Tumben mscomct2.cab dari microsoft dinyatakan unsafe. Jangan-jangan
mscomct2.ocx nya bukan dari microsoft... hehehe...
tapi memang mungkin terjadi kok..
coba disini :
http://support.microsoft.com/kb/827742
tapi nanti kalau UFIControls diset nilainya 1 gak bisa, coba diset 5 atau 3.

Nah... sebelum melanjutkannya,
kalau yang buat aplikasi saja, mau pakai dtpicker atau calendar atau apa
saja yang anggapannya simple dan cakep itu sudah sulit,
bagaimana dengan user yang gak mudeng ?
siapa yang akan meng-install-kan dan siapa yang akan mengubah registry-nya ?
kalau gak boleh jadi admin komputer, lalu gimana aplikasinya nanti kalau
ndak punya dtpicker atau calendar control karena masalah install dan
register activex nya ?

tapi ini hanya sekedar pertanyaan yang ndak ada maksudnya apa-apa.... :)

Wassalam,
Kid.

2013/4/12 lapendosol opik <lapendosol@yahoo.com>

> **
>
>
> Udah di enable mas, tapi tetep nongol informasinya
> Wassalam,
>
> ------------------------------
> *From:* Mr. Kid <mr.nmkid@gmail.com>
> *To:* BeExcel <belajar-excel@yahoogroups.com>
> *Sent:* Friday, April 12, 2013 1:25 PM
>
> *Subject:* Re: [belajar-excel] Menampilkan Pop-up kalender pada Form
>
>
> Pada Excel Options -> page Trust center -> klik tombol Trust Center
> Settings -> page ActiveX Controls -> pilih Enable -> OK sampai worksheet
>
> Wassalam,
> Kid.
>
>
> 2013/4/12 lapendosol opik <lapendosol@yahoo.com>
>
> **
>
> Udah bisa mas,
> Saya udah register mscomct2.ocx dengan aplikasi tambahan register ocx.exe
> Sudah saya pasang DTpickernya di vba, pas di run sih belum ada masalah (di
> PC saya),
> Tapi tiap run awal (pertama kali file excelnya dibuka), selalu tampil
> peringatan:
>
> This application is about to initialize ActiveX controls that might be
> unsafe. If you trust the source of this file, select OK and the controls
> will
> be initialized using your current workspace settings.
>
> Gimana caranya biar ga nongol itu terus ya?
> Trimakasih
> Wassalam,
>
>
>
> ------------------------------
> *From:* lapendosol opik <lapendosol@yahoo.com>
> *To:* "belajar-excel@yahoogroups.com" <belajar-excel@yahoogroups.com>
> *Sent:* Friday, April 12, 2013 12:16 PM
>
> *Subject:* Re: [belajar-excel] Menampilkan Pop-up kalender pada Form
>
>
> Makasih mas Kid,
> Gimana caranya download file2 terlampir ditopik yang bersangkutan? Supaya
> bisa mengikuti topiknya, kayanya kasusnya hampir sama tentang pembukuan
> *re-Pengiriman BUKU.xlsx *dll
> Saya cari kok ga nemu2 Mas
> Trimakasih
> Wassalam,
> *
> *
>
> ------------------------------
> *From:* Mr. Kid <mr.nmkid@gmail.com>
> *To:* BeExcel <belajar-excel@yahoogroups.com>
> *Sent:* Friday, April 12, 2013 10:16 AM
> *Subject:* Re: [belajar-excel] Menampilkan Pop-up kalender pada Form
>
>
> Silakan ke :
> http://tech.groups.yahoo.com/group/belajar-excel/message/23263
> dan ikuti semua link yang ada disana bila diperlukan.
>
>
> Wassalam,
> Kid.
>
>
>
> 2013/4/11 lapendosol opik <lapendosol@yahoo.com>
>
> **
>
> Dear master be-Excel
> Saya membuat form di vba, saya ingin menambahkan combobox kalender pada
> form tersebut seperti terlampir
> Bagaimana cara menambahkan kalendernya ke form?
> Jika informasi cpunya berpengaruh, saya pakai:
> Microsoft Office Professional Plus 2010
> Windows 7 Professional
> Intel(R) Core(TM) i3-2310M 2.10GHz
> 2 GB ram
> 32-bit
>
> Sebelumnya saya ucapkan terimakasih
> Wassalam,
>
>
>
>
>
>
>
>
>
>
>

Thu Apr 11, 2013 11:33 pm (PDT) . Posted by:

"Bagus" bagus4bls

Iya benar begitu pak Mulki

Wassalam

~ Bagus ~

----- Original Message -----
From: Mulki
To: belajar-excel@yahoogroups.com
Sent: Friday, April 12, 2013 11:35 AM
Subject: Re: [belajar-excel] Cari Peringkat

pak bagus, saya cuma ingin meyakinkan dan memantabkan diri :)

Dlm pencarian rangking 10 besar mata pelajaran jika boleh saya simpulkan setelah penulisan Ranking secara manual dari 1-10 pada kolom RANK kemudian dilanjutkan dg penulisan formula di mulai dari kolom Nilai - No Peserta dan terakhir adalah Nama.

Mohon dikoreksi jika saya salah.

Terimakasih & wassalam,
Mulki

----- Original Message -----
From: Bagus
To: belajar-excel@yahoogroups.com
Sent: Friday, April 12, 2013 10:56 AM
Subject: Re: [belajar-excel] Cari Peringkat

Dear Topeng

File terlampir semoga sesuai harapan

Wassalam

~ Bagus ~

----- Original Message -----
From: Topenk Baday
To: belajar-excel@yahoogroups.com
Cc: belajar-excel-subscribe@yahoogroups.com
Sent: Friday, April 12, 2013 10:04 AM
Subject: [belajar-excel] Cari Peringkat

Mohon bantuannya para pakar excel..

saya lampirkan nilai pada sheet 1

mohon batuannya untuk cari peringkat 10 besar nya (contoh pada sheet 2)

terima kasih atas bantuannya...

salam excel..


Fri Apr 12, 2013 1:28 am (PDT) . Posted by:

"bagus" bagus4bls

Dear Pak Mulki;

Iya benar seperti itu urutannya

Wassalam
~Bagus~
-----Original Message-----
From: "Mulki" <mulki@aop.component.astra.co.id>
To: <belajar-excel@yahoogroups.com>
Date: Fri, 12 Apr 2013 11:35:17 +0700
Subject: Re: [belajar-excel] Cari Peringkat

pak bagus, saya cuma ingin meyakinkan dan memantabkan diri :)

Dlm pencarian rangking 10 besar mata pelajaran jika boleh saya simpulkan
setelah penulisan Ranking secara manual dari 1-10 pada kolom RANK kemudian
dilanjutkan dg penulisan formula di mulai dari kolom Nilai - No Peserta dan
terakhir adalah Nama.

Mohon dikoreksi jika saya salah.

Terimakasih & wassalam,
Mulki

----- Original Message -----
From: Bagus [mailto:bagus@kingjim.co.id]
To: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
Sent: Friday, April 12, 2013 10:56 AM
Subject: Re: [belajar-excel] Cari Peringkat

Dear Topeng

File terlampir semoga sesuai harapan

Wassalam
~Bagus~

----- Original Message -----
From: Topenk Baday [mailto:topenk_baday@yahoo.com]
To: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
Cc: belajar-excel-subscribe@yahoogroups.com
[mailto:belajar-excel-subscribe@yahoogroups.com]
Sent: Friday, April 12, 2013 10:04 AM
Subject: [belajar-excel] Cari Peringkat

Mohon bantuannya para pakar excel..
saya lampirkan nilai pada sheet 1
mohon batuannya untuk cari peringkat 10 besar nya (contoh pada sheet 2)
terima kasih atas bantuannya...
salam excel..

Fri Apr 12, 2013 1:35 am (PDT) . Posted by:

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

Hati-hati dengan nilai yang sama pada penggunaan :
=INDEX(Sheet1!$B$4:$B$380,*MATCH*(D6,Sheet1!$H$4:$H$380*,0*))

Wassalam,
Kid.

2013/4/12 Bagus <bagus@kingjim.co.id>

> **
>
>
> **
> Dear Topeng
>
> File terlampir semoga sesuai harapan
>
>
>
> Wassalam****
>
> ~ Bagus ~
>
>
>
> ----- Original Message -----
> *From:* Topenk Baday <topenk_baday@yahoo.com>
> *To:* belajar-excel@yahoogroups.com
> *Cc:* belajar-excel-subscribe@yahoogroups.com
> *Sent:* Friday, April 12, 2013 10:04 AM
> *Subject:* [belajar-excel] Cari Peringkat
>
>
>
> Mohon bantuannya para pakar excel..
>
> saya lampirkan nilai pada sheet 1
>
> mohon batuannya untuk cari peringkat 10 besar nya (contoh pada sheet 2)
>
> terima kasih atas bantuannya...
>
> salam excel..
>
>
>

Fri Apr 12, 2013 1:53 am (PDT) . Posted by:

"Bagus" bagus4bls

Iya Benar Mister,

Lalu bagaimana untuk mengatasi hal tsb? Pakai formula apa mister?

Wassalam

~ Bagus ~

----- Original Message -----
From: Mr. Kid
To: BeExcel
Sent: Friday, April 12, 2013 3:35 PM
Subject: Re: [belajar-excel] Cari Peringkat

Hati-hati dengan nilai yang sama pada penggunaan :
=INDEX(Sheet1!$B$4:$B$380,MATCH(D6,Sheet1!$H$4:$H$380,0))

Wassalam,

Kid.

2013/4/12 Bagus <bagus@kingjim.co.id>

Dear Topeng

File terlampir semoga sesuai harapan

Wassalam

~ Bagus ~

----- Original Message -----
From: Topenk Baday
To: belajar-excel@yahoogroups.com
Cc: belajar-excel-subscribe@yahoogroups.com
Sent: Friday, April 12, 2013 10:04 AM
Subject: [belajar-excel] Cari Peringkat

Mohon bantuannya para pakar excel..

saya lampirkan nilai pada sheet 1

mohon batuannya untuk cari peringkat 10 besar nya (contoh pada sheet 2)

terima kasih atas bantuannya...

salam excel..


Thu Apr 11, 2013 11:38 pm (PDT) . Posted by:

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

Mungkin alurnya :
(cara 1)
1. sort by nilai descending
2. blok yang 0 saja, bisa dengan :
A. cari 0 pertama -> end xldown
B. autofilter yang 0
C. replace 0 (entirecell contents) dengan blank -> special cells blanks
3. hapus baris :
A. jika ada dataset lain di sheet yang sama, blok dari kolom A sampai
kolom nilai -> delete xlhiftup
B. jika tidak ada dataset lain di sheet tersebut, entirerow.delete
4. jika nomor 2 menggunakan cara B, maka turnoff atufilter
5. sort by rekening ascending

(cara 2) : [seperti cara 2.C. tapi tanpa perlu di-sort]
Syarat :
A. tidak ada dataset lain di sheet tersebut
B. jumlah area yang dibentuk oleh 0 tidak melebih batas yang ditentukan
Excel (saya kurang tahu persis ada berapa area)
langkah :
1. replace angka 0 (entirecell contents) dengan blank (relace with ndak
perlu diisi apapun (jangan beri "")
2. special cell kolom nilai yang blank
3. delete entire row

Wassalam,
Kid.

2013/4/12 hendrik karnadi <hendrikkarnadi@yahoo.com>

> **
>
>
> Maaf, maksud saya menghapus baris yang nilainya 0.
>
> Terima kasih.
>
> Salam,
> HK
>
> ----- Forwarded Message -----
> *From:* hendrik karnadi <hendrikkarnadi@yahoo.com>
> *To:* "belajar-excel@yahoogroups.com" <belajar-excel@yahoogroups.com>
> *Sent:* Friday, 12 April 2013, 12:18
> *Subject:* Menghapus nilai 0 sekaligus
>
> Rekan2 Be-Exceller,
>
> Dalam data terlampir ada Sum of Saldo Akhir (Kolom C) yang nilainya 0.
> Bagaimana perintah macronya untuk menghapus nilai 0 sekaligus (tanpa
> looping)?
>
> Terima kasih
>
> Salam,
> Hendrik
>
>
>
>

Thu Apr 11, 2013 11:47 pm (PDT) . Posted by:

"zainul_ulum[at]yahoo[dot]com" zainul_ulum

silahkan dicoba macro berikut:
Sub HapusNol()
Const strKey As String = "Sum of Saldo Akhir"
Dim rgData As Range, rgFilter As Range

Set rgFilter = Range("F1:F2")
Range("F1:F2") = Application.Transpose(Array(strKey, "0"))
Set rgData = Range("A1").CurrentRegion

'menfilter sesuai kriteria
rgData.AdvancedFilter xlFilterInPlace, rgFilter
'menghapus data yang terfilter
rgData.Offset(1, 0).EntireRow.Delete
'non actifkan filter
ActiveSheet.ShowAllData

End Sub

From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
On Behalf Of hendrik karnadi
Sent: Friday, April 12, 2013 12:24 PM
To: belajar-excel@yahoogroups.com
Subject: [belajar-excel] Fw: Menghapus nilai 0 sekaligus

 
Maaf, maksud saya menghapus baris yang nilainya 0.

Terima kasih.

Salam,
HK

----- Forwarded Message -----
From: hendrik karnadi <hendrikkarnadi@yahoo.com>
To: "belajar-excel@yahoogroups.com" <belajar-excel@yahoogroups.com>
Sent: Friday, 12 April 2013, 12:18
Subject: Menghapus nilai 0 sekaligus

Rekan2 Be-Exceller,

Dalam data terlampir ada Sum of Saldo Akhir (Kolom C) yang nilainya 0.
Bagaimana perintah macronya untuk menghapus nilai 0 sekaligus (tanpa
looping)?

Terima kasih

Salam,
Hendrik

Fri Apr 12, 2013 12:17 am (PDT) . Posted by:

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

oops koreksi dikit :
Mungkin alurnya :
(cara 1)
1. sort by nilai descending
2. blok yang 0 saja, bisa dengan :
A. cari 0 pertama -> end xldown
*B. autofilter yang 0 -> pada data tanpa header, specialcells yang
visible*
C. replace 0 (entirecell contents) dengan blank -> special cells blanks
3. hapus baris :
A. jika ada dataset lain di sheet yang sama, blok dari kolom A sampai
kolom nilai -> delete xlhiftup
B. jika tidak ada dataset lain di sheet tersebut, entirerow.delete
4. jika nomor 2 menggunakan cara B, maka turnoff atufilter
5. sort by rekening ascending

(cara 2) : [seperti cara 2.C. tapi tanpa perlu di-sort]
Syarat :
A. tidak ada dataset lain di sheet tersebut
B. jumlah area yang dibentuk oleh 0 tidak melebih batas yang ditentukan
Excel (saya kurang tahu persis ada berapa area)
langkah :
1. replace angka 0 (entirecell contents) dengan blank (relace with ndak
perlu diisi apapun (jangan beri "")
2. special cell kolom nilai yang blank
3. delete entire row

2013/4/12 Mr. Kid <mr.nmkid@gmail.com>

> Mungkin alurnya :
> (cara 1)
> 1. sort by nilai descending
> 2. blok yang 0 saja, bisa dengan :
> A. cari 0 pertama -> end xldown
> B. autofilter yang 0
> C. replace 0 (entirecell contents) dengan blank -> special cells blanks
> 3. hapus baris :
> A. jika ada dataset lain di sheet yang sama, blok dari kolom A sampai
> kolom nilai -> delete xlhiftup
> B. jika tidak ada dataset lain di sheet tersebut, entirerow.delete
> 4. jika nomor 2 menggunakan cara B, maka turnoff atufilter
> 5. sort by rekening ascending
>
> (cara 2) : [seperti cara 2.C. tapi tanpa perlu di-sort]
> Syarat :
> A. tidak ada dataset lain di sheet tersebut
> B. jumlah area yang dibentuk oleh 0 tidak melebih batas yang ditentukan
> Excel (saya kurang tahu persis ada berapa area)
> langkah :
> 1. replace angka 0 (entirecell contents) dengan blank (relace with ndak
> perlu diisi apapun (jangan beri "")
> 2. special cell kolom nilai yang blank
> 3. delete entire row
>
> Wassalam,
> Kid.
>
>
>
> 2013/4/12 hendrik karnadi <hendrikkarnadi@yahoo.com>
>
>> **
>>
>>
>> Maaf, maksud saya menghapus baris yang nilainya 0.
>>
>> Terima kasih.
>>
>> Salam,
>> HK
>>
>> ----- Forwarded Message -----
>> *From:* hendrik karnadi <hendrikkarnadi@yahoo.com>
>> *To:* "belajar-excel@yahoogroups.com" <belajar-excel@yahoogroups.com>
>> *Sent:* Friday, 12 April 2013, 12:18
>> *Subject:* Menghapus nilai 0 sekaligus
>>
>> Rekan2 Be-Exceller,
>>
>> Dalam data terlampir ada Sum of Saldo Akhir (Kolom C) yang nilainya 0.
>> Bagaimana perintah macronya untuk menghapus nilai 0 sekaligus (tanpa
>> looping)?
>>
>> Terima kasih
>>
>> Salam,
>> Hendrik
>>
>>
>>
>>
>
>

Fri Apr 12, 2013 12:44 am (PDT) . Posted by:

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

Selamat bergabung dengan milis *Belajar-Excel*
File terlampir.

Wassalam,
Kid.

2013/4/11 Podo Prayitno <say_2tkpdp@yahoo.co.id>

> **
>
>
> Mohon penjelasan dan solusinya dari file excel saya yang mau saya gunakan untuk
> Absen Guru dan Pegawai di Instansi kami, file yang saya lampirkan baru setengah
> jadi karena untuk otak-atik makro masih bingung, untuk masalah dan harapan
> terlampir berkas excel. Semoga Ada Yang Bisa Membantu
>
>
>

Fri Apr 12, 2013 12:54 am (PDT) . Posted by:

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

hehehe...
topik ini sudah sehari nganggur.

Mungkin perlu diberi contoh hasil pengerjaan manualnya supaya lebih
memudahkan BeExceller yang pengen menanggapi.
Kira-kira penanya bersedia gak ?

Wassalam,
Kid.

2013/4/11 Dian Anas <anassheva20@yahoo.com>

> **
>
>
> selamat pagi rekan-rekan master excel,
> saya mau bertanya tentang penjumlahan transaksi berdasarkan kode komponen
> (1 s.d 8/KP1 s.d KP13). kode pertama adalah kode standar pengelolaan kode
> ke dua adalah komponen pembiayaan. bagaimana cara menjumlah transaksi
> berdasarkan kedua kode di atas sekaligus memisahkannya ke kolom kedua kode
> tersebut.
> terima kasih. file terlampir
>
>
>

Fri Apr 12, 2013 1:39 am (PDT) . Posted by:

"yudha pramudji" yudha_pramudji

sy py permasalahan, gmna mencari data ganda dalam beberapa kolom,�

data yg dicari dari kolom�nama, jenis kelamin, tempat lahir, tanggal lahir, klo semuany sama, brarti ganda dan bisa menghitung total gandanya �berapa, mohon bantuannya

terima kasih ats bantuannya

--- Mods ---
Lampiran workbook berisi contoh data akan memudahkan BeExceller yang ingin menanggapi untuk melakukan eksperimen menyusun solusi.

Untuk melampirkan workbook saat posting ke milis, kirimkan email dari akun email pribadi yang didaftarkan ke milis dan kirim email seperti kegiatan mengirim email sehari-hari kepada rekan kerja.
------------

GROUP FOOTER MESSAGE
---------------------------------------------------------------------
bergabung ke milis (subscribe), kirim mail kosong ke:
belajar-excel-subscribe@yahoogroups.com

posting ke milis, kirimkan ke:
belajar-excel@yahoogroups.com

berkunjung ke web milis
http://tech.groups.yahoo.com/group/belajar-excel/messages

melihat file archive / mendownload lampiran
http://www.mail-archive.com/belajar-excel@yahoogroups.com/
atau (sejak 25-Apr-2011) bisa juga di :
http://milis-belajar-excel.1048464.n5.nabble.com/

menghubungi moderators & owners: belajar-excel-owner@yahoogroups.com

keluar dari membership milis (UnSubscribe):
kirim mail kosong ke  belajar-excel-unsubscribe@yahoogroups.com
---------------------------------------------------------------------

Tidak ada komentar:

Posting Komentar