Šis raksts parādīs, kā VBA lietot kopā ar un beigties
Excel nodrošina mums iespēju apgūt VBA, ierakstot makro. Šie makro burtiski reģistrē visu, ko mēs darām ekrānā, un pārvērš darbības VBA kodā. Pēc tam mēs varam analizēt šo kodu un mācīties no tā.
Ierakstot makro VBA, vissvarīgāk, mainot šūnu formātu, makro ierakstīšanā biežāk izmantos ar… Beigt ar sintaksi. Izpratne par to, ko tie nozīmē un tiek izmantoti, ir svarīga VBA sastāvdaļa.
Makro ierakstīšana
Lai ierakstītu makro programmā Excel, sadaļā Lente, izvēlieties Skats> Makro> Ierakstīt makro.
VAI
Izstrādātājs> Ierakstīt makro
Piezīme. Ja neredzat izstrādātāja lenti, tā ir jāiespējo. Noklikšķiniet ŠEIT, lai uzzinātu, kā to izdarīt.
Ierakstiet makro nosaukumu un noklikšķiniet uz Labi.
Iezīmējiet dažas šūnas un pēc tam formatējiet tās treknrakstā, mainiet krāsu uz sarkanu un mainiet fonta lielumu. Pēc tam noklikšķiniet uz Apturēt ekrāna apakšējā kreisajā stūrī, lai pārtrauktu makro ierakstīšanu.
AR paziņojuma sintaksi
Lai apskatītu / rediģētu ierakstīto makro: lentē atlasiet Skats> Makro> Skatīt makro. Atlasiet tikko ierakstīto makro un pēc tam noklikšķiniet Rediģēt.
VAI
Lentē atlasiet Izstrādātājs> Visual Basic lai pārslēgtos uz VBE logu.
Ierakstītais makro var izskatīties līdzīgs zemāk redzamajam piemēram
| 123456789 | Sub ar Makro ()Diapazons ("A2: C10"). AtlasietSelection.Font.Bold = PatiesaAtlase. Fonts. Izmērs = 12Ar Selection.Font.Krāsa = -16776961.TintAndShade = 0Beigt arBeigu apakš |
Pirmkārt, mēs esam izvēlējušies diapazonu A2: C10.
Pēc tam treknrakstu esam iestatījuši uz true un fonta lielumu uz 12. Ņemiet vērā, ka šīm rindiņām tiek atkārtots kods “Selection.Font”.
Pēc tam makro ir ierakstījis, ka mēs mainām teksta krāsu - ņemiet vērā, ka šoreiz atlases fontam ir AR priekšā, un 2 īpašumiem, kas tiek grozīti (krāsa un tintandshade), priekšā ir punkts (.). Pēc tam koda apgabalu papildina ar BEIDZOT AR.
Lai vienkāršotu šo kodu, mēs varam pārvietot treknrakstu un izmēru, lai tie būtu iekļauti paziņojumā WITH, un tādējādi atcelt nepieciešamību atkārtot vārdu Atlase.
| 123456789 | Sub ar Makro ()Diapazons ("A2: C10"). AtlasietAr Selection.Font.Bold = Patiess.Izmērs = 12.Krāsa = -16776961.TintAndShade = 0Beigt arBeigu apakš |
Tādējādi paziņojuma WITH… END WITH sintakse ir ļoti vienkārša:
| 123 | AR objektu'formatējamos/maināmos rekvizītusBEIDZOT AR |
Mēs varētu mainīt kodu citādi:
| 1234567 | Sub RemoveWith ()Diapazons ("A2: C10"). AtlasietSelection.Font.Bold = PatiesaAtlase. Fonts. Izmērs = 12Atlase. Fonts. Krāsa = -16776961Selection.Font.TintAndShade = 0Beigu apakš |
Iepriekš minētajā piemērā mēs esam pievienojuši vārdus Selection.Font katrai koda rindai. Tāpēc mēs atkārtoti esam atsaukušies uz kodu Selection.Font Object.
Tomēr paziņojuma WITH izmantošana nozīmē, ka kodā uz šo objektu ir jāatsaucas tikai vienu reizi. Tas ir tīrāks kodēšanas veids - tas liek VBA sākt ar WITH un pabeigt ar END WITH - palaistā kods ir iekļauts šajos 2 vārdos. Tas ļauj makro darboties ātrāk un efektīvāk (īpaši garākiem makro), kā arī piešķir jūsu kodam struktūru.
