VBA darblapas Kā izmantot darblapas objektu VBA?

Satura rādītājs

Excel VBA darblapas

Excel ir darbgrāmata, un tajā ir darblapas vai lapas. Ir ļoti svarīgi izprast VBA darblapu jēdzienu, jo visu laiku mēs strādājam ar darblapām. Parastajā Excel failā mēs to saucam par lapām, bet VBA terminoloģijā to sauc par “Darblapa”. Visas darblapas kolekcijas sauc par “Darblapas”.

VBA darblapa ir objekts. Ir divas iespējas atsaukties uz darblapu, izmantojot objektu “Darblapa”, un otru, izmantojot objektu “Izklājlapas”.

Es zinu, ka jūsu jautājums ir, kāda ir atšķirība starp viņiem. Programmā Excel mēs varam redzēt divu veidu lapas, viena ir parastās darblapas, bet otra - diagrammu lapas.

Darblapas cilnē Excel tiek ņemtas vērā tikai darbgrāmatas darblapas, izņemot diagrammu lapas. “Loksnes” ņem vērā visas darbgrāmatas darblapas, ieskaitot diagrammas lapu. Piemēram, apskatiet zemāk redzamo attēlu.

Iepriekš minētajā mums kopā ir 5 loksnes. No šīm 5 lapām 3 ir darblapas un 2 ir diagrammu lapas.

Šeit “Darblapu” skaits ir 3 un “Lokšņu” skaits ir 2.

Tagad apskatiet zemāk esošo attēlu.

Šeit visas lapas ir darblapas, tāpēc gan “Workheet”, gan “Sheets” skaits ir 3.

Tātad, kā daļu no koda, ja vēlaties izmantot darblapas, objekti atceras šo punktu.

VBA darblapu sintakse

Kā es teicu, darblapa ir objekta mainīgais. Tomēr arī tam ir sintakse.

Indekss nav nekas tāds, kas ir darblapas numurs, uz kuru mēs atsaucamies. Kā redzat beigās, to sauc par objektu.

Piemēram, darblapa (1). Atlasiet līdzekļus, lai atlasītu darbgrāmatas pirmo darblapu. Nav svarīgi, kā sauc darblapu; tiks atlasīta jebkura darblapa, kas vispirms ievietota darbgrāmatā.

Uz darblapu mēs varam atsaukties arī pēc nosaukuma. Mums jāpiemin pilnīgs, jo tas ir darblapas nosaukums divkāršās pēdiņās.

Piemēram, darblapa (“Pārdošanas lapa”). Atlasīšana nozīmē atlasīt lapu ar nosaukumu “Pārdošanas lapa”. Šeit nav svarīgi, kāds ir darblapas numurs, tā vienmēr izvēlas norādīto darblapu.

Kā izmantot darblapu objektu VBA?

1. piemērs

Piemēram, pieņemsim, ka jūsu darbgrāmatā kopumā ir 5 loksnes, un šo darblapu nosaukums ir “1. darblapa”, “2. darblapa”, “3. darblapa”, “1. diagrammas lapa” un “2. diagramma”.

Ja darblapas atlasei izmantoju numerāciju, numuru varu izmantot kā atsauci uz darblapu.

Darblapa (2). Atlasīt nozīmē, ka tā atlasīs otro darbgrāmatas darblapu.

Kods:

Apakšdarblapa_piemērs1 () darblapas (2). Atlasiet Beigu apakšgrupa

Es palaidīšu šo kodu, izmantojot F5 taustiņu vai manuāli, un redzēšu rezultātu.

Tagad es mainīšu lapas numuru uz 3.

Kods:

Apakšdarblapa_piemērs1 () darblapas (3). Atlasiet Beigu apakšgrupa

Tagad skatiet, kas notiek, palaižot kodu manuāli vai izmantojot F5 atslēgas kodu.

Ja paskatās uz iepriekš attēlu, tas bija izvēlējies 4 th darblapu, kad es jautāju, lai izvēlētos 3 rd darblapu.

Tas ir tāpēc, ka esmu izmantojis objektu Worksheet, nevis objektu Sheets. Kā es teicu iepriekš, objekts “Darblapas” ņem vērā tikai darblapas, nevis diagrammu lapas.

