Šiame straipsnyje sukursime makrokomandą, kad pasirinktoje srityje būtų taikomas sąlyginis formatavimas.
Mes panaudojome atsitiktinius skaičius kaip pavyzdinius duomenis, norėdami parodyti makrokomandos veikimą.
Makrokomandą galima vykdyti spustelėjus mygtuką „Rasti maks.“, Esantį „Pagrindiniame“ lape.
Loginis paaiškinimas
Sukūrėme „ConditionalFormat“ makrokomandą, kad pasirinktai sričiai būtų taikomas sąlyginis formatavimas. Ši makrokomanda paryškina langelį violetine spalva, kurioje yra didžiausia pasirinktos srities vertė.
Prieš vykdant šią makrokomandą, reikia pasirinkti sritį, kurioje jis nori taikyti sąlyginį formatavimą.
Pavyzdžiui, pasirinktų duomenų pavyzdžiu pasirinkome ląstelių diapazoną nuo B9 iki F17.
Vykdant makrokomandą pasirinkus mėginio sritį, pasirinktai sričiai taikomas sąlyginis formatavimas, o langelis D16, kuriame yra didžiausia reikšmė (97), bus paryškintas violetine spalva.
Dabar paimkite kitą pavyzdį. Mes pasirinkome diapazoną nuo ląstelės B10 iki F13 kaip antrąją mėginio sritį.
Pasirinkę antrą mėginio sritį, spustelėkite mygtuką „Rasti maks.“, Kad paleistumėte makrokomandą. Sąlyginis formatavimas bus pritaikytas pasirinktai sričiai, o langelis C11 bus paryškintas violetine spalva, nes jame yra didžiausia reikšmė (92) pasirinktoje srityje.
Įvykdžius makrokomandą dviem skirtingiems pavyzdžiams, jiems abiem taikomas sąlyginis formatavimas. Mėginio duomenyse abi ląstelės C11 ir D16 bus paryškintos violetine spalva, nes jos atitinka didžiausias atitinkamų mėginių vertes.
Jei bet kurio pavyzdžio reikšmės yra pakeistos ir viena iš naujai įterptų verčių yra didžiausia, tada langelis su ta konkrečia reikšme bus paryškintas.
Kodo paaiškinimas
Pasirinkimas.FormatConditions.Delete
Aukščiau pateiktas kodas naudojamas ištrinti bet kokius sąlyginius formatus, taikomus pasirinktiems duomenims.
Selection.FormatConditions.Add Type: = xlExpression, Formula1: = _
"=" & Selection.Cells (1). Adresas (klaidinga, klaidinga) & "= MAX (" & Selection.Address & ")"
Aukščiau pateiktas kodas naudojamas naujam sąlyginiam formatavimui pridėti. Tipas nurodo, kad išraiška naudojama sąlygoms formatuoti. Išraiškos formulė apibrėžta formulėje1.
Atranka. Ląstelės (1). Adresas (klaidinga, klaidinga)
Viršuje esantis kodas naudojamas nuorodai į pasirinkto pirmo langelio adresą.
"=" & Selection.Cells (1). Adresas (klaidinga, klaidinga) & "= MAX (" & Selection.Address & ")"
Aukščiau pateiktas kodas naudojamas pirmojo pasirinkto langelio vertei palyginti su didžiausia pasirinkimo reikšme.
Selection.FormatConditions (1). Interior.ColorIndex = 39
Viršuje esantis kodas naudojamas violetinei spalvai priskirti langeliui, kuris atitinka formatavimo sąlygas.
Sekite toliau pateiktą kodą
Sub ConditionalFormat () Pasirinkus „Ištrinti bet kokį ankstesnį sąlyginį formatavimą .FormatConditions.Delete“ pridėkite sąlyginį formatavimą pasirinktam langeliui .FormatConditions.Add Type: = xlExpression, Formula1: = _ "=" & Selection.Cells (1). Adresas (False , False) & "= MAX (" & Selection.Address & ")" 'Violetinės spalvos priskyrimas sąlyginiam formatavimui .FormatConditions (1) .Interior.ColorIndex = 39 Pabaiga su pabaiga
Jei jums patiko šis tinklaraštis, pasidalykite juo su draugais „Facebook“. Be to, mus galite sekti „Twitter“ ir „Facebook“.
Mes norėtume išgirsti jūsų nuomonę, praneškite mums, kaip galime pagerinti savo darbą ir padaryti jį geresnį. Rašykite mums el