Šajā rakstā mēs izveidosim makro, lai piemērotu nosacīto formatējumu atlasītajā apgabalā.
Mēs esam izmantojuši izlases skaitļus kā izlases datus, lai parādītu makro darbību.
Makro var izpildīt, noklikšķinot uz pogas “Atrast maksimumu” lapā “Galvenā”.
Loģisks skaidrojums
Mēs esam izveidojuši makro “ConditionalFormat”, lai atlasītajam apgabalam piemērotu nosacītu formatējumu. Šis makro izceļ šūnu violetā krāsā, kurā ir maksimālā vērtība atlasītajā apgabalā.
Pirms šī makro izpildes ir jāizvēlas apgabals, kurā viņš vēlas piemērot nosacīto formatējumu.
Piemēram, mēs esam izvēlējušies šūnu diapazonu no B9 līdz F17 kā atlasīto datu paraugu.
Izpildot makro pēc parauga apgabala atlases, atlasītajā apgabalā tiek piemērota nosacītā formatēšana, un šūna D16, kurā ir augstākā vērtība (97), tiks iezīmēta violetā krāsā.
Tagad ņemiet citu paraugu. Kā otro parauga apgabalu esam izvēlējušies diapazonu no šūnas B10 līdz F13.
Pēc otrā parauga apgabala izvēles noklikšķiniet uz pogas “Atrast maksimumu”, lai palaistu makro. Nosacītā formatēšana tiks piemērota izvēlētajai zonai, un šūna C11 tiks iezīmēta violetā krāsā, jo tajā ir maksimālā vērtība (92) atlasītajā apgabalā.
Pēc makro izpildes diviem dažādiem paraugiem abiem tiek piemērots nosacījuma formatējums. Parauga datos gan šūnas C11, gan D16 tiks iezīmētas violetā krāsā, jo tās atspoguļo maksimālās vērtības attiecīgajos paraugos.
Ja kādā no paraugiem tiek mainītas vērtības un viena no tikko ievietotajām vērtībām ir augstākā vērtība, tad šūna ar šo konkrēto vērtību tiks iezīmēta.
Koda skaidrojums
Atlase.FormatConditions.Delete
Iepriekš minētais kods tiek izmantots, lai dzēstu jebkuru nosacīto formatējumu, kas piemērots atlasītajiem datiem.
Selection.FormatConditions.Add Type: = xlExpression, Formula1: = _
"=" & Selection.Cells (1) .Address (False, False) & "= MAX (" & Selection.Address & ")"
Iepriekš minētais kods tiek izmantots, lai pievienotu jaunu nosacījuma formatējumu. Tips norāda, ka izteiksme tiek izmantota nosacījuma formatējuma piemērošanai. Izteiksmes formula ir definēta formulā 1.
Atlase. Šūnas (1). Adrese (nepatiesa, nepatiesa)
Iepriekš minētais kods tiek izmantots, lai atsauktos uz atlases pirmās šūnas adresi.
"=" & Selection.Cells (1) .Address (False, False) & "= MAX (" & Selection.Address & ")"
Iepriekš minēto kodu izmanto, lai salīdzinātu pirmās atlasītās šūnas vērtību ar atlases maksimālo vērtību.
Selection.FormatConditions (1) .Interior.ColorIndex = 39
Iepriekš minēto kodu izmanto, lai šūnai piešķirtu violetu krāsu, kas atbilst formatēšanas nosacījumiem.
Lūdzu, sekojiet tālāk norādītajam kodam
Sub ConditionalFormat () Ar atlasi "Dzēst jebkuru iepriekšējo nosacīto formatējumu. , False) & "= MAX (" & Selection.Address & ")" 'Violetas krāsas piešķiršana nosacītajam formatējumam. FormatConditions (1) .Interior.ColorIndex = 39 Beigt ar beigu apakšdaļu
Ja jums patika šis emuārs, kopīgojiet to ar saviem draugiem Facebook. Varat arī sekot mums Twitter un Facebook.
Mēs labprāt uzklausītu jūsu viedokli, dariet mums zināmu, kā mēs varam uzlabot savu darbu un padarīt to labāku jums. Rakstiet mums e -pasta vietnē