Thx mr. kid solusi sesuai dengan yang saya maksud, lupakan pertanyaan no. 2
//br > -----Original Message----- > From: [email protected] > Sent: Thu, 29 Mar 2012 12:59:28 +0700 > To: [email protected] > Subject: Re: [belajar-excel] Meng-Highlight kolom yang di filter > > Hai Andre, > > No 1. > Memberi warna header yang terfilter menggunakan conditional formatting > dengan macam Use Formula (Is Formula di xl2003), yang formulanya berbunyi > : > =IsFiltered(A$1) > > Syaratnya, workbook memiliki UDF bernama IsFiltered berikut ini : > Public Function IsFiltered(rng As Range) As Long > Dim lField As Long > > IsFiltered = 0 > With rng.Parent > If Not .AutoFilterMode Then > Exit Function > ElseIf Intersect(rng, .AutoFilter.Range) Is Nothing Then > Exit Function > End If > lField = rng.Column - .AutoFilter.Range.Resize(1).Column + 1 > If .AutoFilter.Filters(lField).On Then > IsFiltered = .AutoFilter.Filters(lField).Operator > End If > End With > End Function > > terapkan conditional formatting untuk seluruh header dari tabel yang di > autofilter (dalam file contoh kasus adalah A1:G1), jadi hanya membutuhkan > 1 > conditional formatting per tabel. > > No. 2 > Mungkin bisa dijelaskan lebih detil, > 1. Apa maksud Q1 merujuk ke A2 ? (bukankah di Q1 langsung diberi formula > =A2) > 2. Apa maksud bukan bertipe date ? > 3. Adakah contoh kasus dan hasil yang diinginkan yang memenuhi berbagai > kasus yang mungkin terjadi ? > > Wassalam, > Kid. > > On Thu, Mar 29, 2012 at 10:10, andre pri <[email protected]> wrote: > >> ** >> >> >> Be Exceler's >> >> Meng-Highlight (memberi warna atau menandai) kolom yang di filter dengan >> macro >> >> Pertanyaan: >> >> 1. Bagaimana jika semua menggunakan macro, pada file terlampir kolom >> I1:P1 >> menggunakan formula, >> Jika kolom yang digunakan sedikt tidak terlalu masalah tetapi jika kolom >> yang digunakan banyak (sampai DE)maka kolom yang digunakan akan panjang >> sekali kekanannya. >> >> 2. Jika ingin menggunakan formula (seperti file terlampir), di cell Q1 >> ada formula =NOW() yang me-refer ke cell A2 (format date), >> bagaimana jika di kolom A2:A2 bukan tanggal (date) >> apakah formulanya dirubah?. >> >> br - andre >> >> >> ____________________________________________________________ FREE 3D EARTH SCREENSAVER - Watch the Earth right on your desktop! Check it out at http://www.inbox.com/earth
