Sorot Tanggal Jatuh Tempo - Tips Excel

Ed menanyakan pertanyaan Excel minggu ini.

Saya memerlukan makro Excel sederhana yang akan mencari - katakanlah - Kolom C dan sorot merah sel yang berisi tanggal hari ini (tanggal sekarang) dan sorot sel lain yang berwarna kuning di kolom yang 15 hari ke depan dari tanggal hari ini?

Pengguna Excel 97 atau Excel 2000 dapat memanfaatkan opsi Pemformatan Bersyarat yang baru. Mari kita bahas bagaimana melakukan ini secara manual tanpa makro terlebih dahulu.

  • Pindah ke sel C1.
  • Dari menu, pilih Format, Format Bersyarat
  • Di sisi kiri dialog, ubah drop-down menjadi "Formula adalah"
  • Di sisi kanan kotak dialog, masukkan: =INT(C1)=TODAY()
Mengatur Pemformatan Bersyarat
  • Klik format, Klik Pola, pilih Merah. Klik OK
  • Klik Tambahkan…
  • Di sisi kiri dialog, ubah drop-down menjadi "Formula adalah"
  • Di sisi kanan kotak dialog, masukkan: =AND(INT(C1)>TODAY(),(INT(C1)-TODAY())<16)
  • Klik Format, Klik Pola, Pilih Kuning. Klik OK.
  • Klik OK untuk menyelesaikan penetapan format bersyarat ini ke sel C1.
Hasil Format Bersyarat

Jika format dimasukkan dengan benar, sel C1 akan berubah menjadi merah jika berisi tanggal hari ini dan menjadi kuning jika tanggal dalam 15 minggu ke depan. Fungsi TODAY () dalam format akan memastikan bahwa jika kita membuka buku kerja pada hari lain, itu akan menyorot sel-sel untuk hari itu dengan warna merah.

Anda sekarang dapat menyalin sel C1, sorot semua data di kolom C dan lakukan Edit> Tempel Khusus> Format> OK untuk menerapkan format itu ke setiap sel di kolom C.

Makro berikut akan mengotomatiskan penetapan format bersyarat:

Sub Macro2() Range("C1").Select Selection.FormatConditions.Delete Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _ "=INT(C1)=TODAY()" Selection.FormatConditions(1).Interior.ColorIndex = 3 Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _ "=AND(INT(C1)>TODAY(),(INT(C1)-TODAY())<16)" Selection.FormatConditions(2).Interior.ColorIndex = 6 Selection.Copy FinalRow = Range("C15000").End(xlUp).Row Range("C2:C" & FinalRow).Select Selection.PasteSpecial Paste:=xlPasteFormats End Sub

Untuk pengguna Excel 95, Anda tidak memiliki pemformatan bersyarat, tapi bisa menggunakan makro seperti ini:

Sub Macro95() ThisDate = Date FinalRow = Range("C15000").End(xlUp).Row For x = 1 To FinalRow ThisCell = Int(Range("C" & x).Value) If ThisCell = ThisDate Then Range("C" & x).Interior.ColorIndex = 3 Else DaysFromNow = ThisCell - ThisDate If DaysFromNow> 0 And DaysFromNow < 16 Then Range("C" & x).Interior.ColorIndex = 6 End If End If Next x End Sub

Fitur rumus dari fungsi format bersyarat sangat kuat dan memungkinkan Anda menyorot sel yang sesuai dengan berbagai kriteria.

Artikel yang menarik...