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
>
>
>
