Ez az oktatóanyag bemutatja, hogyan lehet a VBA segítségével kiemelni egy cellát vagy cellatartományt.
A feltételes formázás az Excel egyik cellájának kiemelésének egyik módja. A VBA -t is használhatjuk a cella kiemelésére.
Jelöljön ki egy cellát
A VBA egyik cellájának kiemeléséhez az alábbi egyszerű eljárást használhatjuk.
| 123 | Sub HighlightCell ()ActiveCell.Interior.Color = vbRedEnd Sub |
Cellatartomány kiemelése
Hasonlóképpen kiválaszthatunk egy sejttartományt, és kiemelhetjük a tartomány összes celláját.
| 1234 | Kiemelés tartománya ()Tartomány ("A1: A10"). Válassza kiSelection.Interior.Color = vbRedEnd Sub |
A cellák kiemelése a cella értéke alapján
A cella kiemeléséhez feltétel hozzáadásához használhatunk IF utasítást a cella kiemelésére, ha a cella értéke meghalad egy bizonyos értéket, ez esetben nagyobb, mint 10.
| 12345 | Sub HightlightCell_1Ha az ActiveCell.Value> 10 akkorActiveCell.Interior.Color = vbRedVége HaEnd Sub |
Jelöljön ki egy cellatartományt a cella értéke alapján
A cellák tartományának értékeinek ellenőrzéséhez át kell tekintenünk minden cellát, meg kell határoznunk annak értékét, majd ennek megfelelően ki kell emelnünk a cellát. Az alábbi példában először megállapítjuk, hogy a tartományban lévő érték egy szám, majd teszteljük, hogy ez a szám nagyobb -e 10 -nél.
| 12345678910 | AlkiemelésRangeOfCells ()Dim rng mint tartományMinden tartományban ("A1: A10")Ha IsNumeric (rng.Value) AkkorHa rng.Érték> 10 Akkorrng.Interior.Color = vbRedVége HaVége HaKövetkező rngEnd Sub |
Cella kiemelése feltételes formázással
A VBA segítségével feltételes formázást is alkalmazhatunk a cellára, hogy kiemeljük a cellát. Az alábbi példában feltételes formázást alkalmazunk a tartomány minden cellájára. A fenti példához hasonlóan először teszteljük, hogy a cella rendelkezik -e számértékkel, majd alkalmazzuk a feltételes formázást.
| 12345678910 | RészhalmazConditionalFormatting ()Dim rng mint tartományMinden tartományban ("A1: A10")Ha IsNumeric (rng.Value) Akkorrng.FormatConditions.Add Type: = xlCellValue, Operator: = xlGreater, Formula1: = "= 10"rng.FormatConditions (1). Belső.Szín = vbRedrng.FormatConditions (1) .StopIfTrue = HamisVége HaKövetkező rngEnd Sub |
Jelöljön ki egy cellát, amikor a kiválasztás megváltozik
A cella kiemelését dinamikussá tehetjük, amikor a cellamutató elmozdul az aktuális munkalapon a Worksheet_Change esemény segítségével. Az alábbi példában a lapon lévő összes kiemelés eltávolításra kerül (kivéve a feltételes formázással végrehajtottakat), és az aktív cella piros színnel lesz kiemelve (ColorIndex = 3).
| 1234 | Privát almunkalap_SelectionChange (ByVal Target as Range)ActiveSheet.Cells.Interior.ColorIndex = xlColorIndexNoneTarget.Interior.ColorIndex = 3End Sub |
