Bloks ar - End With VBA tiek izmantots, lai pateiktu VBA, ka mēs izmantosim doto objektu, un tam vajadzētu ņemt vērā dotā objekta īpašības tikai tad, kad mēs izmantojam punktu operatoru. Mēs redzēsim piemērus vēlāk šajā rakstā.
Sintakse ar - Beigt ar bloku
Ar [Object] 'Code to change or use [Object]'- '- Beigt ar
Tātad, tagad, kad mēs zinām sintaksi ar - Beigt ar bloku, apskatīsim tā izmantošanu.
Piemērs ar - Beigt ar bloku
Pieņemsim, ka vēlos veikt vairākas izmaiņas diapazonā A2: A10. Es vēlos atlasīt šo diapazonu, mainīt tā aizpildījuma krāsas, fonta stilu utt. Kā es to darītu kopumā? Droši vien šādi:
Apakštesta () diapazons ("A1: A10"). Atlasiet diapazonu ("A1: A10"). Interior.ColorIndex = 8 Diapazons ("A1: A10"). Font.Name = "Alžīrijas" diapazons ("A1: A10") ") .Font.ColorIndex = 12 diapazons (" A1: A10 "). Font.Underline = xlUnderlineStyleDouble diapazons (" A1: A10 "). Kopēt diapazonu (" B1: B10 ") Diapazons (" A1: A10 "). Skaidrs Beigt apakš
Iepriekš atlasīts diapazons A1: A10. Maina diapazona interjera krāsu uz krāsu indeksu 8. Maina fontu uz alžīriešu. Maina fonta krāsu uz krāsu indeksu 12. Pasvītro tekstu diapazonā ar dubultiem pasvītrojumiem. Pēc tam tas kopē diapazonu A1: A10 līdz diapazonam B1: B10 tajā pašā lapā. Beidzot tas notīra diapazonu A1: A10.
Jūs varat pamanīt, ka, lai veiktu visas darbības ar diapazonu A1: A10, mums tas ir jāraksta katru reizi. Tad punktu operators piekļūst saviem rekvizītiem. Tas samazina apstrādes ātrumu un palielina darba izmaksas VBA programmētājiem. Alternatīva, kā to izdarīt, ir izmantot bloku Ar: Zemāk redzamais kods darbojas tāpat kā iepriekš minētais kods, bet ātrāk.
Apakštests () Ar diapazonu ("A1: A10"). Atlasiet .Interior.ColorIndex = 8 .Font.Name = "Algerian" .Font.ColorIndex = 12 .Font.Underline = xlUnderlineStyleDouble .Copy Range ("B1: B10" ). Skaidrs beigas ar beigu apakšdaļu
Apskatīsim vēl vienu piemēru.
Ja esat izveidojis Outlook Mail objektu, varat to izmantot, lai inicializētu visus tā rekvizītus un izmantošanas metodes.
Set outMail = Outlook.Application.CreateItem (0) Izmantojot outMail .To = "abcd.mail.com" 'Obligāti. Šeit jūs definējat galamērķa pasta ID… cc = "cc.mail.com" 'pēc izvēles. Cc pasta ID, ja vēlaties… BCC = "bcc.mail.com" 'pēc izvēles. Diskrētā kopija pasta ID, ja vēlaties … Temats = subj 'vajadzētu būt. Masāža uz pasta ķermeņa… Ķermenis = ziņojums 'pēc izvēles. Masāža uz pasta ķermeņa… Pielikumi. Pievienojiet "C: /exceltip.com \ test.xlsx". Nosūtīt beigas ar
Kā tas darbojas?
Kad mēs rakstām ar diapazonu ("A1: A10"), vba bloķē atsauci uz objektu diapazonu ("A1: A10"). Tātad, kad mēs rakstām punktu (.) Operatoru, VBA uzskaita visus šīs diapazona klases dalībniekus, kas ietekmēs tikai objekta diapazonu ("A1: A10") vai jebkuru jūsu pieminēto objektu. Atsauces bloķēšana tiek atbrīvota, kad VBA nolasa paziņojumu Beigt.
Ligzdots ar blokiem
Mums var būt bloks citā blokā. Iepriekš minētajā piemērā mēs to izvēlējāmies diapazona objektu. Tad mēs izmantojām Range.Font vairākas reizes, lai strādātu ar fontiem. Tas atkal atkārtojas. Iepriekš minēto kodu var uzrakstīt arī šādi:
Apakšpārbaude () Ar diapazonu ("A1: A10"). Atlasiet .Interior.ColorIndex = 8 'Cita izmantošana kopā ar bloku Ar .Font .Name = "Alžīrijas" .ColorIndex = 12 .Underline = xlUnderlineStyleDouble End with .Copy Diapazons ("B1: B10"). Skaidrs gals ar beigu apakšdaļu
Iekšējam blokam jāatsaucas uz objektu, kas ir ārējā objekta apakšiedalījums. Mēs varam atsaukties uz ārējo ar objektu ar un iekšējo ar kā bērnu ar. Sākot ar iekšējo, objekts jāraksta ar iepriekšējo punktu operatoru.
Kad esat bērns, jūs nevarat piekļūt vecāku īpašumiem. Piemēram, zemāk esošais kods ir nepareizs.
Apakšpārbaude () Ar diapazonu ("A1: A10"). Atlasiet .Interior.ColorIndex = 8 'Cita izmantošana kopā ar bloku Ar .Font .Name = "Alžīrijas" .ColorIndex = 12 .Underline = xlUnderlineStyleDouble' Zemāk redzamais kods radīs kļūdu, jo kopēšanas un dzēšanas metodes nepieder fontu klasei … Kopēšanas diapazons ("B1: B10"). Notīrīt beigas ar beigām ar beigu apakšdaļu
Pilnībā kvalificēts ar bloku
Ja vēlos veikt dažas izmaiņas ar 2. lapas A1: A10 diapazona fontu kodā, kurā ir darbgrāmata, mums jāizmanto pilnībā kvalificēts bloks.
Tālāk norādītie divi kodi darbosies vienādi.
Subtests2 () ar šo darba grāmatu ar .Sheets ("Sheet2") ar .Range ("A1: A10") ar .Font .Name = "Algerian" .ColorIndex = 12 .Underline = xlUnderlineStyleDouble End with End With End with End with End Sub
'Pilnībā kvalificēts ar bloka apakšpārbaudi3 () ar šo darbagrāmatu. Izklājlapas ("Shee2"). Diapazons ("A1: A10"). Fonts .Name = "Alžīrijas" .ColorIndex = 12 .Underline = xlUnderlineStyleDouble End With End Sub
Jūs varat redzēt atšķirību. Tātad, ja zināt, ka no objekta izmantosit vairākas metodes un rekvizītus, sākumā norādiet pilnībā kvalificētu nosaukumu. Ja izmantosit pakārtotus objektus, izmantojiet iepriekšējo pieeju. Pieredzējuši programmētāji piemērotās situācijās izmanto abas metodes.
Jā, puiši, šādi mēs izmantojam ar - Beigt ar bloku VBA. Es ceru, ka es biju pietiekami izskaidrojošs, un šis raksts palīdzēja jums saprast jēdzienu Ar - Beigt ar. Ja jums ir šaubas par šo rakstu vai kādu citu tēmu, jautājiet man komentāru sadaļā zemāk. Es labprāt jums palīdzēšu.
VBA mainīgie programmā Excel| VBA apzīmē Visual Basic for Applications. Tā ir programmēšanas valoda no Microsoft. To izmanto ar Microsoft Office lietojumprogrammām, piemēram, MSExcel, MS-Word un MS-Access, turpretī VBA mainīgie ir specifiski atslēgvārdi.
Excel VBA mainīgā darbības joma| Visās programmēšanas valodās mums ir mainīgas piekļuves specifikatori, kas nosaka, no kurienes var piekļūt definētajam mainīgajam. Excel VBA nav izņēmums. Arī VBA ir darbības jomas specifikatori.
ByRef un ByVal argumenti | Kad arguments tiek nodots kā ByRef arguments citai apakšfunkcijai vai funkcijai, tiek nosūtīta faktiskā mainīgā atsauce. Visas izmaiņas, kas veiktas mainīgā kopijā, tiks atspoguļotas sākotnējā argumentā.
Izdzēsiet lapas bez apstiprinājuma uzvednēm, izmantojot Microsoft Excel VBA | Tā kā jūs dzēšat lapas, izmantojot VBA, jūs zināt, ko darāt. Jūs vēlaties pateikt programmai Excel nerādīt šo brīdinājumu un izdzēst sasodīto lapu.
Pievienojiet un saglabājiet jaunu darbgrāmatu, izmantojot VBA programmā Microsoft Excel 2016| Šajā kodā mēs vispirms izveidojām atsauci uz darbgrāmatas objektu. Un tad mēs to inicializējām ar jaunu darbgrāmatas objektu. Šīs pieejas priekšrocība ir tā, ka jūs varat viegli veikt darbības ar šo jauno darbgrāmatu. Piemēram, saglabāšana, aizvēršana, dzēšana utt
Parādiet ziņojumu Excel VBA statusa joslā| Excel statusa joslu var izmantot kā koda monitoru. Ja jūsu VBA kods ir garš un veicat vairākus uzdevumus, izmantojot VBA, jūs bieži atspējojat ekrāna atjaunināšanu, lai neredzētu ekrāna mirgošanu.
Izslēdziet brīdinājuma ziņojumus, izmantojot VBA programmā Microsoft Excel 2016| Šis kods ne tikai atspējo VBA brīdinājumus, bet arī palielina koda laika efektivitāti. Redzēsim, kā.
Populāri raksti:
50 Excel saīsnes, lai palielinātu produktivitāti | Ātrāk izpildiet savu uzdevumu. Šie 50 īsceļi ļaus jums strādāt vēl ātrāk 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 saskaitītu noteiktas vērtības. 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.