Son Tarihleri ​​Vurgula - Excel İpuçları

Ed bu haftanın Excel sorusunu sordu.

Arama yapacak basit bir Excel makrosuna ihtiyacım var - Diyelim ki - Sütun C ve bugünün tarihini (geçerli tarih) içeren kırmızı hücreleri vurgulayın ve bugünün tarihinden sonraki 15 gün sonraki sütundaki diğer herhangi bir hücreyi sarı olarak vurgulayın.

Excel 97 veya Excel 2000 kullanıcıları, yeni Koşullu Biçimlendirme seçeneğinden yararlanabilir. Önce bunu bir makro olmadan manuel olarak nasıl yapacağımızı ele alalım.

  • C1 hücresine gidin.
  • Menüden Biçim, Koşullu Biçim'i seçin
  • İletişim kutusunun sol tarafında, açılır menüyü "Formül şudur" olarak değiştirin
  • İletişim kutusunun sağ tarafına şunu girin: =INT(C1)=TODAY()
Koşullu Biçimlendirmeyi Ayarlama
  • Biçime tıklayın, Kalıplara tıklayın, Kırmızı'yı seçin. Tamam'ı tıklayın
  • Ekle… 'yi tıklayın.
  • İletişim kutusunun sol tarafında, açılır menüyü "Formül şudur" olarak değiştirin
  • İletişim kutusunun sağ tarafına şunu girin: =AND(INT(C1)>TODAY(),(INT(C1)-TODAY())<16)
  • Biçim, Kalıplar'a tıklayın, Sarıyı Seç'e tıklayın. Tamam'ı tıklayın.
  • Bu koşullu biçimi C1 hücresine atamayı tamamlamak için Tamam'ı tıklatın.
Koşullu Biçim Sonucu

Biçim doğru girilirse, C1 hücresi bugünün tarihini içeriyorsa kırmızıya, tarih önümüzdeki 15 hafta içindeyse sarıya dönüşecektir. Biçimdeki BUGÜN () işlevi, çalışma kitabını başka bir günde açarsak, o gün için hücreleri kırmızı renkte vurgulamasını sağlayacaktır.

Artık C1 hücresini kopyalayabilir, C sütunundaki tüm verileri vurgulayabilir ve bu biçimi C sütunundaki her hücreye uygulamak için Düzen> Özel Yapıştır> Biçimler> Tamam yapabilirsiniz.

Aşağıdaki makro, koşullu biçimin atanmasını otomatik hale getirecektir:

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

Excel 95 kullanıcıları için koşullu biçimlendirmeniz yoktur, ancak aşağıdaki gibi bir makro kullanabilirsiniz:

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

Koşullu biçim işlevinin formül özelliği çok güçlüdür ve çeşitli kriterlere uyan hücreleri vurgulamanıza izin verir.

Ilginç makaleler...