Pažymėkite terminus - „Excel“ patarimai

Edas uždavė šios savaitės „Excel“ klausimą.

Man reikia paprastos „Excel“ makrokomandos, kuri ieškos - sakysime - C stulpelio ir raudonai paryškins langelius, kuriuose yra šios dienos data (dabartinė data), ir pažymės geltoną bet kurią kitą stulpelio langelį, kuris yra 15 dienų ateityje nuo šiandienos?

„Excel 97“ arba „Excel 2000“ vartotojai gali pasinaudoti nauja sąlyginio formatavimo galimybe. Pirmiausia aptarkime, kaip tai padaryti rankiniu būdu be makrokomandos.

  • Pereiti į C1 langelį.
  • Meniu pasirinkite Formatas, Sąlyginis formatas
  • Kairėje dialogo pusėje pakeiskite išskleidžiamąjį meniu ir perskaitykite „Formulė yra“
  • Dešinėje dialogo lango pusėje įveskite: =INT(C1)=TODAY()
Sąlyginio formatavimo nustatymas
  • Spustelėkite formatą, spustelėkite Patterns, pasirinkite Raudona. Spustelėkite Gerai
  • Spustelėkite Pridėti …
  • Kairėje dialogo pusėje pakeiskite išskleidžiamąjį meniu ir perskaitykite „Formulė yra“
  • Dešinėje dialogo lango pusėje įveskite: =AND(INT(C1)>TODAY(),(INT(C1)-TODAY())<16)
  • Spustelėkite Formatas, Spustelėkite šablonus, pasirinkite geltoną. Spustelėkite Gerai.
  • Spustelėkite Gerai, kad baigtumėte priskirti šį sąlyginį formatą C1 langeliui.
Sąlyginio formato rezultatas

Jei formatas įvestas teisingai, langelis C1 pasikeis į raudoną, jei jame bus šios dienos data, ir į geltoną, jei data bus per artimiausias 15 savaičių. Formato funkcija TODAY () užtikrins, kad jei atidarysime darbaknygę kitą dieną, ji raudonai paryškins tos konkrečios dienos langelius.

Dabar galite nukopijuoti C1 langelį, pažymėti visus duomenis C stulpelyje ir atlikti Redaguoti> Įklijuoti specialius> Formatai> Gerai, kad pritaikytumėte tą formatą kiekvienam C stulpelio langeliui.

Ši makrokomanda automatizuos sąlyginio formato priskyrimą:

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“ vartotojams neturite sąlyginio formatavimo, bet galite naudoti tokią makrokomandą:

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

Sąlyginio formato funkcijos formulės funkcija yra labai galinga ir leis jums paryškinti langelius, atitinkančius įvairius kriterijus.

Įdomios straipsniai...