dear pak edy smar,
seperti kata mas kid, filtering sudah disediakan fiturnya oleh excel dengan sangat baik
tetapi jika tetap menginginkan filtering dilakukan dengan DrowpdownList ex DataValidation
2011/11/8 Kid Mr. <mr.nmkid@gmail.com>
>
> Coba dengan autofilter.
> Klik cell bertuliskan Cicilan.
> Aktifkan autofilter
> klik segitiga kecil, pilih custom filter, pilih lebih dari (greater than) isi disebelahnya dengan 0 tekan OK
>
> Kid.
>
yg ada di cell B1 itu, sepertinya kita harus pakai 'makhro'; sebab, katanya, formula
tidak punya cukup tenaga untuk "BER-ACTION" menyembunyikan baris.
--- ditulis di module sheet1 ----
Private Sub Worksheet_Change(ByVal Target As Range)
Dim KeyCol As Range, r As Long
Set KeyCol = Cells(4, 1).CurrentRegion.Offset(0, 3)
Set KeyCol = KeyCol.Resize(KeyCol.Rows.Count, 1)
Application.Calculation = xlCalculationManual
Application.ScreenUpdating = False
If Target.Count = 1 Then
If Target.Address = "$B$1" Then
If LCase(Target.Value) = "sembunyikan" Then
For r = 2 To KeyCol.Rows.Count
If KeyCol(r, 1).Value = 0 Then KeyCol(r, 1).EntireRow.Hidden = True
Next r
ElseIf LCase(Target.Value) = "tampilkan" Then
KeyCol.EntireRow.Hidden = False
End If
End If
End If
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub
End Sub
'-------------
-indri haps-
2011/11/8 Kid Mr. <mr.nmkid@gmail.com>
>
> Coba dengan autofilter.
> Klik cell bertuliskan Cicilan.
> Aktifkan autofilter
> klik segitiga kecil, pilih custom filter, pilih lebih dari (greater than) isi disebelahnya dengan 0 tekan OK
>
> Kid.
>
>
> 2011/11/8 edy bin sumar <ibnusumar1@yahoo.co.id>
>>
>> Yth. excel-wan & excel-wati
>> Saya mendapat tugas untuk input data, dimana ada banyak baris data namun saya bertugas untuk mengentri yang ada isinya saja sedangkan yang isinya nihil/nol diabaikan. Untuk mengentri tersebut, data di excel saya print, baru direkam.
>> Agar hasil cetakan data ringkas dan hanya menampilkan data yang perlu saya rekam saja, saya ingin agar baris-baris data yang nilainya nol tidak dinampakkan, baik dengan dihiden row atau row height-nya dikasih nilai nol saja, supaya barisnya juga g nampak. Hemat kertas untuk nyetak.
>> bagaimana macro untuk menyembunyikannya?
>> Tambahan : agar tidak selalu sembunyi, saya tambahkan opsi di B1 "sembunyikan" atau "tampilkan" baris data bernilai nol
>> sehingga kalimat lengkapnya :
>> jika B1="sembunyikan" maka sembunyikan baris-baris data di kolom D yang nilainya nol (=0)
>> contoh terlampir.
>> Terima kasih.
> 2011/11/8 edy bin sumar <ibnusumar1@yahoo.co.id>
>>
>> Yth. excel-wan & excel-wati
>> Saya mendapat tugas untuk input data, dimana ada banyak baris data namun saya bertugas untuk mengentri yang ada isinya saja sedangkan yang isinya nihil/nol diabaikan. Untuk mengentri tersebut, data di excel saya print, baru direkam.
>> Agar hasil cetakan data ringkas dan hanya menampilkan data yang perlu saya rekam saja, saya ingin agar baris-baris data yang nilainya nol tidak dinampakkan, baik dengan dihiden row atau row height-nya dikasih nilai nol saja, supaya barisnya juga g nampak. Hemat kertas untuk nyetak.
>> bagaimana macro untuk menyembunyikannya?
>> Tambahan : agar tidak selalu sembunyi, saya tambahkan opsi di B1 "sembunyikan" atau "tampilkan" baris data bernilai nol
>> sehingga kalimat lengkapnya :
>> jika B1="sembunyikan" maka sembunyikan baris-baris data di kolom D yang nilainya nol (=0)
>> contoh terlampir.
>> Terima kasih.
__._,_.___
+-:: XL-mania ::::::::::::::::::::----------------------------------+
| ayooo... coba cari XL-mania di linkedin.com |
| selamat merayakan idul adha! |
+-------------------------------------------------------------------+
| DILARANG : MLM, money game, OOT, iklan tanpa izin, SARA, testing, |
| pembicaraan pribadi, one line message, melecehkan, tidak sopan. |
+-------------------------------------------------------------------+
| Buat subjek yang kreatif, jangan : "tanya", "help", "mohon bantu" |
| Usahakan besar attachment < 200 kb. Gunakan winzip jika perlu. |
+-------------------------------------------------------------------+
| Ajak teman-teman Anda bergabung dengan mengirim e-mail kosong ke |
| XL-mania-subscribe@yahoogroups.com atau kirimkan mereka file dari |
| http://groups.yahoo.com/group/XL-mania/files/Promotion/ |
+-------------------------------------------------------------------+
| Berikan testimoni di : http://www.friendster.com/xlmania atau... |
| http://www.xl-mania.com/2008/06/testimoni-xl-mania.html |
+-------------------------------------------------------------------+
| Message lama ada di : |
| http://groups.yahoo.com/group/XL-mania/messages [perlu yahoo id] |
| http://www.mail-archive.com/xl-mania@yahoogroups.com |
+-------------------------------------------------------------------+
| ayooo... coba cari XL-mania di linkedin.com |
| selamat merayakan idul adha! |
+-------------------------------------------------------------------+
| DILARANG : MLM, money game, OOT, iklan tanpa izin, SARA, testing, |
| pembicaraan pribadi, one line message, melecehkan, tidak sopan. |
+-------------------------------------------------------------------+
| Buat subjek yang kreatif, jangan : "tanya", "help", "mohon bantu" |
| Usahakan besar attachment < 200 kb. Gunakan winzip jika perlu. |
+-------------------------------------------------------------------+
| Ajak teman-teman Anda bergabung dengan mengirim e-mail kosong ke |
| XL-mania-subscribe@yahoogroups.com atau kirimkan mereka file dari |
| http://groups.yahoo.com/group/XL-mania/files/Promotion/ |
+-------------------------------------------------------------------+
| Berikan testimoni di : http://www.friendster.com/xlmania atau... |
| http://www.xl-mania.com/2008/06/testimoni-xl-mania.html |
+-------------------------------------------------------------------+
| Message lama ada di : |
| http://groups.yahoo.com/group/XL-mania/messages [perlu yahoo id] |
| http://www.mail-archive.com/xl-mania@yahoogroups.com |
+-------------------------------------------------------------------+
MARKETPLACE
.
__,_._,___
Nenhum comentário:
Postar um comentário