Ši pamoka parodys, kaip naudoti VBA, norint paryškinti langelį ar langelių diapazoną.
Sąlyginis formatavimas yra vienas iš būdų paryškinti langelius „Excel“. Ląstelių paryškinimui atlikti taip pat galime naudoti VBA.
Pažymėkite langelį
Norėdami paryškinti langelį VBA, galime naudoti paprastą procedūrą, kaip parodyta žemiau.
| 123 | Sub HighlightCell ()ActiveCell.Interior.Color = vbRedPabaiga Sub |
Pažymėkite langelių diapazoną
Panašiai galime pasirinkti ląstelių diapazoną ir paryškinti visas diapazono ląsteles.
| 1234 | Papildomas paryškinimo diapazonas ()Diapazonas („A1: A10“). PasirinkitePasirinkimas. Interjeras. Spalva = vbRedPabaiga Sub |
Pažymėkite langelius pagal langelio vertę
Norėdami pridėti langelio paryškinimo sąlygą, galime naudoti IF teiginį, kad paryškintume langelį, jei langelio vertė yra didesnė už tam tikrą vertę, šiuo atveju didesnė nei 10.
| 12345 | „HightlightCell_1“Jei ActiveCell.Value> 10 tadaActiveCell.Interior.Color = vbRedPabaiga JeiPabaiga Sub |
Pažymėkite ląstelių diapazoną pagal langelio vertę
Norėdami patikrinti langelių diapazono vertes, turėtume peržvelgti kiekvieną langelį, nustatyti jo vertę ir atitinkamai paryškinti langelį. Žemiau pateiktame pavyzdyje pirmiausia nustatysime, kad diapazone esanti vertė yra skaičius, o tada išbandysime, ar šis skaičius yra didesnis nei 10.
| 12345678910 | Sub HighlightRangeOfCells ()Dim rng As RangeKiekvienam diapazonui („A1: A10“)Jei IsNumeric (rng.Value) TadaJei rng.Vertė> 10 Tadarng.Interior.Color = vbRedPabaiga JeiPabaiga JeiKitas rngPabaiga Sub |
Pažymėkite langelį su sąlyginiu formatavimu
Taip pat galime naudoti VBA, norėdami langeliui taikyti sąlyginį formatavimą, kad paryškintume langelį. Žemiau pateiktame pavyzdyje sąlyginis formatavimas bus taikomas kiekvienam diapazono langeliui. Kaip ir aukščiau pateiktame pavyzdyje, pirmiausia išbandome, ar langelis turi skaitinę reikšmę, ir tada taikome sąlyginį formatavimą.
| 12345678910 | Sub SetConditionalFormatting ()Dim rng As RangeKiekvienam diapazonui („A1: A10“)Jei IsNumeric (rng.Value) Tadarng.FormatConditions.Add Type: = xlCellValue, Operatorius: = xlGreater, Formula1: = "= 10"rng.FormatConditions (1). Interjeras.Spalva = vbRedrng.FormatConditions (1) .StopIfTrue = NetiesaPabaiga JeiKitas rngPabaiga Sub |
Pažymėkite langelį, kai pasikeičia pasirinkimas
Mes galime padaryti langelio paryškinimą dinamišką, kai langelio žymeklis juda dabartiniame darbalapyje, naudodami įvykį „Worksheet_Change“. Žemiau pateiktame pavyzdyje visi lapo paryškinimai bus pašalinti (išskyrus tuos, kurie atliekami su sąlyginiu formatavimu), o aktyvioji ląstelė bus paryškinta raudonai (ColorIndex = 3).
| 1234 | Privatus antrinis darbalapis_SelectionChange („ByVal Target As Range“)ActiveSheet.Cells.Interior.ColorIndex = xlColorIndexNoneTarget.Interior.ColorIndex = 3Pabaiga Sub |
