Strādājot ar Excel, lielākā daļa laika tiek pavadīta darblapas apgabalā - strādājot ar šūnām un diapazoniem.
Un, ja vēlaties automatizēt savu darbu programmā Excel, izmantojot VBA, jums jāzina, kā strādāt ar šūnām un diapazoniem, izmantojot VBA.
Ar diapazoniem VBA var darīt daudz dažādu lietu (piemēram, atlasīt, kopēt, pārvietot, rediģēt utt.).
Tātad, lai aptvertu šo tēmu, es sadalīšu šo pamācību sadaļās un parādīšu, kā strādāt ar šūnām un diapazoniem programmā Excel VBA, izmantojot piemērus.
Sāksim.
Visi kodi, kurus es minēju šajā apmācībā, ir jāievieto VB redaktorā. Dodieties uz sadaļu “Kur ievietot VBA kodu”, lai uzzinātu, kā tas darbojas.Ja jūs interesē vienkāršs VBA apguves veids, apskatiet manu Tiešsaistes Excel VBA apmācība.
Šūnas / diapazona izvēle programmā Excel, izmantojot VBA
Lai strādātu ar šūnām un diapazoniem programmā Excel, izmantojot VBA, jums tas nav jāatlasa.
Vairumā gadījumu labāk neizvēlēties šūnas vai diapazonus (kā mēs redzēsim).
Neskatoties uz to, ir svarīgi iziet šo sadaļu un saprast, kā tā darbojas. Tam būs izšķiroša nozīme jūsu VBA mācībās, un šajā apmācībā tiks izmantoti daudzi šeit aplūkotie jēdzieni.
Tāpēc sāksim ar ļoti vienkāršu piemēru.
Vienas šūnas izvēle, izmantojot VBA
Ja vēlaties atlasīt vienu šūnu aktīvajā lapā (teiksim A1), varat izmantot tālāk norādīto kodu.
Sub SelectCell () Diapazons ("A1"). Atlasiet End Sub
Iepriekš minētajam kodam ir obligātā daļa “Sub” un “End Sub”, kā arī koda rindiņa, kas atlasa šūnu A1.
Diapazons (“A1”) norāda VBA tās šūnas adresi, uz kuru vēlamies atsaukties.
Izvēlieties ir Range objekta metode un atlasa Range objektā norādītās šūnas/diapazonu. Šūnu atsauces jāiekļauj pēdiņās.
Šis kods parādītu kļūdu, ja diagrammas lapa ir aktīva lapa. Diagrammas lapa satur diagrammas, un tā netiek plaši izmantota. Tā kā tajā nav šūnu/diapazonu, iepriekš minētais kods to nevar atlasīt un galu galā parādīs kļūdu.
Ņemiet vērā: tā kā vēlaties atlasīt šūnu aktīvajā lapā, jums vienkārši jānorāda šūnas adrese.
Bet, ja vēlaties atlasīt šūnu citā lapā (teiksim, Sheet2), vispirms jāaktivizē Sheet2 un pēc tam jāizvēlas šūna tajā.
Sub SelectCell () darblapas ("Sheet2"). Aktivizēt diapazonu ("A1"). Atlasiet End Sub
Līdzīgi varat arī aktivizēt darbgrāmatu, pēc tam tajā aktivizēt noteiktu darblapu un pēc tam atlasīt šūnu.
Sub SelectCell () darbgrāmatas ("Book2.xlsx"). Darblapas ("Sheet2"). Aktivizēt diapazonu ("A1"). Atlasiet End Sub
Ņemiet vērā, ka, atsaucoties uz darbgrāmatām, jums ir jāizmanto pilns nosaukums kopā ar faila paplašinājumu (.xlsx iepriekš minētajā kodā). Ja darbgrāmata nekad nav saglabāta, jums nav jāizmanto faila paplašinājums.
Tagad šie piemēri nav ļoti noderīgi, taču vēlāk šajā apmācībā redzēsit, kā mēs varam izmantot tos pašus jēdzienus, lai kopētu un ielīmētu šūnas programmā Excel (izmantojot VBA).
Tāpat kā mēs izvēlamies šūnu, mēs varam arī atlasīt diapazonu.
Diapazona gadījumā tas var būt fiksēts izmēru diapazons vai mainīgs izmēru diapazons.
Fiksētā izmēru diapazonā jūs zināt, cik liels ir diapazons, un varat izmantot precīzu izmēru savā VBA kodā. Bet ar mainīga izmēra diapazonu jums nav ne jausmas, cik liels ir diapazons, un jums ir jāizmanto nedaudz VBA maģijas.
Apskatīsim, kā to izdarīt.
Fiksēta izmēra diapazona izvēle
Šeit ir kods, kas atlasīs diapazonu A1: D20.
Sub SelectRange () diapazons ("A1: D20"). Atlasiet End Sub
Vēl viens veids, kā to izdarīt, ir izmantot zemāk esošo kodu:
Sub SelectRange () Diapazons ("A1", "D20"). Atlasiet End Sub
Iepriekš minētais kods aizņem augšējās kreisās šūnas adresi (A1) un apakšējās labās šūnas adresi (D20) un izvēlas visu diapazonu. Šī metode kļūst noderīga, strādājot ar mainīga lieluma diapazoniem (kā mēs redzēsim, kad īpašums Beigas tiks aplūkots vēlāk šajā apmācībā).
Ja vēlaties, lai atlase notiktu citā darbgrāmatā vai citā darblapā, tad VBA ir jāpasaka precīzie šo objektu nosaukumi.
Piemēram, zemāk esošais kods Book2 darbgrāmatas Sheet2 darblapā atlasītu diapazonu A1: D20.
Sub SelectRange () Darbgrāmatas ("Book2.xlsx"). Darblapas ("Sheet1"). Aktivizējiet diapazonu ("A1: D20"). Atlasiet End Sub
Ko darīt, ja jūs nezināt, cik rindu ir tur? Ko darīt, ja vēlaties atlasīt visas šūnas, kurām ir vērtība.
Šādos gadījumos jums jāizmanto nākamajā sadaļā (par mainīga lieluma diapazona izvēli) parādītās metodes.
Mainīga lieluma diapazona izvēle
Šūnu diapazonu var atlasīt dažādos veidos. Jūsu izvēlētā metode būs atkarīga no datu struktūras.
Šajā sadaļā es apskatīšu dažas noderīgas metodes, kas ir patiešām noderīgas, strādājot ar diapazoniem VBA.
Atlasiet opciju CurrentRange Property izmantošana
Gadījumos, kad nezināt, cik rindu/kolonnu ir dati, varat izmantot objekta Range rekvizītu CurrentRange.
Rekvizīts CurrentRange aptver visas blakus esošās aizpildītās šūnas datu diapazonā.
Zemāk ir kods, kas atlasīs pašreizējo reģionu, kurā atrodas šūna A1.
Sub SelectCurrentRegion () Diapazons ("A1"). CurrentRegion.Select End Sub
Iepriekš minētā metode ir laba, ja jums ir visi dati kā tabula bez tukšām rindām/kolonnām.
Bet, ja jūsu datos ir tukšas rindas/kolonnas, tas neatlasīs tās, kas atrodas aiz tukšajām rindām/kolonnām. Tālāk redzamajā attēlā CurrentRegion kods atlasa datus līdz 10. rindai, jo 11. rinda ir tukša.
Šādos gadījumos, iespējams, vēlēsities izmantot darblapas objekta rekvizītu UsedRange.
Atlasiet Izmantojot UsedRange rekvizītu
UsedRange ļauj atsaukties uz visām mainītajām šūnām.
Tātad zemāk esošais kods atlasītu visas aktīvās lapas izmantotās šūnas.
Sub SelectUsedRegion () ActiveSheet.UsedRange. Atlasiet Beigt apakš
Ņemiet vērā: ja jums ir izmantota tāla šūna, tā tiks ņemta vērā iepriekš minētajā kodā un visas šūnas, līdz tiks atlasīta izmantotā šūna.
Atlasiet Beigu rekvizīta izmantošana
Tagad šī daļa ir patiešām noderīga.
Rekvizīts Beigas ļauj atlasīt pēdējo aizpildīto šūnu. Tas ļauj atdarināt lejupvērstās/augšupvērstās bultiņas vai labās/kreisās taustiņu vadības ietekmi.
Mēģināsim to saprast, izmantojot piemēru.
Pieņemsim, ka jums ir datu kopa, kā parādīts zemāk, un vēlaties ātri atlasīt pēdējās aizpildītās šūnas A slejā.
Problēma ir tā, ka dati var mainīties un jūs nezināt, cik daudz šūnu ir aizpildītas. Ja jums tas jādara, izmantojot tastatūru, varat atlasīt šūnu A1 un pēc tam izmantot Control + lejupvērsto bulttaustiņu, un tā atlasīs pēdējo aizpildīto šūnu kolonnā.
Tagad redzēsim, kā to izdarīt, izmantojot VBA. Šī metode ir noderīga, ja vēlaties ātri pāriet uz pēdējo aizpildīto šūnu mainīga lieluma kolonnā
Apakš GoToLastFilledCell () diapazons ("A1"). Beigas (xlDown). Atlasiet Beigu apakšdaļa
Iepriekš minētais kods pārietu uz pēdējo aizpildīto šūnu A slejā.
Līdzīgi varat izmantot beigas (xlToRight), lai pārietu uz pēdējo aizpildīto šūnu pēc kārtas.
Apakš GoToLastFilledCell () diapazons ("A1"). Beigas (xlToRight). Atlasiet beigu apakšdaļu
Ko darīt, ja vēlaties atlasīt visu kolonnu, nevis pāriet uz pēdējo aizpildīto šūnu.
To var izdarīt, izmantojot zemāk esošo kodu:
Sub SelectFilledCells () Diapazons ("A1", Diapazons ("A1"). Beigas (xlDown)). Atlasiet Beigt apakš.
Iepriekš minētajā kodā mēs esam izmantojuši pirmo un pēdējo šūnas atsauci, kas mums jāizvēlas. Neatkarīgi no tā, cik aizpildītu šūnu ir, iepriekš minētais kods atlasīs visas.
Atcerieties iepriekš minēto piemēru, kurā mēs izvēlējāmies diapazonu A1: D20, izmantojot šādu koda rindu:
Diapazons (“A1”, “D20”)
Šeit A1 bija augšējā kreisā šūna, un D20 bija diapazona apakšējā labā šūna. Mēs varam izmantot to pašu loģiku, izvēloties mainīga lieluma diapazonus. Bet, tā kā mēs nezinām precīzu apakšējās labās šūnas adresi, mēs to izmantojām, lai to iegūtu.
Diapazonā (“A1”, Diapazons (“A1”). Beigas (xlDown)) “A1” attiecas uz pirmo šūnu un Diapazons (“A1”). Beigas (xlDown) attiecas uz pēdējo šūnu. Tā kā mēs esam snieguši abas atsauces, atlases metode atlasa visas šūnas starp šīm divām atsaucēm.
Līdzīgi varat atlasīt arī visu datu kopu, kurā ir vairākas rindas un kolonnas.
Zemāk esošais kods atlasītu visas aizpildītās rindas/kolonnas, sākot no šūnas A1.
Sub SelectFilledCells () Range ("A1", Range ("A1"). End (xlDown). End (xlToRight)). Atlasiet End Sub
Iepriekš minētajā kodā mēs esam izmantojuši diapazonu (“A1”). Beigas (xlDown) .End (xlToRight), lai iegūtu atsauci uz datu kopas apakšējā labajā pusē aizpildīto šūnu.
Atšķirība starp pašreizējā reģiona un beigu izmantošanu
Ja jums rodas jautājums, kāpēc izmantot beigu īpašumu, lai atlasītu aizpildīto diapazonu, ja mums ir īpašums CurrentRegion, ļaujiet man pateikt atšķirību.
Izmantojot īpašumu Beigas, varat norādīt sākuma šūnu. Piemēram, ja jūsu dati ir A1: D20, bet pirmā rinda ir galvenes, varat izmantot beigu īpašumu, lai atlasītu datus bez galvenēm (izmantojot zemāk esošo kodu).
Sub SelectFilledCells () Diapazons ("A2", Diapazons ("A2"). End (xlDown). End (xlToRight)). Atlasiet End Sub
Bet pašreizējais reģions automātiski atlasītu visu datu kopu, ieskaitot galvenes.
Līdz šim šajā apmācībā mēs esam redzējuši, kā atsaukties uz šūnu diapazonu, izmantojot dažādus veidus.
Tagad apskatīsim dažus veidus, kā mēs faktiski varam izmantot šīs metodes, lai paveiktu kādu darbu.
Kopējiet šūnas / diapazonus, izmantojot VBA
Kā jau minēju šīs apmācības sākumā, šūnas izvēle nav nepieciešama, lai ar to veiktu darbības. Šajā sadaļā jūs redzēsit, kā kopēt šūnas un diapazonus, tos pat neatlasot.
Sāksim ar vienkāršu piemēru.
Vienas šūnas kopēšana
Ja vēlaties kopēt šūnu A1 un ielīmēt to šūnā D1, to darīs zemāk esošais kods.
Sub CopyCell () diapazons ("A1"). Kopēšanas diapazons ("D1") Beigu apakš
Ņemiet vērā, ka diapazona objekta kopēšanas metode kopē šūnu (tāpat kā Control +C) un ielīmē to norādītajā adresē.
Iepriekš minētajā koda piemērā galamērķis ir norādīts tajā pašā rindā, kur izmantojat kopēšanas metodi. Ja vēlaties padarīt savu kodu vēl lasāmāku, varat izmantot tālāk norādīto kodu.
Sub CopyCell () diapazons ("A1"). Kopēšanas galamērķis: = Diapazons ("D1") Beigu apakšdaļa
Iepriekš minētie kodi kopēs un ielīmēs tajā vērtību, kā arī formatējumu/formulas.
Kā jau esat pamanījis, iepriekš minētais kods kopē šūnu, to neizvēloties. Neatkarīgi no tā, kur atrodaties darblapā, kods kopēs šūnu A1 un ielīmēs to D1.
Ņemiet vērā arī to, ka iepriekš minētais kods pārrakstītu visus esošos kodus šūnā D2. Ja vēlaties, lai Excel jums paziņotu, vai šūnā D1 jau ir kaut kas, to nepārrakstot, varat izmantot tālāk norādīto kodu.
Sub CopyCell () If Range ("D1") "" then Response = MsgBox ("Vai vēlaties pārrakstīt esošos datus", vbYesNo) End If If Response = vbJā tad diapazons ("A1"). Kopēt diapazonu ("D1 ") Beigt Ja beigt apakš
Fiksēta diapazona kopēšana
Ja vēlaties kopēt A1: D20 formātā J1: M20, varat izmantot šādu kodu:
Sub CopyRange () diapazons ("A1: D20"). Copy Range ("J1") End Sub
Galamērķa šūnā jums vienkārši jānorāda augšējās kreisās šūnas adrese. Kods automātiski nokopēs precīzu nokopēto diapazonu galamērķī.
Jūs varat izmantot to pašu konstrukciju, lai kopētu datus no vienas lapas uz otru.
Zemāk esošais kods kopētu A1: D20 no aktīvās lapas uz lapu 2.
Sub CopyRange () diapazons ("A1: D20"). Darblapu kopēšana ("Sheet2"). Diapazons ("A1") Beigu apakšdaļa
Iepriekš minētais kopē datus no aktīvās lapas. Tāpēc pirms koda palaišanas pārliecinieties, vai lapa, kurā ir dati, ir aktīvā lapa. Drošības labad datu kopēšanas laikā varat norādīt arī darblapas nosaukumu.
Sub CopyRange () darblapas ("Sheet1"). Diapazons ("A1: D20"). Copy Worksheets ("Sheet2"). Diapazons ("A1") End Sub
Iepriekš minētā koda labais ir tas, ka neatkarīgi no tā, kura lapa ir aktīva, tā vienmēr kopēs datus no lapas 1 un ielīmēs lapā.
Varat arī kopēt nosaukto diapazonu, atsauces vietā izmantojot tā nosaukumu.
Piemēram, ja jums ir nosaukts diapazons ar nosaukumu “SalesData”, varat izmantot tālāk norādīto kodu, lai kopētu šos datus uz lapu Sheet2.
Sub CopyRange () diapazons ("SalesData"). Kopēt darblapas ("Sheet2"). Diapazons ("A1") Beigu apakš
Ja nosauktā diapazona darbības joma ir visa darbgrāmata, lai palaistu šo kodu, jums nav jāatrodas lapā, kurā ir nosauktais diapazons. Tā kā nosauktais diapazons ir iekļauts darbgrāmatā, varat tam piekļūt no jebkuras lapas, izmantojot šo kodu.
Ja jums ir tabula ar nosaukumu Table1, varat izmantot zemāk esošo kodu, lai to kopētu uz Sheet2.
Sub CopyTable () diapazons ("Table1 [#All]"). Darblapu kopēšana ("Sheet2"). Diapazons ("A1") Beigu apakšdaļa
Varat arī kopēt diapazonu citā darbgrāmatā.
Šajā piemērā es kopēju Excel tabulu (1. tabula) Book2 darbgrāmatā.
Sub CopyCurrentRegion () diapazons ("Table1 [#All]"). Kopēt darbgrāmatas ("Book2.xlsx"). Darblapas ("Sheet1"). Diapazons ("A1") Beigu apakšiedaļa
Šis kods darbosies tikai tad, ja darbgrāmata jau ir atvērta.
Mainīga lieluma diapazona kopēšana
Viens veids, kā kopēt mainīga lieluma diapazonus, ir pārvērst tos nosauktajos diapazonos vai Excel tabulā un izmantot kodus, kā parādīts iepriekšējā sadaļā.
Bet, ja jūs to nevarat izdarīt, varat izmantot diapazona objekta rekvizītu CurrentRegion vai End.
Zemāk esošais kods kopētu pašreizējo reģionu aktīvajā lapā un ielīmētu to lapā 2.
Sub CopyCurrentRegion () diapazons ("A1"). CurrentRegion.Copy darblapas ("Sheet2"). Diapazons ("A1") Beigu apakšiedaļa
Ja vēlaties kopēt savu datu kopas pirmo kolonnu līdz pēdējai aizpildītajai šūnai un ielīmēt to Sheet2, varat izmantot tālāk norādīto kodu.
Sub CopyCurrentRegion () Diapazons ("A1", Diapazons ("A1"). Beigas (xlDown)). Darblapu kopēšana ("Sheet2"). Diapazons ("A1") Beigu apakšiedaļa
Ja vēlaties kopēt rindas un kolonnas, varat izmantot tālāk norādīto kodu.
Sub CopyCurrentRegion () diapazons ("A1", diapazons ("A1"). Beigas (xlDown). Beigas (xlToRight)). Darblapu kopēšana ("Sheet2"). Diapazons ("A1") Beigu apakšdaļa
Ņemiet vērā, ka visi šie kodi neizvēlas šūnas izpildes laikā. Kopumā jūs atradīsit tikai nedaudzus gadījumus, kad jums faktiski ir jāizvēlas šūna/diapazons, pirms strādājat ar to.
Diapazonu piešķiršana objektu mainīgajiem
Līdz šim mēs izmantojām pilnu šūnu adresi (piemēram, darbgrāmatas (“Book2.xlsx”). Darblapas (“Sheet1”). Diapazons (“A1”)).
Lai padarītu kodu vieglāk pārvaldāmu, varat šos diapazonus piešķirt objektu mainīgajiem un pēc tam izmantot šos mainīgos.
Piemēram, zemāk esošajā kodā esmu piešķīris avota un galamērķa diapazonu objektu mainīgajiem un pēc tam izmantojis šos mainīgos, lai kopētu datus no viena diapazona uz otru.
Sub CopyRange () Dim SourceRange kā diapazons Dim DestinationRange As Range Set SourceRange = Darblapas ("Sheet1"). Diapazons ("A1: D20") Set DestinationRange = Darblapas ("Sheet2"). Diapazons ("A1") SourceRange.Copy DestinationRange Beigu apakš
Mēs sākam, deklarējot mainīgos kā diapazona objektus. Tad mēs piešķiram diapazonu šiem mainīgajiem, izmantojot paziņojumu Set. Kad diapazons ir piešķirts mainīgajam, varat vienkārši izmantot mainīgo.
Ievadiet datus nākamajā tukšajā šūnā (izmantojot ievades lodziņu)
Varat izmantot ievades lodziņus, lai ļautu lietotājam ievadīt datus.
Piemēram, pieņemsim, ka jums ir zemāk esošā datu kopa un vēlaties ievadīt pārdošanas ierakstu, varat izmantot ievades lodziņu VBA. Izmantojot kodu, mēs varam pārliecināties, ka tas aizpilda datus nākamajā tukšajā rindā.
Sub EnterData () Dim RefRange kā diapazons Set RefRange = Range ("A1"). End (xlDown). Offset (1, 0) Set ProductCategory = RefRange.Offset (0, 1) Set Quantity = RefRange.Offset (0, 2) ) Set Amount = RefRange.Offset (0, 3) RefRange.Value = RefRange.Offset (-1, 0) .Value + 1 ProductCategory.Value = InputBox ("Produkta kategorija") Quantity.Value = InputBox ("Daudzums") Amount.Value = InputBox ("Amount") beigu apakš
Iepriekš minētais kods izmanto VBA ievades lodziņu, lai saņemtu ievades no lietotāja, un pēc tam ievada ievades norādītajās šūnās.
Ņemiet vērā, ka mēs neizmantojām precīzas šūnu atsauces. Tā vietā mēs esam izmantojuši īpašumu Beigas un nobīde, lai atrastu pēdējo tukšo šūnu un aizpildītu tajā esošos datus.
Šis kods nebūt nav izmantojams. Piemēram, ja ievadāt teksta virkni, kad ievades lodziņā tiek prasīts daudzums vai summa, pamanīsit, ka programma Excel to atļauj. Varat izmantot nosacījumu Ja, lai pārbaudītu, vai vērtība ir skaitliska, un pēc tam to attiecīgi atļaut.
Cilpu / šūnu diapazons
Līdz šim mēs esam redzējuši, kā atlasīt, kopēt un ievadīt datus šūnās un diapazonos.
Šajā sadaļā mēs redzēsim, kā cilpa caur šūnu/rindu/kolonnu kopu noteiktā diapazonā. Tas varētu būt noderīgi, ja vēlaties analizēt katru šūnu un veikt kādu darbību, pamatojoties uz to.
Piemēram, ja atlasē vēlaties izcelt katru trešo rindu, jums ir jāatkārto un jāpārbauda rindas numurs. Līdzīgi, ja vēlaties izcelt visas negatīvās šūnas, mainot fonta krāsu uz sarkanu, jums jāapmeklē un jāanalizē katras šūnas vērtība.
Šeit ir kods, kas cilpos pa atlasīto šūnu rindām un iezīmēs alternatīvās rindas.
Sub HighlightAlternateRows () Dim Myrange kā diapazons Dim Myrow kā diapazons Iestatīt Myrange = Atlase katrai Myrow In Myrange. Rindas, ja Myrow.Row Mod 2 = 0 Pēc tam Myrow.Interior.Color = vbCyan End If Next Myrow End Sub
Iepriekš minētais kods izmanto funkciju MOD, lai pārbaudītu atlasītās rindas numuru. Ja rindas numurs ir vienāds, tas tiek izcelts ciāna krāsā.
Šeit ir vēl viens piemērs, kad kods iet caur katru šūnu un izceļ šūnas, kurām ir negatīva vērtība.
Sub HighlightAlternateRows () Dim Myrange kā diapazons Dim Mycell As Range Set Myrange = Atlase katrai Mycell In Myrange Ja Mycell <0, tad Mycell.Interior.Color = vbSarkanais beigas, ja nākamais Mycell End Sub
Ņemiet vērā, ka to pašu varat darīt, izmantojot nosacīto formatējumu (kas ir dinamisks un labāks veids, kā to izdarīt). Šis piemērs ir paredzēts tikai, lai parādītu, kā cilpa darbojas ar šūnām un diapazoniem VBA.
Kur ievietot VBA kodu
Vai vēlaties uzzināt, kur jūsu Excel darbgrāmatā atrodas VBA kods?
Programmai Excel ir VBA aizmugure, ko sauc par VBA redaktoru. Jums ir nepieciešams kopēt un ielīmēt kodu VB redaktora moduļa koda logā.
Lai to izdarītu, veiciet tālāk norādītās darbības.
- Dodieties uz cilni Izstrādātājs.
- Noklikšķiniet uz opcijas Visual Basic. Tas atvērs VB redaktoru aizmugurē.
- VB redaktora Project Explorer rūtī ar peles labo pogu noklikšķiniet uz jebkura darbgrāmatas objekta, kurā vēlaties ievietot kodu.Ja neredzat Project Explorer, dodieties uz cilni Skats un noklikšķiniet uz Project Explorer.
- Dodieties uz Ievietot un noklikšķiniet uz moduļa. Tādējādi jūsu darbgrāmatai tiks ievietots moduļa objekts.
- Kopējiet un ielīmējiet kodu moduļa logā.
