pak Azwar, untuk kasus ini agak sulit menggunakan conditional formating (CF) karena logika pemilihan cell tidak menggunakan kriteria bertipe Numeric atau Alphabet tetapi menggunakan interior yang dimiliki oleh suatu cell.
solusi yang saat ini dapat saya berikan adalah menggunakan macro (VBA)
kode ini ditulis di sheet1 pada event Activate
Private Sub Worksheet_Activate()
' variabel untuk menyimpan nilai : indeks suatu kolom, nomor baris,
nomor kolom, dan nomor hari
Dim IdxCol, r, c, WDay As Long
' variabel untuk menyimpan nama hari
Dim Hari As String
' non-aktifkan mode update screen
Application.ScreenUpdating = False
' untuk baris 1 sampai 100
For r = 1 To 100
' untuk kolom 1 sampai 100
For c = 1 To 100
' jika pada cell tersebut diberi format pattern Light Down, maka
If Cells(r, c).Interior.Pattern = xlLightDown Then
' ambil nomor kolom dari cell tersebut
IdxCol = Cells(r, c).Column
' ambil nilai hari, senin adalah hari pertama & minggu hari
ke-7
WDay = Weekday(Date, vbMonday)
' pilih hari dalam 1 minggu
Select Case WDay
' hari ke-1 = Senin
Case 1
Hari = "MON"
' hari ke-2 = selasa
Case 2
Hari = "TUE"
' hari ke-3 = rabu
Case 3
Hari = "WED"
' hari ke-4 = kamis
Case 4
Hari = "THU"
' hari ke-5 = jum'at
Case 5
Hari = "FRI"
' akhir dari pemilihan
End Select
' jika nilai cell = nomor hari dalam 1 minggu, maka
If Cells(2, IdxCol).Value = Hari Then
' kasih format pattern Light Down
Cells(r, c).Interior.Pattern = xlLightDown
' kasih warna merah
Cells(r, c).Interior.Color = vbRed
' selain itu
Else
' kasih format pattern Light Down
Cells(r, c).Interior.Pattern = xlLightDown
' kasih warna putih
Cells(r, c).Interior.Color = vbWhite
' akhir dari logika
End If
' akhir dari logika
End If
' cek kolom berikutnya
Next c
' cek baris berikutnya
Next r
' aktifkan mode update screen
Application.ScreenUpdating = True
' akhir dari prosedur
End Sub
untuk lebih jelasnya, bisa dicoba file terlampir..
ini bukanlah solusi optimal..
wassalam,
-aji mumpung-
Pada 11 Oktober 2012 08:24, Azwar Rhosyied <[email protected]> menulis:
> **
>
>
> Dear Master Excel,
>
> Bagaimana caranya update otomatis supaya cell yang di arsir berubah warna
> mengikuti hari yang ditentukan.
> Misal, MEETING terjadi pada hari MONDAY-TUESDAY, kalau hari ini MONDAY
> maka cell tersebut akan berisi warna merah dan cell yang lain bewarna putih.
>
> Mohon solusinya dari master2 semuanya.
>
> [terlampir file contohnya]
>
> Terima kasih.
>
>
>
re-Kasus Agenda Rutin Kerja.xlsb
Description: Binary data
