pagi mbak Siti. Maap. Saya baru bergabung dimilis ini. Plus baru mau belajar ttg Excel macro dan formula nya.
Di contoh mbak Siti itu, di sheet2 nya ada contoh yg menggunakan formula. Itu gimana ya mbak ? Maap kl saya salah. terima kasih. On 6/1/11, STDEV(i) <setiyowati.d...@gmail.com> wrote: > *"Filter itu apa"* menurut pendapat penanya, mestinya dijelaskan dulu. > untuk menghidari kejadian spt ini > > "setelah "Proyek Selesai" yg terdengar hanya komment: > "Ooo bukan begitu, kalau cuma gitu aku dah bisa !!" > > 'et deh.. > > (1) > > Private Sub Worksheet_Change(ByVal Target As Range) > Dim dTabel As Range, r As Long > ' siti Vi / 30 May 2011 / beExcel case > ' FILTER DENGAN MENYEMBUNYIKAN DATA YG TERSARING > '----------------------------------------------- > Application.Calculation = xlCalculationManual > Application.EnableEvents = False > Application.ScreenUpdating = False > If Target.Count = 1 Then > If Target.Address = "$B$1" Then > Set dTabel = Cells(4, 1).CurrentRegion > dTabel.EntireRow.Hidden = False > If Target = vbNullString Then GoTo ENDPROC > For r = 1 To dTabel.Rows.Count > If Not dTabel(r, 1) = Target Then > dTabel(r, 1).EntireRow.Hidden = True > End If > Next > End If > End If > ENDPROC: > Application.Calculation = xlCalculationAutomatic > Application.EnableEvents = True > Application.ScreenUpdating = True > End Sub > > > (2) > Private Sub Worksheet_Change(ByVal Target As Range) > Dim dTabel As Range, Tampil As Range > Dim r As Long, n As Long > ' siti Vi / 30 May 2011 / beExcel case > ' FILTER DGN MENGOPY data YG LOLOS ke RANGE LAIN > '----------------------------------------------- > Application.Calculation = xlCalculationManual > Application.EnableEvents = False > On Error GoTo AKHIR > If Target.Count = 1 Then > If Target.Address = "$F$11" Then > Set dTabel = Cells(1, 1).CurrentRegion > Set Tampil = Cells(13, 6).CurrentRegion > Tampil.ClearContents > For r = 2 To dTabel.Rows.Count > If dTabel(r, 1) = Target Then > n = n + 1 > Tampil(n, 1) = dTabel(r, 1) > Tampil(n, 2) = dTabel(r, 2) > End If > Next > End If > End If > AKHIR: > Application.Calculation = xlCalculationAutomatic > Application.EnableEvents = True > End Sub > > > > 2011/5/31 Andrie - <sioe...@yahoo.com> >> bagaimana caranya jika kita mau melakukan filter dengan sebuah kriteria > dengan menggunakan macro. >> Mohon bantuannya. Thx >
