VBA serupa (SortperRow) pernah ditulis oleh Mr. Kid dan dirilis pada tgl 17 Sep 2012.
Contoh kasus yang anda lampirkan adalah bagaimana memfilter (menghilangkan)
angka 0,
bisa ditafsirkan sebagai :
- menyortir
- menghilangkan angka 0
Macronya adalah sbb:
Public Sub FilterRow()
'Updated from SortperRow of Mr. Kid
Dim r As Range, rng As Range, rngData As Range
Dim lCols As Long
Selection.Copy Sheets("Sheet2").Range("C8") 'Data (SELECTION) dicopy ke
Sheet2 Range C8
Sheets("Sheet2").Select 'Pilih Sheet2
Set rngData = Sheets("Sheet2").Range("C8").CurrentRegion'setting rngData
pada Sheet2
lCols = rngData.Columns.Count'setting jumlah kolom pada rngData
'sortir rngData dan ganti angka 0 dengan ""(kosong)
For Each rng In rngData.Resize(, 1)
rng.Resize(1, lCols).Sort rng, xlDescending, Header:=xlNo,
Orientation:=xlSortRows
rng.Resize(1, lCols).Select
For Each r In Selection
If r = 0 Then r = ""
Next r
Next rng
End Sub
Cara menjalankannya : Sorot data pada Sheet1 kemudian klik tombol pada Sheet1
Semoga "pas" dengan kebutuhan.
Salam,
Hendrik Karnadi
________________________________
From: Prazt Math <[email protected]>
To: [email protected]
Sent: Wednesday, 19 September 2012, 12:44
Subject: [belajar-excel] FW: filter baris
Mohon maaf pertanyaannya malah kebalik karena saking bingungya, pertanyaan saya
ulang:
Dear para suhu excell, ane mau minta bantuan pada para exceller tapi mohon maaf
apabila sudah ada pertanyaan yang serupa dan agak sembrono.
Bagaimana cara memfilter kolom, kalau selama ini yang saya tahu masih filter
baris..??
From:Prazt Math [mailto:[email protected]]
Sent: 19 September 2012 12:40
To: [email protected]
Subject: filter baris
Dear para suhu excell, ane mau minta bantuan pada para exceller tapi mohon maaf
apabila sudah ada pertanyaan yang serupa dan agak sembrono.
Bagaimana cara memfilter baris, kalau selama ini yang saya tahu masih filter
kolom..??
Filter row (zero as blank).xlsb
Description: application/vnd.ms-excel.sheet.binary.macroenabled.12
