Alla tarkastelemme ohjelmaa Excel VBA joka värittää suurimman arvon a dynaaminen alue.
Tilanne:
Aina kun lisäämme numeron ja napsautamme komentopainiketta, haluamme, että Excel VBA värittää näiden numeroiden enimmäisarvon.
Aseta komentopainike laskentataulukkoosi ja lisää seuraavat koodirivit:
1. Ensin julistamme yhden muuttujan ja kaksi Range -objektia. Yksi Double -tyyppinen muuttuja, jota kutsumme maksimiksi. Kutsumme alueen kohteita rng ja solu.
Himmennä enintään kaksinkertaisena, rng as Range, solu As Range
2. Lisäämme rivin, joka muuttaa kaikkien solujen taustavärin, kohtaan Ei täytettä.
Solut.Interior.ColorIndex = 0
3. Alustamme rng numeroilla. Käytämme tähän CurrentRegion -ominaisuutta. CurrentRegion on hyödyllinen, kun emme tiedä alueen tarkkoja rajoja etukäteen.
Aseta rng = Alue ("A1"). Nykyinen alue
4. Alustamme maksimin numeroiden maksimiarvolla. Käytämme laskentataulukkotoimintoa Max löytääksesi enimmäisarvon.
enintään = WorksheetFunction.Max (rng)
5. Lopuksi väritämme maksimiarvon. Käytämme jokaiselle seuraavalle silmukalle.
Jokaista solua kohti
Jos solu.Arvo = maksimi Sitten solu.Interior.ColorIndex = 22
Seuraava solu
Huomautus: ColorIndex -numeron 22 (punainen) sijasta voit käyttää mitä tahansa ColorIndex -numeroa.
6. Lisää numero.
Tulos, kun napsautat taulukon komentopainiketta:
