„Excel“ sąlyginis formatavimas
„Excel“ sąlyginis formatavimas leidžia apibrėžti langelio formatavimą lemiančias taisykles.
Pavyzdžiui, galite sukurti taisyklę, kuri paryškintų langelius, atitinkančius tam tikrus kriterijus. Pavyzdžiai:
- Skaičiai, patenkantys į tam tikrą diapazoną (pvz., Mažiau nei 0).
- 10 geriausių sąrašo elementų.
- „Šilumos žemėlapio“ kūrimas.
- „Formulėmis pagrįstos“ taisyklės praktiškai bet kokiam sąlyginiam formatavimui.
„Excel“ sąlyginį formatavimą galima rasti juostelėje, esančioje „Pagrindinis“> „Stiliai“ (ALT> H> L).
Norėdami sukurti savo taisyklę, spustelėkite „Nauja taisyklė“ ir pasirodys naujas langas:
Sąlyginis formatavimas VBA
Visas šias sąlyginio formatavimo funkcijas galima pasiekti naudojant VBA.
Atminkite, kad kai nustatysite sąlyginį formatavimą iš VBA kodo, nauji parametrai bus rodomi „Excel“ sąsajos sąlyginio formatavimo lange ir bus matomi vartotojui. Vartotojas galės juos redaguoti arba ištrinti, nebent užrakinsite darbalapį.
Sąlyginės formatavimo taisyklės taip pat išsaugomos, kai išsaugomas darbalapis
Sąlyginės formatavimo taisyklės konkrečiai taikomos konkrečiam darbalapiui ir tam tikram langelių diapazonui. Jei jų reikia kitur darbo knygoje, jie taip pat turi būti nustatyti tame darbalapyje.
Sąlyginio formatavimo praktiniai pritaikymai VBA
Į jūsų darbalapį gali būti importuota didelė dalis neapdorotų duomenų iš CSV (kableliais atskirtų verčių) failo arba iš duomenų bazės lentelės ar užklausos. Tai gali patekti į prietaisų skydelį ar ataskaitą, o keičiami skaičiai importuojami iš vieno laikotarpio į kitą.
Kai skaičius pasikeičia ir yra už priimtino diapazono ribų, galite tai pabrėžti, pvz. langelio fono spalva raudona, ir tai galite padaryti nustatydami sąlyginį formatavimą. Tokiu būdu vartotojas bus nedelsiant pritrauktas prie šio numerio ir galės ištirti, kodėl taip atsitinka.
Galite įjungti arba išjungti sąlyginį formatavimą naudodami VBA. Naudodami VBA galite išvalyti langelių diapazono taisykles arba vėl jas įjungti. Gali būti situacija, kai neįprastam skaičiui yra visiškai pagrįsta priežastis, tačiau kai vartotojas pristato prietaisų skydelį ar ataskaitą aukštesniam valdymo lygiui, jis nori pašalinti „pavojaus varpus“.
Be to, neapdorotuose importuotuose duomenyse galbūt norėsite pabrėžti, kur skaičiai yra juokingai dideli arba juokingai maži. Importuotų duomenų diapazonas paprastai yra skirtingo dydžio kiekvienam laikotarpiui, todėl galite naudoti VBA, kad įvertintumėte naujo duomenų diapazono dydį ir įterptumėte tik to diapazono sąlyginį formatavimą.
Taip pat galite susidurti su situacija, kai yra surikiuotas vardų sąrašas su skaitinėmis reikšmėmis, pvz. darbuotojo atlyginimas, egzaminų pažymiai. Naudodami sąlyginį formatavimą, galite naudoti laipsniškas spalvas, kad pereitumėte nuo aukščiausios iki žemiausios, o tai labai įspūdingai atrodo pristatymo tikslais.
Tačiau pavadinimų sąrašas ne visada bus statinis, o jūs galite naudoti VBA kodą, kad atnaujintumėte spalvų skalę pagal diapazono dydžio pokyčius.
Paprastas sąlyginio formato sukūrimo pavyzdys diapazone
Šiame pavyzdyje nustatomas sąlyginis langelio diapazono (A1: A10) formatavimas darbalapyje. Jei skaičius diapazone yra nuo 100 iki 150, tada langelio fono spalva bus raudona, kitaip ji neturės spalvos.
| 1234567891011121314 | Papildomas sąlyginis formatavimasPavyzdys ()„Apibrėžkite diapazoną„Dim MyRange“ kaip diapazonasNustatyti „MyRange = Range“ („A1: A10“)„Ištrinkite esamą sąlyginį formatavimą iš diapazonoMyRange.FormatConditions.Delete„Taikykite sąlyginį formatavimąMyRange.FormatConditions.Add Type: = xlCellValue, Operatorius: = xlBetween, _Formulė1: = "= 100", Formulė2: = "= 150"MyRange.FormatConditions (1). Interjero.Spalva = RGB (255, 0, 0)Pabaiga Sub |
Atkreipkite dėmesį, kad pirmiausia mes nustatome diapazoną „MyRange“ taikyti sąlyginį formatavimą.
Toliau ištriname esamą diapazono sąlyginį formatavimą. Tai gera idėja neleisti tos pačios taisyklės pridėti kiekvieną kartą paleidžiant kodą (žinoma, ji nebus tinkama bet kokiomis aplinkybėmis).
Spalvos pateikiamos skaitinėmis reikšmėmis. Patartina naudoti RGB (raudona, žalia, mėlyna) žymėjimą. Tam galite naudoti standartines spalvų konstantas, pvz. „vbRed“, „vbBlue“, tačiau galite pasirinkti tik aštuonias spalvas.
Yra daugiau nei 16,7 milijono spalvų, o naudodami visas RGB galite jas pasiekti. Tai daug lengviau, nei bandyti prisiminti, kuris numeris dera su kokia spalva. Kiekvienas iš trijų RGB spalvų numerių yra nuo 0 iki 255.
Atminkite, kad parametras „xlBetween“ yra įtrauktas, todėl langelio reikšmės 100 arba 150 atitiks sąlygą.
Daugialypis formatavimas
Galbūt norėsite savo duomenų diapazone nustatyti kelias sąlygines taisykles, kad visos diapazono vertės būtų taikomos skirtingomis sąlygomis:
| 12345678910111213141516171819 | Sub MultipleConditionalFormattingExample ()„Dim MyRange“ kaip diapazonas„Sukurkite diapazono objektąNustatyti „MyRange = Range“ („A1: A10“)„Ištrinkite ankstesnius sąlyginius formatusMyRange.FormatConditions.Delete'Pridėkite pirmąją taisyklęMyRange.FormatConditions.Add Type: = xlCellValue, Operatorius: = xlBetween, _Formulė1: = "= 100", Formulė2: = "= 150"MyRange.FormatConditions (1). Interjero.Spalva = RGB (255, 0, 0)“Pridėkite antrą taisyklęMyRange.FormatConditions.Add Type: = xlCellValue, Operatorius: = xlLess, _Formulė 1: = "= 100"MyRange.FormatConditions (2). Interior.Color = vbBlue„Pridėkite trečią taisyklęMyRange.FormatConditions.Add Type: = xlCellValue, Operatorius: = xlGreater, _Formulė 1: = "= 150"MyRange.FormatConditions (3). Interior.Color = vbGeltonaPabaiga Sub |
Šiame pavyzdyje nustatyta pirmoji taisyklė, kaip ir anksčiau, su raudona langelio spalva, jei langelio vertė yra nuo 100 iki 150.
Tada pridedamos dar dvi taisyklės. Jei langelio vertė yra mažesnė nei 100, tada ląstelės spalva yra mėlyna, o jei ji yra didesnė nei 150, tada ląstelės spalva yra geltona.
Šiame pavyzdyje turite užtikrinti, kad būtų atsižvelgta į visas skaičių galimybes ir kad taisyklės nesutaptų.
Jei šiame diapazone yra tuščių langelių, jie bus rodomi mėlynos spalvos, nes „Excel“ vis tiek mano, kad jų vertė yra mažesnė nei 100.
Išeitis yra pridėti kitą sąlygą kaip išraišką. Tai reikia pridėti kaip pirmąją kodo sąlygų taisyklę. Labai svarbu, kai yra kelios taisyklės, kad vykdymo tvarka būtų teisinga, kitaip rezultatai gali būti nenuspėjami.
| 1234567891011121314151617181920212223 | Sub MultipleConditionalFormattingExample ()„Dim MyRange“ kaip diapazonas„Sukurkite diapazono objektąNustatyti MyRange = Diapazonas („A1: A10“)„Ištrinkite ankstesnius sąlyginius formatusMyRange.FormatConditions.Delete'Pridėkite pirmąją taisyklęMyRange.FormatConditions.Add Type: = xlExpression, Formula1: = _"= LEN (TRIM (A1)) = 0"MyRange.FormatConditions (1). Interior.Pattern = xlNone“Pridėkite antrą taisyklęMyRange.FormatConditions.Add Type: = xlCellValue, Operatorius: = xlBetween, _Formulė1: = "= 100", Formulė2: = "= 150"MyRange.FormatConditions (2). Interjero.Spalva = RGB (255, 0, 0)„Pridėkite trečią taisyklęMyRange.FormatConditions.Add Type: = xlCellValue, Operatorius: = xlLess, _Formulė 1: = "= 100"MyRange.FormatConditions (3). Interior.Color = vbBlue„Pridėkite ketvirtą taisyklęMyRange.FormatConditions.Add Type: = xlCellValue, Operatorius: = xlGreater, _Formulė 1: = "= 150"MyRange.FormatConditions (4). Interior.Color = RGB (0, 255, 0)Pabaiga Sub |
Tam naudojamas „xlExpression“ tipas, o tada naudojama standartinė „Excel“ formulė, siekiant nustatyti, ar langelis yra tuščias, o ne skaitinė reikšmė.
Objektas „FormatConditions“ yra objekto „Range“ dalis. Jis veikia taip pat, kaip ir rinkinys, kurio indeksas prasideda nuo 1. Galite pakartoti šį objektą naudodami For… Next arba For … Kiekvieną kilpą.
Taisyklės ištrynimas
Kartais gali tekti ištrinti atskirą taisyklę iš kelių taisyklių rinkinio, jei ji neatitinka duomenų reikalavimų.
| 12345678910111213 | Sub DeleteConditionalFormattingExample ()„Dim MyRange“ kaip diapazonas„Sukurkite diapazono objektąNustatyti MyRange = Diapazonas („A1: A10“)„Ištrinkite ankstesnius sąlyginius formatusMyRange.FormatConditions.Delete'Pridėkite pirmąją taisyklęMyRange.FormatConditions.Add Type: = xlCellValue, Operatorius: = xlBetween, _Formulė1: = "= 100", Formulė2: = "= 150"MyRange.FormatConditions (1). Interjero.Spalva = RGB (255, 0, 0)'Ištrinti taisyklęMyRange.FormatConditions (1). IštrintiPabaiga Sub |
Šis kodas sukuria naują A1: A10 diapazono taisyklę ir ją ištrina. Norėdami ištrinti, turite naudoti teisingą indekso numerį, todėl „Excel“ sąsajoje patikrinkite „Tvarkyti taisykles“ (tai parodys taisykles vykdymo tvarka), kad įsitikintumėte, jog gaunate teisingą indekso numerį. Atminkite, kad „Excel“ nėra anuliavimo galimybės, jei ištrinate sąlyginio formatavimo taisyklę VBA, skirtingai nei tai darote naudodami „Excel“ sąsają.
Taisyklės keitimas
Kadangi taisyklės yra objektų rinkinys, pagrįstas nurodytu diapazonu, galite lengvai pakeisti tam tikras taisykles naudodami VBA. Faktinės ypatybės, pridėjus taisyklę, yra tik skaitomos, tačiau jas pakeisti galite naudoti modifikavimo metodą. Tokios savybės kaip spalvos yra skaitomos / rašomos.
| 123456789101112131415 | Sub ChangeConditionalFormattingExample ()„Dim MyRange“ kaip diapazonas„Sukurkite diapazono objektąNustatyti MyRange = Diapazonas („A1: A10“)„Ištrinkite ankstesnius sąlyginius formatusMyRange.FormatConditions.Delete'Pridėkite pirmąją taisyklęMyRange.FormatConditions.Add Type: = xlCellValue, Operatorius: = xlBetween, _Formulė1: = "= 100", Formulė2: = "= 150"MyRange.FormatConditions (1). Interjero.Spalva = RGB (255, 0, 0)'Pakeisti taisyklęMyRange.FormatConditions (1). Pakeiskite xlCellValue, xlLess, "10"„Pakeiskite taisyklės spalvąMyRange.FormatConditions (1). Interior.Color = vbGreenPabaiga Sub |
Šis kodas sukuria diapazono objektą (A1: A10) ir prideda skaičių nuo 100 iki 150 taisyklę. Jei sąlyga yra teisinga, langelio spalva pasikeičia į raudoną.
Tada kodas pakeičia taisyklę į skaičius, mažesnius nei 10. Jei sąlyga yra teisinga, langelio spalva dabar pasikeičia į žalią.
Naudojant graduotą spalvų schemą
Sąlyginis „Excel“ formatavimas turi galimybę naudoti laipsniškas spalvas įvairiems skaičiams, rodomiems didėjančia arba mažėjančia tvarka.
Tai labai naudinga, kai turite tokius duomenis kaip pardavimo duomenys pagal geografinę vietovę, miesto temperatūrą ar atstumus tarp miestų. Naudodami VBA turite papildomą pranašumą, nes galite pasirinkti savo graduotą spalvų schemą, o ne standartines, siūlomas „Excel“ sąsajoje.
| 1234567891011121314151617181920212223242526272829 | Subdiplomuotos spalvos ()„Dim MyRange“ kaip diapazonas„Sukurkite diapazono objektąNustatyti MyRange = Diapazonas („A1: A10“)„Ištrinkite ankstesnius sąlyginius formatusMyRange.FormatConditions.Delete„Apibrėžkite skalės tipąMyRange.FormatConditions.AddColorScale ColorScaleType: = 3'Pasirinkite mažiausios vertės diapazono spalvąMyRange.FormatConditions (1). ColorScaleCriteria (1). Tipas = _xlConditionValueLowestValueSu „MyRange.FormatConditions“ (1). „ColorScaleCriteria“ (1). „FormatColor“.Spalva = 7039480Pabaiga su'Pasirinkite spalvą vidutinėms diapazono reikšmėmsMyRange.FormatConditions (1). ColorScaleCriteria (2). Tipas = _xlConditionValuePercentile„MyRange.FormatConditions“ (1). „ColorScaleCriteria“ (2). Vertė = 50'Pasirinkite diapazono vidurio taškąSu „MyRange.FormatConditions“ (1). „ColorScaleCriteria“ (2). „FormatColor“.Spalva = 8711167Pabaiga su'Pasirinkite spalvą, kad gautumėte didžiausią diapazono vertęMyRange.FormatConditions (1). ColorScaleCriteria (3). Tipas = _xlConditionValueHighestValueSu „MyRange.FormatConditions“ (1). „ColorScaleCriteria“ (3). „FormatColor“.Spalva = 8109667Pabaiga suPabaiga Sub |
Kai šis kodas bus paleistas, jis pakeis ląstelių spalvas pagal didėjančias reikšmes diapazone A1: A10.
Tai labai įspūdingas būdas rodyti duomenis ir tikrai patrauks vartotojų dėmesį.
Sąlyginis klaidų verčių formatavimas
Kai turite daug duomenų, galite lengvai praleisti klaidos vertę įvairiuose darbalapiuose. Jei tai pateikiama vartotojui neišsprendus, tai gali sukelti didelių problemų ir prarasti pasitikėjimą skaičiais. Ląstelės įvertinimui naudojama taisyklės tipo „xlExpression“ ir „IsError“ „Excel“ funkcija.
Galite sukurti kodą, kad visos ląstelės su klaidomis būtų raudonos spalvos:
| 1234567891011 | Papildoma klaidaConditionalFormattingExample ()„Dim MyRange“ kaip diapazonas„Sukurkite diapazono objektąNustatyti MyRange = Diapazonas („A1: A10“)„Ištrinkite ankstesnius sąlyginius formatusMyRange.FormatConditions.Delete„Pridėti klaidos taisyklęMyRange.FormatConditions.Add Type: = xlExpression, Formula1: = "= IsError (A1) = true"„Nustatykite interjero spalvą į raudonąMyRange.FormatConditions (1). Interjero.Spalva = RGB (255, 0, 0)Pabaiga Sub |
Sąlyginis praeities datų formatavimas
Galite importuoti duomenis ten, kur norite paryškinti praeities datas. To pavyzdys galėtų būti skolininkų ataskaita, kurioje norite, kad būtų išskirtos bet kurios senesnės nei 30 dienų sąskaitos faktūros datos.
Šis kodas datoms įvertinti naudoja taisyklės tipą „xlExpression“ ir „Excel“ funkciją.
| 1234567891011 | Sub DateInPastConditionalFormattingExample ()„Dim MyRange“ kaip diapazonas„Sukurkite diapazono objektą pagal datų stulpelįNustatyti MyRange = Diapazonas („A1: A10“)„Ištrinkite ankstesnius sąlyginius formatusMyRange.FormatConditions.Delete„Pridėkite klaidų taisyklę praeities datomsMyRange.FormatConditions.Add Type: = xlExpression, Formula1: = "= Dabar ()-A1> 30"„Nustatykite interjero spalvą į raudonąMyRange.FormatConditions (1). Interjero.Spalva = RGB (255, 0, 0)Pabaiga Sub |
Šis kodas užtruks datas diapazone A1: A10 ir nustatys langelio spalvą į raudoną bet kurią datą, kuri yra daugiau nei 30 dienų praeityje.
Sąlygos formulėje Now () pateikiama dabartinė data ir laikas. Tai bus perskaičiuojama kiekvieną kartą perskaičiuojant darbalapį, todėl formatavimas keisis iš vienos dienos į kitą.
Duomenų juostų naudojimas VBA sąlyginiame formatavime
Naudodami VBA galite pridėti duomenų juostas prie skaičių diapazono. Tai beveik kaip mažos diagramos ir iš karto parodo, kokie dideli skaičiai yra vienas kito atžvilgiu. Priimant numatytas duomenų duomenų juostų reikšmes, kodą labai lengva parašyti.
| 123456 | Antrinė duomenų juostaFormattingExample ()„Dim MyRange“ kaip diapazonasNustatyti MyRange = Diapazonas („A1: A10“)MyRange.FormatConditions.DeleteMyRange.FormatConditions.AddDatabarPabaiga Sub |
Jūsų duomenys darbalapyje atrodys taip:
Piktogramų naudojimas sąlyginiame VBA formatavime
Galite naudoti sąlyginį formatavimą, kad darbalapyje šalia piktogramų būtų rodomos piktogramos. Piktogramos gali būti rodyklės ar apskritimai arba įvairios kitos formos. Šiame pavyzdyje kodas prideda rodyklių piktogramas prie skaičių pagal jų procentines reikšmes:
| 12345678910111213141516171819202122232425 | PiktogramaSetExample ()„Dim MyRange“ kaip diapazonas„Sukurkite diapazono objektąNustatyti MyRange = Diapazonas („A1: A10“)„Ištrinkite ankstesnius sąlyginius formatusMyRange.FormatConditions.Delete„Pridėti piktogramų rinkinį prie objekto„ FormatConditions “MyRange.FormatConditions.AddIconSetCondition„Nustatykite piktogramų rinkinį į rodykles - 1 sąlygaSu „MyRange.FormatConditions“ (1).IconSet = ActiveWorkbook.IconSets (xl3Arrows)Pabaiga sunustatykite reikiamos procentinės vertės piktogramos kriterijus - 2 sąlygaSu „MyRange.FormatConditions“ (1). „IconCriteria“ (2).Type = xlConditionValuePercent.Vertybė = 33.Operatorius = xlGreaterEqualPabaiga sunustatykite reikiamos procentinės vertės piktogramos kriterijus - 3 sąlygaSu „MyRange.FormatConditions“ (1). „IconCriteria“ (3).Type = xlConditionValuePercent.Vertė = 67.Operatorius = xlGreaterEqualPabaiga suPabaiga Sub |
Tai suteiks momentinį vaizdą, rodantį, ar skaičius yra didelis, ar mažas. Paleidus šį kodą, jūsų darbalapis atrodys taip:
Sąlyginio formatavimo naudojimas, norint išryškinti penkis geriausius
Galite naudoti VBA kodą, kad paryškintumėte 5 populiariausius duomenų diapazono skaičius. Naudojate parametrą, pavadintą „AddTop10“, tačiau kodo reitingo numerį galite koreguoti iki 5. Vartotojas gali norėti pamatyti didžiausius diapazono skaičius, prieš tai nerūšiuodamas duomenų.
| 1234567891011121314151617181920212223 | Sub -Top5Example ()„Dim MyRange“ kaip diapazonas„Sukurkite diapazono objektąNustatyti „MyRange = Range“ („A1: A10“)„Ištrinkite ankstesnius sąlyginius formatusMyRange.FormatConditions.Delete„Pridėkite„ Top10 “sąlygą„MyRange.FormatConditions.AddTop10“Su „MyRange.FormatConditions“ (1)'Nustatykite parametrą iš viršaus į apačią.TopBottom = xlTop10Top„Nustatykite tik 5 geriausius. Reitingas = 5Pabaiga suSu MyRange.FormatConditions (1). Šriftas'Nustatykite šrifto spalvą.Spalva = -16383844Pabaiga suSu MyRange.FormatConditions (1). Interjeras„Nustatykite langelio fono spalvą.Spalva = 13551615Pabaiga suPabaiga Sub |
Paleidus kodą, jūsų darbalapio duomenys atrodytų taip:
Atminkite, kad 145 reikšmė rodoma du kartus, todėl paryškintos šešios ląstelės.
StopIfTrue ir SetFirstPriority parametrų reikšmė
„StopIfTrue“ yra svarbus, jei langelių diapazonas turi keletą sąlyginio formatavimo taisyklių. Viena diapazono ląstelė gali atitikti pirmąją taisyklę, bet gali atitikti ir vėlesnes taisykles. Kaip kūrėjas, galbūt norėsite, kad būtų rodomas tik pirmosios taisyklės formatavimas. Kiti taisyklių kriterijai gali sutapti ir gali padaryti nenumatytų pakeitimų, jei bus leista tęsti taisyklių sąrašą.
Numatytasis šio parametro parametras yra „True“, tačiau galite jį pakeisti, jei norite atsižvelgti į visas kitas to langelio taisykles:
| 1 | „MyRange“. FormatConditions (1) .StopIfTrue = Netiesa |
„SetFirstPriority“ parametras nurodo, ar ta sąlygų taisyklė bus pirmiausia įvertinta, kai tam langeliui yra kelios taisyklės.
| 1 | „MyRange“. FormatConditions (1) .SetFirstPriority |
Tai perkelia tos taisyklės poziciją į 1 vietą formato sąlygų rinkinyje, o visos kitos taisyklės bus perkeltos žemyn, pakeitus indekso numerius. Būkite atsargūs, jei kodo taisykles keičiate naudodami indekso numerius. Turite įsitikinti, kad keičiate ar ištrinate tinkamą taisyklę.
Galite pakeisti taisyklės prioritetą:
| 1 | „MyRange“. FormatasSąlygos (1). Pirmenybė = 3 |
Tai pakeis santykines visų kitų sąlygų sąlygas sąlyginio formato sąraše.
Sąlyginio formatavimo naudojimas, nurodant kitas langelių reikšmes
Tai yra vienas dalykas, kurio negali padaryti „Excel“ sąlyginis formatavimas. Tačiau tam galite sukurti savo VBA kodą.
Tarkime, kad turite duomenų stulpelį, o gretimame kiekvieno skaičiaus langelyje yra tekstas, nurodantis, koks formatavimas turėtų būti atliekamas kiekvienam skaičiui.
Šis kodas sumažins jūsų skaičių sąrašą, ieškokite gretimo langelio, kad suformatuotumėte tekstą, ir tada suformatuokite skaičių, kaip reikalaujama:
| 123456789101112131415161718192021 | Sub ReferToAnotherCellForConditionalFormatting ()„Sukurkite kintamuosius, kad išlaikytumėte lentelės duomenų eilučių skaičiųDim RRow Long, N As Long„Užfiksuokite eilučių skaičių lentelės duomenų diapazoneRRow = ActiveSheet.UsedRange.Rows.Count„Pakartokite visas lentelės duomenų diapazono eilutesN = 1 Į RRow„Naudokite teiginį„ Pasirinkti atvejį “, kad įvertintumėte formatavimą pagal 2 stulpelįPasirinkite „Case ActiveSheet.Cells“ (N, 2). Vertė„Pakeiskite interjero spalvą į mėlynąDėklas „Mėlyna“ActiveSheet.Ląstelės (N, 1). Interjeras.Spalva = vbBlue„Pakeiskite interjero spalvą į raudonąDėklas „Raudona“ActiveSheet.Ląstelės (N, 1). Interjeras.Spalva = vbRed„Pakeiskite interjero spalvą į žaliąByla „Žalia“ActiveSheet.Ląstelės (N, 1). Interjeras.Spalva = vbŽaliaPabaiga PasirinkiteKitas N.Pabaiga Sub |
Kai šis kodas bus paleistas, jūsų darbalapis dabar atrodys taip:
Langeliai, į kuriuos nurodomas formatavimas, gali būti bet kurioje darbalapio vietoje arba net kitame darbalapio darbalapyje. Jūs galite naudoti bet kokią teksto formą, kad suformatuotumėte sąlygą, ir jūsų vaizduotė riboja tik tai, kaip galite naudoti šį kodą.
Operatoriai, kuriuos galima naudoti sąlyginio formato pareiškimuose
Kaip matėte ankstesniuose pavyzdžiuose, operatoriai naudojami nustatant, kaip bus vertinamos sąlygų vertės, pvz. xlTarp.
Yra keletas šių operatorių, kuriuos galima naudoti, atsižvelgiant į tai, kaip norite nurodyti taisyklės kriterijus.
| vardas | Vertė | apibūdinimas |
| xlTarp | 1 | Tarp. Galima naudoti tik tuo atveju, jei pateikiamos dvi formulės. |
| xlEqual | 3 | Lygus. |
| xlDidesnis | 5 | Geresnis negu. |
| xlGreaterEqual | 7 | Didesnis ar lygus. |
| xlMažiau | 6 | Mažiau nei. |
| xlLessEqual | 8 | Mažesnis arba lygus. |
| xlNotBetween | 2 | Ne tarp. Galima naudoti tik tuo atveju, jei pateikiamos dvi formulės. |
| xlNotEqual | 4 | Nėra lygus. |
