Jei esate vyresnis už tam tikrą amžių, prisiminsite, kada visas kompiuterines ataskaitas MIS skyrius parengė naudodamas „COBOL“ ir greitą „IBM Line Printer“. Šios ataskaitos visada buvo spausdinamos ant popieriaus, pavadinto „Greenbar“. Keturios eilutės buvo nuspalvintos žaliai, tada keturios eilės buvo baltos spalvos. Šiose ataskaitose buvo 132 simboliai, o galimybė sekti spalvas padėjo išsaugoti vietą ataskaitoje.
Naudojant „Greenbar“ formatavimą „Excel“ yra puikus retro vaizdas. Taip pat vis dar lengviau sekti eiles per visą puslapį. Šiame straipsnyje bus aptartos trys žaliosios juostos formatavimo ataskaitoje galimybės.
1 metodas
Naudokite „AutoFormat“
- Pradėkite nuo duomenų sąrašo formatu.
- Pasirinkite bet kurį langelį sąraše.
- Meniu pasirinkite Formatas - Automatinis formatavimas
- Automatinio formatavimo dialogo lange pamatysite 6 formatus. Norėdami slinkti žemyn į trečią formatų puslapį, naudokite slinkties juostą. Pasirinkite formatą, pavadintą „List2“. Spustelėkite Gerai.
„Excel“ pritaikys žaliosios juostos efektą, kaip parodyta:
Šio metodo trūkumas yra tas, kad rūšiuojant duomenis, formatavimas keliauja su pradine eilute. Surūšiavus pirmiau nurodytus duomenis pagal klientą, gražus 2 žalios spalvos ir 2 baltos spalvos modelis yra atsitiktinis žalios ir baltos spalvos modelis:
2 metodas
Naudokite sąlyginį formatavimą
- Pasirinkite visus langelius savo sąraše.
- Meniu pasirinkite Formatas> Sąlyginis formatas
- Sąlyginio formato dialogo lange pakeiskite pirmąjį išskleidžiamąjį meniu „Langelio vertė yra“ į „Formulė yra“.
- Įveskite šią formulę lauke Formulė:
=MOD(ROW(),2)=0 - Spustelėkite mygtuką Formatuoti …
- Langelių formatavimo dialogo lange spustelėkite skirtuką Šablonai
- Pasirinkite šviesiai žalią (arba šviesiai mėlyną arba šviesiai geltoną) raštą. Spustelėkite Gerai.
- Spustelėkite Gerai, kad uždarytumėte sąlyginio formatavimo dialogą
Rezultatas bus žaliosios juostos efektas, pažymėjus visas kitas eilutes. Jis sukurtas sąlyginiu formatavimu. Galite laisvai perrūšiuoti duomenis, ištrinti eiles ar net įterpti eiles duomenų viduryje. Žaliosios juostos formatavimo efektas išliks.
Sąlyginio formatavimo laukelio formulėje naudojama MOD funkcija. Ar prisimenate, kai pirmą kartą mokėtės, kaip atlikti ilgą dalijimąsi? Jei turėtumėte padalyti 7 į 25, galite sugalvoti atsakymą „3 su likusia 4“? MOD funkcija nurodo likusią dalį atlikus padalijimą. Taigi, =MOD(25,7)būtų 4 - nes likusi dalis po 7 eina į 25 yra 4.
Aukščiau pateiktame sąlyginiame formatavime eilutės numerį padalijote iš 2. Jei likusi dalis buvo 0, tai eilutė yra lyginių skaičių ir pritaikytas sąlyginio formato šablonas.
Galima eksperimentuoti su formule, kad būtų sukurti alternatyvūs juostų modeliai. Pvz., Eilutės numerį padalykite iš 8. Jei likutis yra nuo 0 iki 3, naudokite žalią piešinį. Priešingu atveju naudokite baltą raštą. Štai keletas pavyzdžių formulių:
- 2 žalios spalvos ir 2 baltos spalvos:
=MOD(ROW(),4)<2 - 3 žalios spalvos ir 3 baltos spalvos:
=MOD(ROW(),6)<3 - 4 žalios spalvos ir 4 baltos spalvos:
=MOD(ROW(),8)<4
3 metodas
Naudokite VBA makrokomandą
Pirmiau nurodytas metodas nepavyksta, jei jūsų duomenyse yra paslėptų eilučių. Tai būdinga, jei naudojate automatinį filtrą arba grupių ir kontūrų režimą. 2 metodo negalima naudoti, jei jau turite sąlyginį formatavimą savo duomenyse. Šiuo atveju sprendimas yra tokia makrokomanda. Jei nesate susipažinę su „Visual Basic“ redaktoriumi, skaitykite „Excel VBA Editor“ pristatymas.
Į standartinį modulį įveskite šį kodą:
Sub ApplyGreenBarToSelection() n = 0 For Each VisRow In Selection.Resize(, 1).SpecialCells(xlCellTypeVisible) n = n + 1 If n Mod 2 = 0 Then VisRow.EntireRow.Interior.ColorIndex = 35 End If Next VisRow End SubŽemiau esančiame paveikslėlyje įjungiau automatinio filtravimo funkciją ir filtravau tik kliento DEF įrašus. Pažymėkite visus pažymėtus langelius ir naudokite įrankius - makrokomandas - makrokomandas, kad paleistumėte „ApplyGreenBarToSelection“.
Šios VBA makrokomandos raktas yra .SpecialCells metodas.
