Ja vēlaties izcelt aktīvās šūnas rindu un kolonnu, jums palīdzēs zemāk esošais VBA kods.
Tātad, mēs izmantosim Excel darblapas notikumu apstrādātāju. Lai darblapas notikums darbotos, kodam jāatrodas darblapas objektā, nevis parastajam modulim. Pasākums darbosies tikai tajā lapā, kurā tas ir rakstīts.
Aktīvās šūnas izcelšanas rindai un kolonnai mēs izmantosim atlases maiņas notikumu.
Loģika:
Loģika ir vienkārša. Mēs vēlamies izkrāsot visu atlases rindu un kolonnu. Mainoties atlasei, iepriekšējās kolonnas un rindas krāsai vajadzētu izzust.
Kods, lai iezīmētu pašreizējās atlases rindu un kolonnu:
Privāta apakšdarblapa_SelectionChange (ByVal Target kā diapazons) Šūnas.Interior.ColorIndex = xlColorIndexNone Target.EntireColumn.Interior.ColorIndex = 37 Target.EntireRow.Interior.ColorIndex = 37 Target.InteriorIndexColorIndex
Kā tas darbojas?
Pirmkārt, mēs izmantojam notikumu Worksheet_SelectionChange, kas tiek aktivizēts ikreiz, kad maināt šūnas atlasi lapā, kurā ir kods.
Tālāk mēs noņemam visas šūnu krāsas no šīs lapas, izmantojot līniju Cells.Interior.ColorIndex = xlColorIndexNone. (Jā, šis kods notīrīs visas lapas veidotās krāsas, izņemot nosacīto formatējumu, kā norādīts iepriekšējā gif attēlā.
Tad mēs krāsojam visu kolonnu un rindu, izmantojot zemāk esošās līnijas.
Target.EntireColumn.Interior.ColorIndex = 37
Target.EntireRow.Interior.ColorIndex = 37
Visbeidzot, notīriet aktīvās šūnas krāsu, izmantojot līniju Target.Interior.ColorIndex = xlColorIndexNone.
Tagad katru reizi, pārvietojot kursoru uz jaunu šūnu, visas krāsas no visas lapas. Pēc tam rinda un kolonnas tiks iezīmētas ar norādīto krāsu indeksu, izņemot pašu aktīvo šūnu.
Aktīvās šūnas kolonnas un rindas izcelšanas veidi
Labākais lietojums ir viegli atrast saistītu informāciju par šūnu strukturētā tabulā.
Iepriekš minētā koda trūkums
Iepriekš minētais kods nomazgās visus pārējos krāsu formatējumus. Tiks saglabāts tikai nosacīts formatējums.
Jā, puiši, tas bija vienkāršākais veids, kā izcelt aktīvās šūnas rindu un kolonnu, izmantojot VBA. Ir arī citas metodes. Par tiem varat izlasīt saistītajos rakstos zemāk.
Ja jums ir šaubas vai kādas citas īpašas prasības saistībā ar šo rakstu vai jebkuru citu ar VBA saistītu rakstu, jautājiet komentāru sadaļā zemāk.
Lejupielādējiet zemāk esošo darba failu. Jūs varat izdzēst lapas saturu un izmantot to kā savu.
Darblapas maiņas notikuma izmantošana, lai palaistu makro, kad tiek veiktas izmaiņas| Tātad, lai palaistu jūsu makro ikreiz, kad lapa tiek atjaunināta, mēs izmantojam VBA darblapas notikumus.
Palaidiet makro, ja lapā tiek veiktas izmaiņas noteiktā diapazonā | Lai palaistu makro kodu, mainoties vērtībai noteiktā diapazonā, izmantojiet šo VBA kodu. Tas nosaka visas izmaiņas, kas veiktas norādītajā diapazonā, un aktivizēs notikumu.
Darblapas notikumi programmā Excel VBA| Darblapas notikums ir patiešām noderīgs, ja vēlaties, lai makro darbotos, kad lapā notiek noteikts notikums.
Populāri raksti:
50 Excel saīsnes, lai palielinātu produktivitāti | Ātrāk izpildiet savu uzdevumu. Šie 50 saīsnes padarīs jūsu darbu vēl ātrāku programmā Excel.
Funkcija VLOOKUP programmā Excel | Šī ir viena no visbiežāk izmantotajām un populārākajām Excel funkcijām, kas tiek izmantota, lai meklētu vērtību no dažādiem diapazoniem un lapām.
COUNTIF programmā Excel 2016 | Saskaitiet vērtības ar nosacījumiem, izmantojot šo apbrīnojamo funkciju. Jums nav jāfiltrē dati, lai uzskaitītu noteiktu vērtību. Skaitītāja funkcija ir būtiska, lai sagatavotu informācijas paneli.
Kā lietot SUMIF funkciju programmā Excel | Šī ir vēl viena būtiska informācijas paneļa funkcija. Tas palīdz apkopot vērtības noteiktos apstākļos.