VBA ar | Kā lietot ar ... Beigt ar paziņojumu programmā Excel VBA?

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 šī paziņojuma iekšpusē 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] [Code… Kas jādara?] Beigt ar 

Objekts nav nekas cits kā šūnu vai šūnu diapazons, uz kuru mēs atsaucamies, un pēc tam 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.

Jūs varat lejupielādēt šo VBA ar Excel veidni šeit - VBA ar Excel veidni

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 interjera krāsu, ievietot apmali utt. Parasti mēs vispirms nododam šū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 uz kodu, lai katru reizi veiktu katru formatēšanas darbību, kuru mēs katru reizi esam piegādājuši šūnas adresei, tas padara kodu izskatu ilgu un laikietilpīgu.

Tagad mēs izmantosim VBA With priekšrakstu, lai katru reizi samazinātu šūnas adreses ievadi. Atveriet priekšrakstu WITH programmā Excel VBA un piegādājiet šūnu adresi.

Kods:

 Apakšdaļa ar_piemērs1 () ar diapazonu ("A1") Beigu apakšdaļ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šsadaļa_Piemērs1 () ar diapazonu ("A1"). Fonts.izmērs = 15 Beigu apakšdaļ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 visus ar fontu saistītos rekvizītus, varat pieminēt šūnu un FONT.

Kods:

 Sub With_Example2 () ar diapazonu ("A1"). Fonta beigas ar End Sub 

In vba With Statement mēs varam redzēt IntelliSense sarakstu, kurā tiks parādītas ī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 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

Zem koda var piekļūt 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.

$config[zx-auto] not found$config[zx-overlay] not found