Ar paziņojumu programmā Excel VBA
Ar paziņojumu VBA tiek izmantots, lai piekļūtu visām pieminētā objekta īpašībām un metodēm. Mums vispirms jānorāda uz kuru VBA objektu mēs atsaucamies, pēc tam aizveriet paziņojumu With ar End With , pēc tam - šajā paziņojumā. Mēs varam veikt visas minētā objekta rekvizītu izmaiņas un metodes.
Tālāk ir sniegta sintakse sadaļai Ar paziņojumu VBA.
Ar (OBJECT) (Kods … Kas jādara?) Beigt ar
Objekts ir nekas cits kā šūnu vai šūnu diapazons, uz kuru mēs atsaucamies, un tad mēs varam mainīt īpašības un veikt visas metodes, kas saistītas ar šo konkrēto šūnu vai šūnām.
Kā lietot ar paziņojumu programmā Excel VBA?
Tālāk ir sniegti daži piemēri, ko izmantot programmā Excel VBA ar paziņojumu.
1. piemērs
Pieņemsim, ka A1 šūnā ir noteikta vērtība, es šūnā A1 ievadīju tekstu kā “Excel VBA”.
Tagad šai šūnai man ir jāveic daži uzdevumi, ti, formatēšana programmā Excel.
Es vēlos mainīt fonta lielumu, fonta nosaukumu un iekšējo krāsu, ievietot apmali utt. … Parasti mēs rīkojamies ar to, ka vispirms nosūta šūnu, izmantojot objektu VBA RANGE.
Kods:
Apakškopa_piemērs1 () Diapazons ("A1") Beigu apakšgrupa
Tagad, lai mainītu fonta lielumu, mēs piekļūstam šīs šūnas īpašumam “font”.
Zem rekvizīta FONT mēs piekļūstam rekvizītam Izmērs un ievadām lielumu, liekot vienādības zīmi.
Kods:
Apakšdaļa ar_piemers1 () diapazonu ("A1"). Fonts.izmērs = 15 Beigu apakšdaļa
Tagad līdzīgi mēs veicam citus formatēšanas uzdevumus, kā parādīts zemāk.
Kods:
Apakšsadaļa_Example1 () Diapazons ("A1"). Fonts.izmērs = 15 Diapazons ("A1"). Font.Name = "Verdana" diapazons ("A1"). Interior.Color = vbDzeltens diapazons ("A1"). Robežas .LineStyle = xlPārtraukta beigu apakšnodaļa
Tas veiks visus minētos uzdevumus, taču, ja paskatās kodu, lai veiktu katru formēšanas darbību, mēs katru reizi esam norādījuši šūnas adresi. Tādējādi kods izskatās garš un laikietilpīgs.
Tagad mēs izmantosim VBA With paziņojumu, lai katru reizi samazinātu šūnu adreses ievadi. Atveriet priekšrakstu Excel ar VBA un piegādājiet šūnu adresi.
Kods:
Apakšdaļa ar_piemērs1 () ar diapazonu ("A1") Beigu apakšnodaļa
Izrakstā With ievietojiet punktu, lai redzētu visas A1 šūnas īpašības un metodes.
Tagad pirmā formatēšanas darbība maina fonta lielumu, tāpēc piekļūstiet FONT un zem šī piekļuves rekvizīta SIZE.
Kods:
Apakšdaļa ar_piemērs1 () ar diapazonu ("A1"). Fonts.izmērs = 15 Beigu apakšnodaļa
Līdzīgi sniedziet citus formatēšanas kodus un aizveriet VBA ar paziņojumu.
Kods:
Apakšsadaļa_Example1 () ar diapazonu ("A1") .Font.Size = 15 .Font.Name = "Verdana" .Interior.Color = vbYellow .Borders.LineStyle = xlContinuous End With End Sub
Palaidiet kodu, lai redzētu visu formatējumu minētajā objektā, ti, šūnā A1.
Tātad, viss šūnai piemērots formatējums. Paskaties, cik forša ir šī tehnika.
2. piemērs
Piemēram, ja vēlaties mainīt visas īpašības, kas saistītas ar fontu, varat pieminēt šūnu un FONT.
Kods:
Apakšdaļa ar_piemērs2 () ar diapazonu ("A1"). Fonta beigas ar beigu apakšnodaļu
VBA With Statement iekšpusē mēs varam redzēt IntelliSense sarakstu. Tas parādīs īpašības un metodes, kas saistītas tikai ar FONT īpašumu.
Tagad mēs varam veikt jebkuru darbību kopumu.
Kods:
Apakšsadaļa_Example2 () ar diapazonu ("A1"). Fonts .Bold = True "Fonts būs trekns .Color = vbAlias" Fonta krāsa būs Alias .Italic = True "Fonts būs kursīvā .Size = 20 'Fonta lielums būs jābūt 20 .Underline = True 'Fonts tiks pasvītrots End With End Sub
Rezultāts būs tāds, kā parādīts zemāk.
3. piemērs
Šis kods piekļūs tikai ar šūnas robežu saistītiem īpašumiem.
Kods:
Apakšdaļa ar_piemers3 () ar diapazonu ("B2"). Apmales. Krāsa = vbRed 'Apmales krāsa būs sarkana.
Šī koda rezultāts ir šāds.
Atceramās lietas
- Ar paziņojumu tiek izmantots, lai samazinātu kodu.
- Mums vispirms ir jāpiegādā objekts ar paziņojumu.
- Kad konkrētais objekts ir piegādāts, mēs varam piekļūt tikai šī objekta īpašībām un metodēm.
