Messages In This Digest (15 Messages)
- 1a.
- Re: Membuang Baris Tertentu From: Haps
- 1b.
- Re: Membuang Baris Tertentu From: STDEV(i)
- 1c.
- Re: Membuang Baris Tertentu From: Fandy Rasyid
- 2a.
- Re: Menentukan Faktor Pengali Pesangon From: Haps
- 3a.
- Fw: Hide dan Unhide saldo yang kosong From: hartini_80@yahoo.co.id
- 3b.
- Re: Fw: Hide dan Unhide saldo yang kosong From: Haps
- 3c.
- Re: Fw: Hide dan Unhide saldo yang kosong From: hartini_80@yahoo.co.id
- 4a.
- Re: CONTROL TRIAL BY PERIODICAL.xls From: stefen
- 5a.
- Macro Sorting Deret Data (lagi) From: andri apriyadi
- 5b.
- Re: Macro Sorting Deret Data (lagi) From: STDEV(i)
- 5c.
- Re: Macro Sorting Deret Data (Pakai Advance Filter) From: zainul ulum [yahoo]
- 5d.
- Re: Macro Sorting Deret Data (lagi) From: Kid Mr.
- 6.
- Fw: Fungsi Offset From: nmkid.family@ymail.com
- 7a.
- Validation bersyarat validasi sebelumnya From: Wildan Fauzi
- 7b.
- Re: Validation bersyarat validasi sebelumnya From: hendrik karnadi
Messages
- 1a.
-
Re: Membuang Baris Tertentu
Posted by: "Haps" hapsari.stlizbeth@gmail.com liz_hap
Thu Sep 22, 2011 1:08 pm (PDT)
Kalau SYARAT tidak ditentukan, maka kita asumsikan bahwa
*syaratnya berubah-ubah tanpa pola, tetapi menurut Mood (perasaan pak *
*Fandi Rasyid) saat itu ingin yg mana, terserah saja*
maka dituliskan misal : *1,3,7,13* artinya baris 1, 3, 7, 13 jangan di
delete,
tetapi baris lain harus lenyapkan !
Makro ini, sebelum mejanlan kan aksi-nya, akan menawarkan dulu kepada anda
untuk menuliskan (ke dalam InputBox) urutan baris yg mau diselamatkan.
jika didiamkan saja, dlm inputbox sudah ada nilai defaultnya ("1,3,7,13")
Private Sub CommandButton1_Click()
' hapsari / 22 spt 2010 // Delele CertainRows,
' dgn syarat: yg hanya diketahui oleh pak Fandi
' tabel harus ditulis mulai di A1
' tabel hasil akan ditulis di bawahnya
Dim TbRef As Range, Hasil As Range, ArNo, r As Long, i As Long
Set TbRef = Cells(1).CurrentRegion
Set Hasil = TbRef.Offset(TbRef.Rows. Count + 4, 0)
On Error Resume Next
ArNo = "0," & InputBox("Ketik-kan Nomor Records yg ingin di selamatkan",
_
"Melenyapkan Baris-Baris yg TIDAK Disebut", "1,3,7,13")
r = 1
Application.Calculation = xlCalculationManual
If ArNo = vbNullString Then Exit Sub
ArNo = Split(ArNo, ",")
For r = 0 To UBound(ArNo)
TbRef.Offset(ArNo(r), 0).Resize(1, TbRef.Columns. Count).Copy
Hasil(r, 1).PasteSpecial xlPasteValuesAndNumberFormats
Next
TbRef(1).Activate
Application.CutCopyMode = False
Application.Calculation = xlCalculationAutoma tic
End Sub
2011/9/22 Fandy Rasyid <fandy474@yahoo.com >
>
> Dear Para Master Excel
> Hallo para master semua, apa kabar?semoga sehat-sehat selalu ya..
> saya butuh bantuan nih, saya bingung bagaimana cara menghapus baris-baris
tertentu
> didalam excel misalnya
>
> Kolom A Kolom B Kolom C
> No. Tanggal Nilai
> 1. 1/1/2011 10
> 2. 2/1/2011 10
> 3. 4/1/2011 09
> 4. 5/1/2011 08
> 5. 6/1/2011 07
> 6. 7/1/2011 06
> 7. 8/1/2011 05
> 8. 9/1/2011 05
> 9. 10/1/2011 04
> 10. 11/1/2011 09
> 11. 12/1/2011 10
> 12. 13/1/2011 10
> 13. 14/1/2011 10
>
> terus saya ingin agar hanya muncul
>
> Kolom A Kolom B Kolom C
> No. Tanggal Nilai
> 1. 1/1/2011 10
> 5. 6/1/2011 07
> 9. 10/1/2011 04
> 13. 14/1/2011 10
> mohon solusinya, atas bantuannya saya ucapkan terima kasih.
>
> Regards
> Fandy
>
*> -- mods --
> Kenapa hanya pilih baris-baris itu ya?
> ----------
*
- 1b.
-
Re: Membuang Baris Tertentu
Posted by: "STDEV(i)" setiyowati.devi@gmail.com siti_vi
Fri Sep 23, 2011 1:43 am (PDT)
*PERBAIKAN LOGIKA CODING*
karena statementnya spt ini
ArNo = "0," & _
InputBox("Ketik-kan Nomor Records yg ingin di selamatkan", _
"Melenyapkan Baris-Baris yg TIDAK Disebut", "1,3,7,13")
maka misalnya pun InputBox dijawab dengan STRING KOSONG, nilai variable ArNo
tetap = "0," (2 karakter)
Jadi logical test pada statement ini sebaiknya di perbaiki
If ArNo = vbNullString Then Exit Sub
diganti dengan
If Len(ArNo) = 2 Then Exit Sub
ArNo = Split(ArNo, ",")
Mengapa ArNo kok bisa diubah, semula variable data biasa berisi string, lalu
diubah
menjadi variable berisi ARRAY (hasil fungsi Split) ?
Karena di awal prosedur dia dideklarasikan sebgai *type data Variant.*
*CARA LAIN*
meminta data dari user
ArNo = InputBox("Ketik-kan Nomor Records yg ingin di selamatkan", _
"Melenyapkan Baris-Baris yg TIDAK Disebut", "1,3,7,13")
Variable Arno sbg pendeteksi apakah perlu Exit Sub
If ArNo = vbNullString Then Exit Sub
Mengubah string ArNo menjadi Array ArNo dimana harus ada index no. 0
berisi "0"
"String yg ada di dalam variable Arno di tambah dulu bagian depannya dengan
"0,"
baru kemudian di Split menjadi beberapa elemen data dlm array ArNo.
ArNo = Split(ArNo & "0,", ",")
cmiiw....
2011/9/23 Haps <hapsari.stlizbeth@gmail.com >
> **
> Kalau SYARAT tidak ditentukan, maka kita asumsikan bahwa
> syaratnya berubah-ubah tanpa pola, tetapi menurut Mood (perasaan pak
> Fandi Rasyid) saat itu ingin yg mana, terserah saja
> maka dituliskan misal : 1,3,7,13 artinya baris 1, 3, 7, 13 jangan di
> delete,
> tetapi baris lain harus lenyapkan !
>
>
Private Sub CommandButton1_Click()
> ' hapsari / 22 spt 2010 // Delele CertainRows,
> ' dgn syarat: yg hanya diketahui oleh pak Fandi
>
> Dim TbRef As Range, Hasil As Range, ArNo, r As Long, i As Long
> Set TbRef = Cells(1).CurrentRegion
> Set Hasil = TbRef.Offset(TbRef.Rows. Count + 4, 0)
> On Error Resume Next
> ArNo = *"0," **&* InputBox("Ketik-kan Nomor Records yg ingin di
> selamatkan", _
> "Melenyapkan Baris-Baris yg TIDAK Disebut", "1,3,7,13")
> r = 1
> Application.Calculation = xlCalculationManual
> If ArNo = vbNullString Then Exit Sub
> *ArNo = Split(ArNo, ",")*
>
> For r = 0 To UBound(ArNo)
> TbRef.Offset(ArNo(r), 0).Resize(1, TbRef.Columns. Count).Copy
> Hasil(r, 1).PasteSpecial xlPasteValuesAndNumberFormats
> Next
>
> TbRef(1).Activate
> Application.CutCopyMode = False
> Application.Calculation = xlCalculationAutoma tic
> End Sub
>
>
- 1c.
-
Re: Membuang Baris Tertentu
Posted by: "Fandy Rasyid" fandy474@yahoo.com fandy474
Fri Sep 23, 2011 3:40 am (PDT)
Terima kasih mba hana akan saya coba solusinya :D
_____________________ _________ __
From: Haps <hapsari.stlizbeth@gmail.com >
To: belajar-excel@yahoogroups. com
Sent: Friday, September 23, 2011 3:07 AM
Subject: Re: [belajar-excel] Membuang Baris Tertentu
Kalau SYARAT tidak ditentukan, maka kita asumsikan bahwa
syaratnya berubah-ubah tanpa pola, tetapi menurut Mood (perasaan pak
Fandi Rasyid) saat itu ingin yg mana, terserah saja
maka dituliskan misal : 1,3,7,13 artinya baris 1, 3, 7, 13 jangan di delete,
tetapi baris lain harus lenyapkan !
Makro ini, sebelum mejanlan kan aksi-nya, akan menawarkan dulu kepada anda
untuk menuliskan (ke dalam InputBox) urutan baris yg mau diselamatkan.
jika didiamkan saja, dlm inputbox sudah ada nilai defaultnya ("1,3,7,13")
Private Sub CommandButton1_Click()
' hapsari / 22 spt 2010 // Delele CertainRows,
' dgn syarat: yg hanya diketahui oleh pak Fandi
' tabel harus ditulis mulai di A1
' tabel hasil akan ditulis di bawahnya
Dim TbRef As Range, Hasil As Range, ArNo, r As Long, i As Long
Set TbRef = Cells(1).CurrentRegion
Set Hasil = TbRef.Offset(TbRef.Rows. Count + 4, 0)
On Error Resume Next
ArNo = "0," & InputBox("Ketik-kan Nomor Records yg ingin di selamatkan", _
"Melenyapkan Baris-Baris yg TIDAK Disebut", "1,3,7,13")
r = 1
Application.Calculation = xlCalculationManual
If ArNo = vbNullString Then Exit Sub
ArNo = Split(ArNo, ",")
For r = 0 To UBound(ArNo)
TbRef.Offset(ArNo(r), 0).Resize(1, TbRef.Columns. Count).Copy
Hasil(r, 1).PasteSpecial xlPasteValuesAndNumberFormats
Next
TbRef(1).Activate
Application.CutCopyMode = False
Application.Calculation = xlCalculationAutoma tic
End Sub
2011/9/22 Fandy Rasyid <fandy474@yahoo.com >
>
> Dear Para Master Excel
> Hallo para master semua, apa kabar?semoga sehat-sehat selalu ya..
> saya butuh bantuan nih, saya bingung bagaimana cara menghapus baris-baris tertentu
> didalam excel misalnya
>
> Kolom A Kolom B Kolom C
> No. Tanggal Nilai
> 1. 1/1/2011 10
> 2. 2/1/2011 10
> 3. 4/1/2011 09
> 4. 5/1/2011 08
> 5. 6/1/2011 07
> 6. 7/1/2011 06
> 7. 8/1/2011 05
> 8. 9/1/2011 05
> 9. 10/1/2011 04
> 10. 11/1/2011 09
> 11. 12/1/2011 10
> 12. 13/1/2011 10
> 13. 14/1/2011 10
>
> terus saya ingin agar hanya muncul
>
> Kolom A Kolom B Kolom C
> No. Tanggal Nilai
> 1. 1/1/2011 10
> 5. 6/1/2011 07
> 9. 10/1/2011 04
> 13. 14/1/2011 10
> mohon solusinya, atas bantuannya saya ucapkan terima kasih.
>
> Regards
> Fandy
>
> -- mods --
> Kenapa hanya pilih baris-baris itu ya?
> ----------
- 2a.
-
Re: Menentukan Faktor Pengali Pesangon
Posted by: "Haps" hapsari.stlizbeth@gmail.com liz_hap
Thu Sep 22, 2011 8:35 pm (PDT)
Mr. Kid sudah memberikan cara yg *ter-ringkas & 'awesome'*
Terima kasih Mr Kid .. (bukan pihak Asker tapi ikut terimakasih kan boleh
ya...?)
*
*
*(*) mengulang tulis rumus dari mr Kid)*
*cell A2 : data type-nya numerik dalam satuan bulan;
*
rumus :* =MIN( INT(A2 / 12) +1, 9)*
Tidak semua orang dapat SEGERA menyimpulkan 9 ketentuan menjadi 1 kalimat
matematis spt itu;
Bahkan tidak semua orang yg *sudah melihat KESIMPULAN spt itu* : mampu
segera mengartikan maksudnya.
(+)
Sekelas di bawahnya, bisa pula dibuat *kesimpulan *dlm bentuk fungsi IF
dibantu Fungsi FLOOR spt ini
( ASUMSI : jika A1 berisi bilangan MASA KERJA dlm satuan tahun, baik
bilangan utuh maupun pecahan)
*=IF(A1>=8, 9, FLOOR(A1,1)+1)*
(++)
Cara lain yg cara pemikirannya berada di *3 tingkat bawah kelas 'awesome' *dari
mas Kid
mungkin dengan cara mentabelkan 9 ketentuan tsb ; kemudian berdasarkan tabel
tsb
dibuat fungsi VLOOKUP
*=VLOOKUP(FLOOR(A1,1),TabelDuaKo lom,2,TRUE) *
(di bawah ini adalah gambar situasi di sheet & rumusnya, hanya tampak jika
anda lihat di email editor anda yg di set mampu ber-html)
[image: vlookup dan floor.PNG]
lebih lengkapnya ada di file workbook <hapsari.stlizbeth@gmail.com > (yg
tidak dilampiran tapi akan dikirimkan kepada yg memerlukan saja)
mudah-mudahan tidak salah, dan ada gunanya
-haps-
hansip off dari jaga malam.., ngantuk....
2011/9/22 Bambang Setiawan <benkbenkz@yahoo.co.uk >
>
> Dear Master Excel,
> Mohon bantuannya, sedang mencoba membuat hitungan pesangon dengan
> ketentuan sbb
> 1. Kurang dari 1 tahun, 1 bulan upah;
> 2. 1 s/d <2 tahun, 2 bulan upah;
> 3. 2 s/d <3 tahun, 3 bulan upah;
> 4. 3 s/d <4 tahun, 4 bulan upah;
> 5. 4 s/d <5 tahun, 5 bulan upah;
> 6. 5 s/d <6 tahun, 6 bulan upah;
> 7. 6 s/d <7 tahun, 7 bulan upah;
> 8. 7 s/d <8 tahun, 8 bulan upah;
> 9. Lebih dari 8 tahun, 9 bulan upah
>
> yang dicari adalah faktor pengali upahnya berdasarkan masa kerjanya,
> sudah coba pake fungsi IF tapi mentok di jumlah kondisinya :-)
>
> Terima kasih.
- 3a.
-
Fw: Hide dan Unhide saldo yang kosong
Posted by: "hartini_80@yahoo.co.id" hartini_80@yahoo.co.id hartini_80
Thu Sep 22, 2011 9:48 pm (PDT)
Dear all,
Ada yg bisa bantu ndak ya, bagaimana melakukan hide dan unhide secara otomatis atas saldo2 yang nominalnya telah kosong (lunas), selama ini saya lakukan secara manual, tp setelah datanya banyak kok jadi lama ya, mohon solusinya jika rekan2 ada yg memiliki cara paling simple
Terima kasih
Salam
Tiny
Powered by Telkomsel BlackBerry�
-----Original Message-----
From: dwa_spv_fin@bukitmakmur. com
Date: Fri, 23 Sep 2011 11:44:13
To: <hartini_80@yahoo.co.id >
Subject: Hide dan Unhide saldo yang kosong
- 3b.
-
Re: Fw: Hide dan Unhide saldo yang kosong
Posted by: "Haps" hapsari.stlizbeth@gmail.com liz_hap
Thu Sep 22, 2011 10:31 pm (PDT)
di dalam Formatting mapun Conditional formatting
tidak ada *FORMAT menyembunyikan Baris/Kolom*
*
*
*usul: difilter aja mbak*
*
*
*[image: difilter ajah.PNG]
*
*
*
2011/9/23 <hartini_80@yahoo.co.id >
> **
>
> Dear all,
> Ada yg bisa bantu ndak ya, bagaimana melakukan hide dan unhide secara
> otomatis atas saldo2 yang nominalnya telah kosong (lunas), selama ini saya
> lakukan secara manual, tp setelah datanya banyak kok jadi lama ya, mohon
> solusinya jika rekan2 ada yg memiliki cara paling simple
> Terima kasih
> Salam
> Tiny
>
- 3c.
-
Re: Fw: Hide dan Unhide saldo yang kosong
Posted by: "hartini_80@yahoo.co.id" hartini_80@yahoo.co.id hartini_80
Thu Sep 22, 2011 10:43 pm (PDT)
Oh iya ya, makasih ya mba haps atas solusinya
Salam
Tiny
Powered by Telkomsel BlackBerry�
-----Original Message-----
From: Haps <hapsari.stlizbeth@gmail.com >
Sender: belajar-excel@yahoogroups. com
Date: Fri, 23 Sep 2011 12:31:09
To: <belajar-excel@yahoogroups. >com
Reply-To: belajar-excel@yahoogroups. com
Subject: Re: [belajar-excel] Fw: Hide dan Unhide saldo yang kosong
di dalam Formatting mapun Conditional formatting
tidak ada *FORMAT menyembunyikan Baris/Kolom*
*
*
*usul: difilter aja mbak*
*
*
*[image: difilter ajah.PNG]
*
*
*
2011/9/23 <hartini_80@yahoo.co.id >
> **
>
> Dear all,
> Ada yg bisa bantu ndak ya, bagaimana melakukan hide dan unhide secara
> otomatis atas saldo2 yang nominalnya telah kosong (lunas), selama ini saya
> lakukan secara manual, tp setelah datanya banyak kok jadi lama ya, mohon
> solusinya jika rekan2 ada yg memiliki cara paling simple
> Terima kasih
> Salam
> Tiny
>
- 4a.
-
Re: CONTROL TRIAL BY PERIODICAL.xls
Posted by: "stefen" stefen@kofi.co.id
Fri Sep 23, 2011 3:38 am (PDT)
Thanks untuk Mr.Kid and Mr.Ghozi. untuk sementara rumus akan saya pelajari
dan kembangkan.
jika ada yang kurang mengerti pasti saya tanyakan.
Thanks
_____
From: belajar-excel@yahoogroups. [mailto:belajar-excel@com yahoogroups. ]com
On Behalf Of ghozi alkatiri
Sent: 22 September 2011 18:11
To: belajar-excel@yahoogroups. com
Subject: Bls: [belajar-excel] CONTROL TRIAL BY PERIODICAL.xls
saya menawarkan formula tunggal yang dinamis dengan memanfaatkan posisi
judul kolom dan baris untuk bisa secara fleksibel merujuk ke referensi
tabel acuan yang yang setiap tanggal dan bulan tertentu berada di sheet
yang berbeda, tanpa harus merubah formula untuk rujukan ke sheet dan range
yang berbeda. karena formula akan berubah secara relatif sesuai posisinya
di cell tempat formula berada.
untuk itu memang diperlukan kejelian extra bermain dengan referensi
relatif, absolut, dan semi absolut.
tidak bisa dihindarkan kalau formula menjadi sangat panjang (729 karakter)
, karena harus berkompromi dengan segala konsekuensi untuk bisa tetap
mempertahankan format dan kondisi tabel sesuai dengan kontruksi aslinya
tanpa harus merubahnya secara manual supaya bisa dikompromikan dengan
formula.
formula awal ada di cell E9.
=MATCH(LOOKUP(2;1/ISNUMBER( INDIRECT( LOWER(LOOKUP( 2;1/ISTEXT( $E$7:E$7) ;$E$7:E
$7))&"!"&ADDRESS(MATCH($D9; jan!$D$1: $D$16;0); MATCH(VALUE( LEFT($E$8; 2));jan!$
B$5:$AI$5;0)+1;4)&":" &ADDRESS( MATCH($D9; jan!$D$1: $D$16;0); MATCH(VALUE( RIGHT(
E$8;2));jan!$B$5:$AI$ 5;0)+1;4) ));INDIRECT( LOWER(LOOKUP( 2;1/ISTEXT( $E$7:E$7) ;
$E$7:E$7))&"!"&ADDRESS( MATCH($D9; jan!$D$1: $D$16;0); MATCH(VALUE( LEFT($E$8; 2))
;jan!$B$5:$AI$5;0)+1;4) &":"&ADDRESS( MATCH($D9; jan!$D$1: $D$16;0); MATCH(VALUE(
RIGHT(E$8;2));jan!$B$ 5:$AI$5;0) +1;4)));INDIRECT (LOWER(LOOKUP( 2;1/ISTEXT( $E$7
:E$7);$E$7:E$7))&"!"&ADDRESS( MATCH($D9; jan!$D$1: $D$16;0); MATCH(VALUE( LEFT($E
$8;2));jan!$B$5:$AI$5; 0)+1;4)&" :"&ADDRESS( MATCH($D9; jan!$D$1: $D$16;0); MATCH(
VALUE(RIGHT(E$8;2));jan! $B$5:$AI$ 5;0)+1;4) );0)
hal yang menyebabkan panjangnya formula di atas adalah :karena ada range
rujukan yang harus diulang beberapa kali , tapi karena posisi range itu
relatif pada tempat formula berada , maka range itu harus dihasilkan oleh
formula yang bisa menghasilkan nama range tersebut , baru kemudian hasilnya
diindirect.
karena formula sudah terlalu panjang maka untuk menyembunyikan hasil
#N/A saya menggunkan conditional formating .
wassalam
Ghozi Alkatiri
--- Pada Kam, 22/9/11, stefen <stefen@kofi.co.id > menulis:
Dari: stefen <stefen@kofi.co.id >
Judul: [belajar-excel] CONTROL TRIAL BY PERIODICAL.xls
Kepada: belajar-excel@yahoogroups. com
Tanggal: Kamis, 22 September, 2011, 10:40 AM
HELLO ALL MASTER EXCELL YANG EXCELLENT.
Saya ada kesulitan cara membuat data control trial by periodical.
untuk jelasnya lihat lampiran.Mohon di bantu ya...
thanks ya.
- 5a.
-
Macro Sorting Deret Data (lagi)
Posted by: "andri apriyadi" andreemobile@yahoo.co.id andreemobile
Fri Sep 23, 2011 3:39 am (PDT)
Dear
para Master,
Saya
butuh bantuan lagi untuk rumus macro memilah Deret Data sesuai dengan kriteria yang
saya inginkan. Bagaimana rumus macronya menyusun data2 dimana 7 karakter
terakhirnya sesuai dengan kriteria yang saya pilih.
File terlampir.
Terima Kasih atas bantuannya.
Regards
Andree
- 5b.
-
Re: Macro Sorting Deret Data (lagi)
Posted by: "STDEV(i)" setiyowati.devi@gmail.com siti_vi
Fri Sep 23, 2011 4:43 am (PDT)
Pemfilteran dengan makro sudah berkali kali ditayangkan di milis
seperti di gambar di bawah ini
[image: makro filter.GIF]
Kata Kuncinya ada di
if right(DATA_EX_CELL_YG_SEDANG_ Dikunjungi_ LOOP, 7) = Kriteria then
lebih lengkapnya lihat di fle workbook terlampir.
'-------
The DO and The DONT's ......
http://www.box.net/shared/ 2mbjr3g654k1ubio mijq
> 2011/9/23 andri apriyadi <andreemobile@yahoo.co. >id
> > Dear para Master,
> > Saya butuh bantuan lagi untuk rumus macro memilah Deret Data sesuai
> dengan kriteria yang saya inginkan. Bagaimana rumus macronya menyusun data2
> dimana 7 karakter terakhirnya sesuai dengan kriteria yang saya pilih.
> > File terlampir.
> > Terima Kasih atas bantuannya.
> > Regards
>
- 5c.
-
Re: Macro Sorting Deret Data (Pakai Advance Filter)
Posted by: "zainul ulum [yahoo]" zainul_ulum@yahoo.com zainul_ulum
Fri Sep 23, 2011 6:38 am (PDT)
Salah satu solusi yang sering aku pakai:
[Filternya]=nama range tempat filter
[DariDatabase]=nama range database
[HasilFilter]=nama range output hasil range
Maka makronya bisa dibuat sbb:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [Filternya]) Is Nothing Then 'jika yang berubah di kotak filter
If [Filternya] <> vbNullString Then
[DariDatabase].AdvancedFilter xlFilterCopy, [Kriteria], [HasilFilter]
End If
End If
End Sub
Detail ada di attachment
Sama be-excel
-zainul-
2011/9/23 andri apriyadi <andreemobile@yahoo.co. >id
> Dear para Master,
> Saya butuh bantuan lagi untuk rumus macro memilah Deret Data sesuai dengan kriteria yang saya inginkan. Bagaimana rumus macronya menyusun data2 dimana 7 karakter terakhirnya sesuai dengan kriteria yang saya pilih.
> File terlampir.
> Terima Kasih atas bantuannya.
> Regards
- 5d.
-
Re: Macro Sorting Deret Data (lagi)
Posted by: "Kid Mr." mr.nmkid@gmail.com nmkid.family@ymail.com
Fri Sep 23, 2011 6:52 am (PDT)
Bagaimana kalau Bapak mencoba membuat sendiri.
Sebelum memulai, coba lihat dideretan menu (ribbon) ada yang bernama
developer atau tidak ?
Jika tidak ada, buatlah menjadi ada, dengan cara :
1. klik office button (ada di pojok kiri atas berbentuk bunder)
2. klik excel options (ada di pojok kanan bawah menu yang tampil dekat exit
excel)
3. klik grup Popular (di frame kiri)
4. centang opsi Show developer ribbon blah blah blah (di frame kanannya)
5. tekan OK
Sekarang sudah ada developer ribbon
klik si ribbon developer itu.
disana ada banyak grup dan tombol menu, salah satunya record Macro.
Sekarang mari mulai membuat macro sendiri (supaya datang ke milis
menampilkan itikat yang sangat kuat untuk belajar).
Klik dulu cell kriterianya. ingat-ingat alamat cellnya (misal d2).
Langkah-langkah :
1. ke ribbon developer
2. klik record macro dan beri nama, misal Filterku
3. klik header kolom hasil (F1)
4. ke ribbon Home, grup editing, pilih Goto Special, pilih CurrentRegion,
tekan OK
5. klik kanan header kolom hasil (F1) -> pilih ClearContents
6. klik header tabel data (B1)
7. tekan tombol shift (jangan dilepaskan), diikuti menekan tombol panah
bawah (shift sudah boleh dilepaskan disini)
8. ke ribbon Home, grup Editing, klik Sort & Filter, pilih Filter
9. klik panah kecil AutoFilter, pilih Text Filter, pilih End With, ketik isi
cell kriteria (nilai di cell D2), tekan OK
10. ke ribbon Home, grup Editing, klik Goto Special, pilih Visible Cells
Only, tekan OK
11. tekan tombol CTRL dan C (copy ke clipboard dengan CTRL+C)
12. klik cell header hasil (cell F1)
13. klik kanan cell header hasil (cell F1), pilih PasteSpecial, pilih
Values, tekan OK
14. ke ribbon Home, grup Editing, Sort & Filters, pilih Filter
15. ke ribbon Developer, klik Stop Recording (tombol yang tadinya adalah
tombol Record Macro).
--- sampai sini, sudah dibuatkan prosedur bernama Filterku ---
Sekarang dibuat dinamis kriterianya :
1. ke VBE dengan Alt F11
2. tekan CTRL+F (Find), lalu ketik nama prosedurnya (Filterku), pilih opsi
Current Project, tekan Find Next, setelah ketemu, tekan X agar find dialof
tertutup
3. perhatikan baris demi baris mulai dari baris Filterku ini, cari yang
tulisannya ada .AutoFilter Field:= blah-blah-blah
4. Perhatikan bagian Criteria:= diikuti dengan teks yang diapit petik
seperti berformat *"*suatunilai"*
3. hapus angka dibelakang * hingga tinggal tertulis *"*"*
4. kemudian *tekan spasi *lalu ketik* tekan tombol &* lalu* tekan
spasi*lalu tulis (ingat, cell kriteria ada di cell D2) :
*range("d2").value *dan* jangan tekan apa-apa lagi*
--- sampai sini, kriteria sudah lebih dinamis, sesuai isi cell D2 di
worksheet
Sekarang suruh si tombol yang sudah nangkring di sheet itu, supaya jalankan
si prosedur Filterku
1. kembali ke worksheet dari VBE dengan tekan Alt F11
2. klik kanan si tombol, pilih Assign Macro
3. muncul dialog berisi daftar prosedur yang bisa dipakai, pilih *Filterku*,
tekan OK
--- sampai sini, tombol siap dipakai ---
Coba, sapa tahu ada errornya.
1. klik cell kriteria (cell d2)
2. ganti nilainya (pilih dari data validation)
3. tekan tombol ganteng yang udah di assign macro tadi
4. jangan panik jika muncul pesan error karena fungsi Milis sebenanrnya
adlah membantu terhadap masalah hasil usaha seperti tadi yang hailnya kurang
lancar.
5. selamat, anda telah belajar membuat prosedur VBA
Semoga dongeng di atas menjadi salah satu bahan belajar untuk BeExceler yang
memang ingin bisa dan bersedia memahami sekelumit tentang VBA.
Silakan coba dengan sabar. Gak sia-sia kok.
Best Regards.
Mr. Kid.
2011/9/23 andri apriyadi <andreemobile@yahoo.co. >id
> **
>
>
> Dear para Master,
>
> Saya butuh bantuan lagi untuk rumus macro memilah Deret Data sesuai
> dengan kriteria yang saya inginkan. Bagaimana rumus macronya menyusun data2
> dimana 7 karakter terakhirnya sesuai dengan kriteria yang saya pilih.
>
>
> File terlampir.
>
>
> Terima Kasih atas bantuannya.
>
>
> Regards
>
>
>
> Andree
>
>
>
- 6.
-
Fw: Fungsi Offset
Posted by: "nmkid.family@ymail.com" mr.nmkid@gmail.com nmkid.family@ymail.com
Fri Sep 23, 2011 4:04 am (PDT)
---------- Forwarded message ----------
From: Riska Wahyu Nirmalasari <Riska.Nirmalasari@danone.com >
To: belajar-excel@yahoogroups. com
Date: Fri, 23 Sep 2011 13:57:37 +0700
Subject: Fw: Fungsi Offset
Dear Pakar Excel,
Mohon bantuannya saya ada kebingungan dikit mengenai fungsi offset dan lookup. Apa perbedaan dari keduanya. Terimakasih bantuannya.
Regards,
Riska
Ce message électronique et tous les fichiers attachés qu'il contient sont confidentiels et destinés exclusivement à l'usage de la personne à laquelle ils sont adressés. Si vous avez reçu ce message par erreur, merci de le retourner à son émetteur. Les idées et opinions présentées dans ce message sont celles de son auteur, et ne représentent pas nécessairement celles de DANONE ou d'une quelconque de ses filiales. La publication, l'usage, la distribution, l'impression ou la copie non autorisée de ce message et des attachements qu'il contient sont strictement interdits.
This e-mail and any files transmitted with it are confidential and intended solely for the use of the individual to whom it is addressed. If you have received this email in error please send it back to the person that sent it to you. Any views or opinions presented are solely those of its author and do not necessarily represent those of DANONE or any of its subsidiary companies. Unauthorized publication, use, dissemination, forwarding, printing or copying of this email and its associated attachments is strictly prohibited.
- 7a.
-
Validation bersyarat validasi sebelumnya
Posted by: "Wildan Fauzi" wildanfauzy@gmail.com wildanfauzy
Fri Sep 23, 2011 5:40 am (PDT)
Dear all Jagoan Excel, mau nanya nih, maaf jika sudah ada diposting
sebelumnya
PRODUK
MEREK
VARIAN
SUSU
ABC
123
SUSU
ABC
456
SUSU
BCD
123
SUSU
DEF
123
SUSU
DEF
456
SUSU
DEF
DEWASA
SUSU
GHI
DEWASA
PASTA GIGI
ODOL1
ANAK
PASTA GIGI
ODOL2
DEWASA
PASTA GIGI
ODOL2
ANAK
PASTA GIGI
ODOL3
DEWASA
PASTA GIGI
ODOL4
ANAK
PASTA GIGI
ODOL5
DEWASA
PASTA GIGI
ODOL5
ANAK
SABUN
JKL
ANAK
SABUN
JKL
DEWASA
SABUN
MNO
ANAK
SABUN
MNO
DEWASA
SABUN
PQR
DEWASA
Dari tabel ini saya baru bisa membuat validation sebagai berikut
PRODUK MEREK VARIAN SUSU ABC 123
Jika dipilih produk susu, maka pada validation berikutnya otomatis hanya
akan menampilkan
merek dari susu tersebut, dan jika sudah dipilih merek dari susu tersebut
maka pada kolom varian
hanya menampilkan varian dari susu dan mereknya
Selengkapnya ada di lampiran yaaaa
Terimakasih para jagoan excel yang budiman
Salam,
Wildan Fauzi
- 7b.
-
Re: Validation bersyarat validasi sebelumnya
Posted by: "hendrik karnadi" hendrikkarnadi@yahoo.com hendrikkarnadi
Fri Sep 23, 2011 8:05 am (PDT)
Kalau mau yang simple ya pakai data filter saja.
Langkah2nya adalah sbb:
- Sorot data termasuk judulnya.
- Buat data filter
- Pilih SUSU pada kolom PRODUK
- Pilih ABC pada kolom MERK
- Pilih 123 pad kolom VARIAN
Salam,
Hendrik Karnadi
_____________________ _________ __
From: Wildan Fauzi <wildanfauzy@gmail.com >
To: belajar-excel@yahoogroups. com
Sent: Friday, September 23, 2011 7:40 PM
Subject: [belajar-excel] Validation bersyarat validasi sebelumnya
Dear all Jagoan Excel, mau nanya nih, maaf jika sudah ada diposting sebelumnya
PRODUK MEREK VARIAN
SUSU ABC 123
SUSU ABC 456
SUSU BCD 123
SUSU DEF 123
SUSU DEF 456
SUSU DEF DEWASA
SUSU GHI DEWASA
PASTA GIGI ODOL1 ANAK
PASTA GIGI ODOL2 DEWASA
PASTA GIGI ODOL2 ANAK
PASTA GIGI ODOL3 DEWASA
PASTA GIGI ODOL4 ANAK
PASTA GIGI ODOL5 DEWASA
PASTA GIGI ODOL5 ANAK
SABUN JKL ANAK
SABUN JKL DEWASA
SABUN MNO ANAK
SABUN MNO DEWASA
SABUN PQR DEWASA
Dari tabel ini saya baru bisa membuat validation sebagai berikut
PRODUK MEREK VARIAN
SUSU ABC 123
Jika dipilih produk susu, maka pada validation berikutnya otomatis hanya akan menampilkan
merek dari susu tersebut, dan jika sudah dipilih merek dari susu tersebut maka pada kolom varian
hanya menampilkan varian dari susu dan mereknya
Selengkapnya ada di lampiran yaaaa
Terimakasih para jagoan excel yang budiman
Salam,
Wildan Fauzi
Need to Reply?
Click one of the "Reply" links to respond to a specific message in the Daily Digest.
---------------------------------------------------------------------
bergabung ke milis (subscribe), kirim mail kosong ke:
belajar-excel-subscribe@yahoogroups.com
posting ke milis, kirimkan ke:
belajar-excel@yahoogroups.com
berkunjung ke web milis
http://tech.groups.yahoo.com/group/belajar-excel/messages
melihat file archive / mendownload lampiran
http://www.mail-archive.com/belajar-excel@yahoogroups.com/
atau (sejak 25-Apr-2011) bisa juga di :
http://milis-belajar-excel.1048464.n5.nabble.com/
menghubungi moderators & owners: belajar-excel-owner@yahoogroups.com
keluar dari membership milis (UnSubscribe):
kirim mail kosong ke belajar-excel-unsubscribe@yahoogroups.com
---------------------------------------------------------------------
bergabung ke milis (subscribe), kirim mail kosong ke:
belajar-excel-subscribe@yahoogroups.com
posting ke milis, kirimkan ke:
belajar-excel@yahoogroups.com
berkunjung ke web milis
http://tech.groups.yahoo.com/group/belajar-excel/messages
melihat file archive / mendownload lampiran
http://www.mail-archive.com/belajar-excel@yahoogroups.com/
atau (sejak 25-Apr-2011) bisa juga di :
http://milis-belajar-excel.1048464.n5.nabble.com/
menghubungi moderators & owners: belajar-excel-owner@yahoogroups.com
keluar dari membership milis (UnSubscribe):
kirim mail kosong ke belajar-excel-unsubscribe@yahoogroups.com
---------------------------------------------------------------------
MARKETPLACE
Change settings via the Web (Yahoo! ID required)
Change settings via email: Switch delivery to Individual | Switch format to Traditional
Visit Your Group | Yahoo! Groups Terms of Use | Unsubscribe
Tidak ada komentar:
Posting Komentar