Esiletõstke tähtajad - Exceli näpunäited

Lang L: none (table-of-contents)

Ed esitas selle nädala Exceli küsimuse.

Mul on vaja lihtsat Exceli makrot, mis otsib - ütleme nii - veeru C ja tõstab punase esile lahtrid, mis sisaldavad tänast kuupäeva (praegust kuupäeva), ja tõstavad kollase esile muud veeru lahtrid, mis on tänasest kuupäevast 15 päeva tulevikus?

Excel 97 või Excel 2000 kasutajad saavad kasutada uut tingimusliku vormindamise valikut. Vaatame, kuidas seda kõigepealt käsitsi teha ilma makrota.

  • Liikuge lahtrisse C1.
  • Valige menüüst Format, Conditional Format
  • Muutke dialoogi vasakus servas rippmenüüd, et lugeda "Vormel on"
  • Sisestage dialoogiboksi paremasse serva: =INT(C1)=TODAY()
Tingimusliku vormindamise määramine
  • Klõpsake vormingut, klõpsake mustreid, valige punane. Klõpsake nuppu OK
  • Klõpsake nuppu Lisa …
  • Muutke dialoogi vasakus servas rippmenüüd, et lugeda "Vormel on"
  • Sisestage dialoogiboksi paremasse serva: =AND(INT(C1)>TODAY(),(INT(C1)-TODAY())<16)
  • Klõpsake nuppu Vorming, klõpsake mustreid, valige kollane. Klõpsake nuppu OK.
  • Selle tingimusliku vormingu lahtrisse C1 määramise lõpetamiseks klõpsake nuppu OK.
Tingimusliku vormingu tulemus

Kui vorming on õigesti sisestatud, muutub lahter C1 punaseks, kui see sisaldab tänast kuupäeva, ja kollaseks, kui kuupäev on järgmise 15 nädala jooksul. Funktsioon TODAY () kindlustab, et kui avame töövihiku mõnel teisel päeval, tõstab see selle konkreetse päeva lahtrid punasega esile.

Nüüd saate lahtrit C1 kopeerida, tõsta kõik veerus C olevad andmed esile ja teha redigeerimine> Kleebi spetsiaalne> Vormingud> OK, et rakendada see vorming veeru C igale lahtrile.

Järgmine makro automatiseerib tingimusliku vormingu määramise:

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

Exceli 95 kasutajate jaoks pole teil tingimuslikku vormindust, kuid võite kasutada sellist makrot:

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

Tingimusliku vormingu funktsiooni valemifunktsioon on väga võimas ja võimaldab teil esile tõsta lahtrid, mis vastavad erinevatele kriteeriumidele.

Huvitavad Artiklid...