Lai atlasītu trešo lapu no visām darbgrāmatas lapām, izmantojiet objektu Sheets.

Kods:

Apakšdarblapa_piemērs1 ()

Loksnes (3). Atlasiet

Beigu apakšnodaļa

Tagad tā atlasīs precīzu trešo lapu.

2. piemērs - atlasiet darblapas pēc nosaukuma

Lapu atlase pēc nosaukuma ir precīzs veids, kā atsaukties uz lapu. Piemēram, ja mēs vēlamies atlasīt lapu “3. darblapa”, varat izmantot tālāk norādīto kodu.

Kods:

Apakšdarblapa_piemērs2 () darblapas ("3. darblapa"). Atlasiet Beigt apakškopu

Tas atlasīs precīzu lapu; nav svarīgi, kur tas ir ievietots darbgrāmatā.

Bet, ja jūs mēģinājāt piekļūt diagrammas lapai ar objektu “Worksheets”, mēs iegūsim kļūdu “Subscript out of range”.

Kods:

Apakšdarblapa_piemērs2 () darblapas ("1. diagrammas lapa"). Atlasiet Beigu beigas

Palaidiet šo kodu, izmantojot F5 taustiņu vai manuāli, un skatiet rezultātu.

3. piemērs - problēma ar darblapas nosaukumu

Ir vēl viena problēma, atsaucoties uz lapām pēc nosaukuma. Ja kāds mainīs darblapas nosaukumu, atkal tiks parādīta kļūda “Apakšraksts ārpus diapazona”.

Lai atrisinātu šo problēmu, dodieties uz vizuālo pamata redaktoru, nospiežot taustiņu ALT + F11 .

Tagad atlasiet lapas nosaukumu un nospiediet taustiņu F4, lai redzētu rekvizītu logu.

Šajos rekvizītos logs maina darblapas nosaukumu uz jūsu vārdu.

Viena interesanta lieta šeit ir tā, ka mēs esam mainījuši darblapas nosaukumu no “Worksheet 1” uz “WS1”, tomēr to pašu nosaukumu darbgrāmatā joprojām varam redzēt.

Tagad mēs varam atsaukties uz šo lapu ar nosaukumu “WS1”.

Kods:

Apakšdarblapa_piemērs2 () darblapas ("WS1"). Atlasiet Beigu beigas

Tagad nav svarīgi, kurš mainīs darblapas nosaukumu. Tomēr mūsu kods attiecas uz to pašu lapu, ja vien tas nemaina vizuālā pamata redaktorā.

4. piemērs. Iegūstiet darbgrāmatā esošo kopējo lapu skaitu

Darblapa ir objekts, un mēs varam izmantot visas ar to saistītās īpašības un metodes. Ko mēs darām ar darblapām?

Mēs ievietojam darblapas. Mēs pārdēvējam darblapas. Mēs izdzēšam darblapas un daudzas citas lietas, ko mēs ar to darām.

Ievadiet objektu “Darblapas” un ielieciet punktu, lai redzētu visas opcijas ar tām.

Lai iegūtu darblapu skaitu, izmantojiet VBA Count Property.

Kods:

Sub darblapa_piemērs3 () Dim i As Long i = darblapas. Skaits MsgBox i Beigas Sub

Tas parādīs darblapu skaitu.

Lai gan ir 5 lapas, mēs to saņēmām kā 3, jo pārējās 2 lapas ir diagrammu lapas.

Lai iegūtu kopējo lapu skaitu, izmantojiet objektu “Sheets”.

Kods:

Apakšlapa_piemērs3 () Dim i As Long i = Sheets. Skaits MsgBox i Beigas Sub

Tas parādīs pilnu lapu skaitu.

5. piemērs - Darblapas objekta izmantošanas metodes

Pēc darblapas objekta ievadīšanas mēs varam piekļūt visām ar to saistītajām īpašībām un objektiem. Mēs varam pievienot jaunu lapu. Mēs varam izdzēst utt.

Lai pievienotu jaunu lapu.

Darblapa. Pievienot

Lai izdzēstu darblapu

Darblapa (“Lapas nosaukums”). Dzēst

Lai mainītu darblapas nosaukumu

Darblapa (“Sheet Name”). Name = “New Name”

Interesanti raksti...