Zemāk mēs apskatīsim programmu Excel VBA kas iekrāso a maksimālo vērtību dinamiskais diapazons.
Situācija:
Katru reizi, kad pievienojam skaitli un noklikšķinām uz komandas pogas, mēs vēlamies, lai Excel VBA izkrāso šo skaitļu maksimālo vērtību.
Ievietojiet komandas pogu savā darblapā un pievienojiet šādas koda rindiņas:
1. Pirmkārt, mēs deklarējam vienu mainīgo un divus diapazona objektus. Vienu Double tipa mainīgo mēs saucam par maksimālo. Range objektus saucam par rng un cell.
Maksimāli aptumšot kā dubultā, rng kā diapazons, šūna kā diapazons
2. Mēs pievienojam rindu, kas maina visu šūnu fona krāsu, uz “No Fill”.
Šūnas.Interior.ColorIndex = 0
3. Mēs inicializējam rng ar skaitļiem. Šim nolūkam mēs izmantojam rekvizītu CurrentRegion. Pašreizējais reģions ir noderīgs, ja mēs iepriekš nezinām precīzas diapazona robežas.
Iestatīt rng = Diapazons ("A1"). Pašreizējais reģions
4. Mēs inicializējam maksimumu ar skaitļu maksimālo vērtību. Mēs izmantojam darblapas funkciju Max, lai atrastu maksimālo vērtību.
maksimums = WorksheetFunction.Max (rng)
5. Visbeidzot, mēs krāsojam maksimālo vērtību. Mēs izmantojam katrai nākamajai cilpai.
Katrai šūnai In rng
Ja šūna.Vērtība = maksimums Tad šūna.Interior.ColorIndex = 22
Nākamā šūna
Piezīme. ColorIndex numura 22 (sarkans) vietā varat izmantot jebkuru ColorIndex numuru.
6. Pievienojiet skaitli.
Rezultāts, noklikšķinot uz komandas pogas lapā:
