Tämä opetusohjelma osoittaa, kuinka VBA: n avulla voidaan korostaa solu tai solualue.
Ehdollinen muotoilu on yksi tapa korostaa soluja Excelissä. Voimme myös käyttää VBA: ta solujen korostamiseen.
Korosta solu
Voit korostaa solun VBA: ssa käyttämällä yksinkertaista menettelyä, kuten alla on esitetty.
| 123 | Sub HighlightCell ()ActiveCell.Interior.Color = vbPunainenEnd Sub |
Korosta solualue
Samoin voimme valita solualueen ja korostaa kaikki alueen solut.
| 1234 | Alikorostusalue ()Alue ("A1: A10"). ValitseSelection.Interior.Color = vbPunainenEnd Sub |
Korosta solut solun arvon perusteella
Jos haluat lisätä solun korostamisen ehdon, voimme korostaa solun IF -lauseella, jos solun arvo on tietyn arvon yläpuolella, tässä tapauksessa suurempi kuin 10.
| 12345 | Sub HightlightCell_1Jos ActiveCell.Value> 10 sittenActiveCell.Interior.Color = vbPunainenLoppu JosEnd Sub |
Korosta soluvalikoima solun arvon perusteella
Jotta voimme tarkistaa solualueiden arvot, meidän on kierrettävä jokainen solu läpi, määritettävä sen arvo ja korostettava solu vastaavasti. Alla olevassa esimerkissä varmistamme ensin, että alueella pidettävä arvo on luku, ja testataan sitten, onko luku suurempi kuin 10.
| 12345678910 | AlakorostusRangeOfCells ()Dim rng as RangeJokaiselle alueen alueelle ("A1: A10")Jos IsNumeric (rng.Value) SittenJos rng.arvo> 10 Sittenrng.Interior.Color = vbPunainenLoppu JosLoppu JosSeuraava rngEnd Sub |
Korosta solu ehdollisella muotoilulla
Voimme myös käyttää VBA: ta ehdollisen muotoilun käyttämiseen solussa korostamaan solun. Alla olevassa esimerkissä ehdollista muotoilua sovelletaan jokaiseen alueen soluun. Kuten yllä olevassa esimerkissä, testataan ensin, että solussa on numeerinen arvo, ja käytämme sitten ehdollista muotoilua.
| 12345678910 | OsajoukkoConditionalFormatting ()Dim rng as RangeJokaiselle alueen alueelle ("A1: A10")Jos IsNumeric (rng.Value) Sittenrng.FormatConditions.Add Type: = xlCellValue, Operaattori: = xlGreater, Formula1: = "= 10"rng.FormatConditions (1) .Interior.Color = vbPunainenrng.FormatConditions (1) .StopIfTrue = VääräLoppu JosSeuraava rngEnd Sub |
Korosta solu, kun valinta muuttuu
Voimme tehdä solun korostamisesta dynaamisen, kun solun osoitin liikkuu nykyisessä laskentataulukossa käyttämällä Worksheet_Change -tapahtumaa. Alla olevassa esimerkissä kaikki taulukon korostus poistetaan (paitsi ehdollisella muotoilulla tehdyt) ja aktiivinen solu korostetaan punaisella (ColorIndex = 3).
| 1234 | Yksityinen alityöarkki_SelectionChange (ByVal Target as Range)ActiveSheet.Cells.Interior.ColorIndex = xlColorIndexNoneTarget.Interior.ColorIndex = 3End Sub |
