Dirbdami su „Excel“, didžiąją laiko dalį praleidžiate darbalapio srityje - tvarkydami langelius ir diapazonus.
Ir jei norite automatizuoti savo darbą „Excel“ naudodami VBA, turite žinoti, kaip dirbti su langeliais ir diapazonais naudojant VBA.
Yra daug įvairių dalykų, kuriuos galite padaryti naudodami diapazonus VBA (pvz., Pasirinkti, kopijuoti, perkelti, redaguoti ir pan.).
Taigi, norėdamas aptarti šią temą, aš suskaidysiu šią pamoką į skyrius ir parodysiu, kaip dirbti su langeliais ir diapazonais „Excel VBA“, naudojant pavyzdžius.
Pradėkime.
Visi kodai, kuriuos paminėjau šioje pamokoje, turi būti dedami į VB redaktorių. Eikite į skyrių „Kur įdėti VBA kodą“, kad sužinotumėte, kaip jis veikia.Jei jus domina lengvas VBA mokymasis, patikrinkite mano Internetinis „Excel VBA“ mokymas.
Langelio / diapazono pasirinkimas „Excel“ naudojant VBA
Jei norite dirbti su langeliais ir diapazonais „Excel“ naudodami VBA, jo pasirinkti nereikia.
Daugeliu atvejų geriau nepasirinkti langelių ar diapazonų (kaip pamatysime).
Nepaisant to, svarbu pereiti šį skyrių ir suprasti, kaip jis veikia. Tai bus labai svarbu mokantis VBA, o šioje pamokoje bus naudojama daug čia aptariamų sąvokų.
Taigi pradėkime nuo labai paprasto pavyzdžio.
Vienos ląstelės pasirinkimas naudojant VBA
Jei norite pasirinkti vieną langelį aktyviame lape (tarkime, A1), galite naudoti žemiau esantį kodą:
Sub SelectCell () diapazonas ("A1"). Pasirinkite End Sub
Aukščiau pateiktame kode yra privaloma dalis „Sub“ ir „End Sub“, taip pat kodo eilutė, pasirenkanti langelį A1.
Diapazonas („A1“) nurodo VBA langelio, į kurį norime kreiptis, adresą.
Pasirinkite yra „Range“ objekto metodas ir parenka objektą „Range“ nurodytas ląsteles/diapazoną. Ląstelių nuorodos turi būti įtrauktos į kabutes.
Šis kodas parodys klaidą, jei diagramos lapas yra aktyvus lapas. Diagramos lape yra diagramos ir jis nėra plačiai naudojamas. Kadangi jame nėra langelių/diapazonų, aukščiau pateiktas kodas negali jo pasirinkti ir gali parodyti klaidą.
Atminkite, kad kadangi norite pasirinkti langelį aktyviame lape, jums tereikia nurodyti langelio adresą.
Bet jei norite pasirinkti langelį kitame lape (tarkime, Sheet2), pirmiausia turite suaktyvinti Sheet2, o tada pasirinkti langelį jame.
Sub SelectCell () darbalapiai („Sheet2“). Aktyvinti diapazoną („A1“). Pasirinkite End Sub
Panašiai taip pat galite suaktyvinti darbaknygę, tada suaktyvinti joje konkretų darbalapį ir tada pasirinkti langelį.
Sub SelectCell () Darbaknygės ("Book2.xlsx"). Darbo lapai ("Sheet2"). Suaktyvinkite diapazoną ("A1"). Pasirinkite Pabaigos antraštė
Atminkite, kad nurodydami darbaknyges turite naudoti visą pavadinimą kartu su failo plėtiniu (.xlsx aukščiau pateiktame kode). Jei darbo knyga niekada nebuvo išsaugota, jums nereikia naudoti failo plėtinio.
Dabar šie pavyzdžiai nėra labai naudingi, tačiau vėliau šiame vadove pamatysite, kaip mes galime naudoti tas pačias sąvokas kopijuoti ir įklijuoti langelius „Excel“ (naudojant VBA).
Kaip mes pasirenkame langelį, taip pat galime pasirinkti diapazoną.
Asortimento atveju tai gali būti fiksuotas dydžių diapazonas arba kintamas dydžių diapazonas.
Fiksuoto dydžio diapazone jūs žinotumėte, koks didelis diapazonas, ir galite naudoti tikslų dydį savo VBA kode. Tačiau naudojant kintamo dydžio diapazoną jūs neįsivaizduojate, koks didelis diapazonas, ir jums reikia šiek tiek panaudoti VBA magiją.
Pažiūrėkime, kaip tai padaryti.
Fiksuoto dydžio diapazono pasirinkimas
Čia yra kodas, kuris pasirinks diapazoną A1: D20.
Sub SelectRange () diapazonas („A1: D20“). Pasirinkite End Sub
Kitas būdas tai padaryti yra naudoti žemiau esantį kodą:
„Sub SelectRange“ () diapazonas („A1“, „D20“). Pasirinkite End Sub
Aukščiau pateiktas kodas užima viršutinio kairiojo langelio adresą (A1) ir apatinį dešinįjį langelio adresą (D20) ir pasirenka visą diapazoną. Ši technika tampa naudinga, kai dirbate su įvairaus dydžio diapazonais (kaip pamatysime, kai ypatybė „Pabaiga“ bus aptarta vėliau šiame vadove).
Jei norite, kad pasirinkimas vyktų kitoje darbaknygėje ar kitame darbalapyje, turite pasakyti VBA tikslius šių objektų pavadinimus.
Pavyzdžiui, žemiau pateiktas kodas pasirinktų diapazoną A1: D20 „2 knygos“ darbo knygos „Sheet2“ darbalapyje.
Sub SelectRange () Darbaknygės („Book2.xlsx“). Darbo lapai („Sheet1“). Aktyvinkite diapazoną („A1: D20“). Pasirinkite Pabaigos antraštė
Ką daryti, jei nežinote, kiek eilučių yra? Ką daryti, jei norite pasirinkti visas ląsteles, kuriose yra vertė.
Tokiais atvejais turite naudoti kitame skyriuje (pasirinkdami kintamo dydžio diapazoną) nurodytus metodus.
Kintamo dydžio diapazono pasirinkimas
Ląstelių diapazoną galite pasirinkti įvairiais būdais. Pasirinktas metodas priklausys nuo duomenų struktūros.
Šiame skyriuje aptarsiu keletą naudingų metodų, kurie yra tikrai naudingi dirbant su diapazonais VBA.
Pasirinkite Naudoti „CurrentRange“ ypatybę
Tais atvejais, kai nežinote, kiek eilučių/stulpelių turi duomenų, galite naudoti objekto „Range“ ypatybę „CurrentRange“.
„CurrentRange“ ypatybė apima visas gretimas užpildytas duomenų diapazono ląsteles.
Žemiau yra kodas, kuris parinks dabartinį regioną, kuriame yra langelis A1.
Sub SelectCurrentRegion () diapazonas ("A1"). CurrentRegion.Select End Sub
Aukščiau pateiktas metodas yra geras, kai visus duomenis turite kaip lentelę be tuščių eilučių/stulpelių.
Bet jei jūsų duomenyse yra tuščių eilučių/stulpelių, ji nepasirinks tų, kurie yra po tuščių eilučių/stulpelių. Žemiau esančiame paveikslėlyje „CurrentRegion“ kodas parenka duomenis iki 10 eilutės, nes 11 eilutė tuščia.
Tokiais atvejais galbūt norėsite naudoti darbalapio objekto ypatybę „UsedRange“.
Pasirinkite Naudoti „UsedRange“ ypatybę
„UsedRange“ leidžia nurodyti visas pakeistas ląsteles.
Taigi žemiau pateiktas kodas pasirinktų visas naudojamas ląsteles aktyviame lape.
Sub SelectUsedRegion () ActiveSheet.UsedRange. Pasirinkite End Sub
Atminkite, kad jei turite tolimą langelį, kuris buvo naudojamas, jis bus laikomas pagal aukščiau pateiktą kodą ir visos ląstelės, kol bus pasirinkta ta naudojama ląstelė.
Pasirinkite Galutinės nuosavybės naudojimas
Dabar ši dalis tikrai naudinga.
Savybė Pabaigoje leidžia pasirinkti paskutinį užpildytą langelį. Tai leidžia pamėgdžioti rodyklės klavišo žemyn/aukštyn arba dešiniojo/kairiojo klavišų valdymo poveikį.
Pabandykime tai suprasti naudodami pavyzdį.
Tarkime, kad turite duomenų rinkinį, kaip parodyta žemiau, ir norite greitai pasirinkti paskutinius užpildytus A stulpelio langelius.
Problema ta, kad duomenys gali keistis ir jūs nežinote, kiek ląstelių užpildyta. Jei tai turite padaryti naudodami klaviatūrą, galite pasirinkti langelį A1, tada naudoti „Control“ + rodyklės žemyn klavišą ir jis pasirinks paskutinį užpildytą stulpelio langelį.
Dabar pažiūrėkime, kaip tai padaryti naudojant VBA. Ši technika yra naudinga, kai norite greitai pereiti prie paskutinio užpildyto langelio kintamo dydžio stulpelyje
„GoToLastFilledCell“ () diapazonas („A1“). Pabaiga („xlDown“). Pasirinkite „End Sub“
Pirmiau pateiktas kodas pereitų prie paskutinio užpildyto langelio A stulpelyje.
Panašiai galite naudoti pabaigą (xlToRight), norėdami pereiti prie paskutinio užpildyto langelio iš eilės.
„GoToLastFilledCell“ () diapazonas („A1“). Pabaiga („xlToRight“). Pasirinkite Pabaigos antraštė
Ką daryti, jei norite pasirinkti visą stulpelį, o ne pereiti prie paskutinio užpildyto langelio.
Tai galite padaryti naudodami žemiau esantį kodą:
Sub SelectFilledCells () diapazonas ("A1", diapazonas ("A1"). Pabaiga (xlDown)). Pasirinkite pabaigos sub
Pirmiau pateiktame kode mes panaudojome pirmąją ir paskutinę langelio nuorodas, kurias turime pasirinkti. Nesvarbu, kiek užpildytų langelių yra, aukščiau pateiktas kodas pasirinks visus.
Prisiminkite aukščiau pateiktą pavyzdį, kai pasirinkome diapazoną A1: D20 naudodami šią kodo eilutę:
Diapazonas („A1“, „D20“)
Čia A1 buvo viršutinis kairysis langelis, o D20-apatinis dešinysis langelis diapazone. Mes galime naudoti tą pačią logiką pasirinkdami kintamo dydžio diapazonus. Bet kadangi mes nežinome tikslaus apatinio dešiniojo langelio adreso, jį gavome naudodamiesi ypatybe „Pabaiga“.
Diapazone („A1“, diapazonas („A1“). Pabaiga (xlDown)) „A1“ reiškia pirmąjį langelį, o diapazonas („A1“). Pabaiga (xlDown) - paskutinis langelis. Kadangi pateikėme abi nuorodas, pasirinkimo metodas pasirenka visas ląsteles tarp šių dviejų nuorodų.
Taip pat galite pasirinkti visą duomenų rinkinį, kuriame yra kelios eilutės ir stulpeliai.
Žemiau pateiktas kodas pasirinktų visas užpildytas eilutes/stulpelius, pradedant nuo langelio A1.
Sub SelectFilledCells () Range ("A1", Diapazonas ("A1"). End (xlDown). End (xlToRight)). Pasirinkite End Sub
Pirmiau pateiktame kode mes naudojome diapazoną („A1“). Pabaiga (xlDown). Pabaiga (xlToRight), kad gautume duomenų rinkinio apačioje dešinėje užpildytos ląstelės nuorodą.
Skirtumas tarp „CurrentRegion“ ir „End“ naudojimo
Jei jums įdomu, kodėl naudokite ypatybę Pabaigti, kad pasirinktumėte užpildytą diapazoną, kai turime nuosavybę „CurrentRegion“, leiskite man pasakyti skirtumą.
Naudodami ypatybę Pabaiga, galite nurodyti pradžios langelį. Pavyzdžiui, jei jūsų duomenys yra A1: D20, bet pirmoji eilutė yra antraštės, galite naudoti ypatybę Pabaigti, kad pasirinktumėte duomenis be antraščių (naudodami žemiau esantį kodą).
Sub SelectFilledCells () Range ("A2", Range ("A2"). End (xlDown). End (xlToRight)). Pasirinkite End Sub
Tačiau „CurrentRegion“ automatiškai parinks visą duomenų rinkinį, įskaitant antraštes.
Iki šiol šioje pamokoje matėme, kaip įvairiais būdais nurodyti įvairias ląsteles.
Dabar pažiūrėkime, kaip galime iš tikrųjų panaudoti šiuos metodus tam tikram darbui atlikti.
Kopijuoti langelius / diapazonus naudojant VBA
Kaip minėjau šios pamokos pradžioje, norint atlikti veiksmus su ja, nebūtina pasirinkti langelio. Šiame skyriuje pamatysite, kaip kopijuoti langelius ir diapazonus jų net nepasirinkus.
Pradėkime nuo paprasto pavyzdžio.
Vieno langelio kopijavimas
Jei norite nukopijuoti langelį A1 ir įklijuoti jį į langelį D1, tai padarys toliau pateiktas kodas.
Antrasis „CopyCell“ () diapazonas („A1“). Kopijavimo diapazonas („D1“) Pabaiga
Atminkite, kad diapazono objekto kopijavimo metodas nukopijuoja langelį (kaip ir „Control +C“) ir įklijuoja jį nurodytoje paskirties vietoje.
Pirmiau pateiktame kodo pavyzdyje paskirtis nurodyta toje eilutėje, kurioje naudojate kopijavimo metodą. Jei norite, kad jūsų kodas būtų dar labiau skaitomas, galite naudoti žemiau esantį kodą:
Antrasis „CopyCell“ () diapazonas („A1“). Kopijavimo paskirties vieta: = Diapazonas („D1“) Pabaiga
Pirmiau nurodyti kodai nukopijuos ir įklijuos vertę, taip pat formatavimą/formules.
Kaip jau pastebėjote, aukščiau pateiktas kodas nukopijuoja langelį jo nepasirinkęs. Nesvarbu, kur esate darbalapyje, kodas nukopijuos langelį A1 ir įklijuos jį į D1.
Taip pat atkreipkite dėmesį, kad aukščiau pateiktas kodas perrašytų bet kurį esamą kodą D2 langelyje. Jei norite, kad „Excel“ praneštų jums, ar D1 langelyje jau kažkas yra, jo neperrašydami, galite naudoti žemiau esantį kodą.
Sub CopyCell () If Range ("D1") "" then Response = MsgBox ("Ar norite perrašyti esamus duomenis", vbYesNo) Pabaiga, jei If Response = vbTaip tada diapazonas ("A1"). Copy Range ("D1 ") Pabaiga Jei pabaiga Sub
Fiksuoto dydžio diapazono kopijavimas
Jei norite kopijuoti A1: D20 J1: M20, galite naudoti žemiau esantį kodą:
Sub CopyRange () diapazonas („A1: D20“). Kopijavimo diapazonas („J1“) Pabaiga
Paskirties langelyje tiesiog reikia nurodyti viršutinio kairiojo langelio adresą. Kodas automatiškai nukopijuoja tikslų nukopijuotą diapazoną į paskirties vietą.
Tą pačią konstrukciją galite naudoti norėdami kopijuoti duomenis iš vieno lapo į kitą.
Žemiau pateiktas kodas nukopijuos A1: D20 iš aktyvaus lapo į Sheet2.
Sub CopyRange () diapazonas („A1: D20“). Kopijuoti darbalapius („Sheet2“). Diapazonas („A1“) Pabaiga
Aukščiau aprašyti duomenys nukopijuojami iš aktyvaus lapo. Taigi prieš paleisdami kodą įsitikinkite, kad lapas, kuriame yra duomenys, yra aktyvus lapas. Kad būtų saugu, kopijuodami duomenis taip pat galite nurodyti darbalapio pavadinimą.
Sub CopyRange () darbalapiai ("Sheet1"). Diapazonas ("A1: D20"). Copy Worksheets ("Sheet2"). Diapazonas ("A1") End Sub
Geras dalykas, susijęs su aukščiau pateiktu kodu, yra tas, kad nesvarbu, kuris lapas yra aktyvus, jis visada nukopijuos duomenis iš 1 lapo ir įklijuos į 2 lapą.
Taip pat galite nukopijuoti pavadintą diapazoną naudodami jo pavadinimą, o ne nuorodą.
Pavyzdžiui, jei turite pavadintą diapazoną, pavadintą „SalesData“, galite naudoti žemiau esantį kodą, norėdami nukopijuoti šiuos duomenis į „Sheet2“.
Sub CopyRange () diapazonas („SalesData“). Kopijuoti darbalapius („Sheet2“). Diapazonas („A1“) Pabaiga
Jei įvardyto diapazono apimtis yra visa darbaknygė, jums nereikia būti lape, kuriame yra nurodytas diapazonas, kad paleistumėte šį kodą. Kadangi nurodytas diapazonas yra įtrauktas į darbaknygę, galite jį pasiekti iš bet kurio lapo naudodami šį kodą.
Jei turite lentelę pavadinimu Table1, galite naudoti žemiau esantį kodą ir nukopijuoti ją į Sheet2.
Sub -CopyTable () diapazonas („Table1 [#All]“). Kopijuoti darbalapius („Sheet2“). Diapazonas („A1“) Pabaiga
Taip pat galite nukopijuoti diapazoną į kitą darbaknygę.
Šiame pavyzdyje nukopijuoju „Excel“ lentelę (1 lentelė) į „Book2“ darbaknygę.
Sub CopyCurrentRegion () diapazonas („Table1 [#All]“). Kopijuoti darbaknyges („Book2.xlsx“). Darbo lapai („Sheet1“). Diapazonas („A1“) Pabaiga
Šis kodas veiktų tik tuo atveju, jei darbaknygė jau atidaryta.
Kintamo dydžio diapazono kopijavimas
Vienas iš būdų nukopijuoti kintamo dydžio diapazonus yra konvertuoti juos į pavadintus diapazonus arba „Excel“ lentelę ir naudoti kodus, kaip parodyta ankstesniame skyriuje.
Bet jei to negalite padaryti, galite naudoti diapazono objekto ypatybę „CurrentRegion“ arba „End“.
Žemiau pateiktas kodas nukopijuos esamą regioną į aktyvų lapą ir įklijuos jį į „Sheet2“.
Sub CopyCurrentRegion () diapazonas ("A1"). CurrentRegion.Copy darbalapiai ("Sheet2"). Diapazonas ("A1") Pabaiga
Jei norite nukopijuoti pirmąjį duomenų rinkinio stulpelį iki paskutinio užpildyto langelio ir įklijuoti jį į „Sheet2“, galite naudoti žemiau esantį kodą:
Sub CopyCurrentRegion () diapazonas („A1“, diapazonas („A1“). Pabaiga („xlDown“)). Kopijuoti darbalapius („Sheet2“). Diapazonas („A1“) Pabaiga
Jei norite nukopijuoti eilutes ir stulpelius, galite naudoti žemiau esantį kodą:
Sub CopyCurrentRegion () diapazonas („A1“, diapazonas („A1“). Pabaiga (xlDown). Pabaiga (xlToRight)). Kopijuoti darbalapius („Sheet2“). Diapazonas („A1“) Pabaiga
Atminkite, kad visi šie kodai neatrenka langelių vykdydami. Apskritai, rasite tik kelis atvejus, kai prieš dirbdami iš tikrųjų turite pasirinkti langelį/diapazoną.
Diapazonų priskyrimas objektų kintamiesiems
Iki šiol mes naudojome visą langelių adresą (pvz., Darbaknyges („Book2.xlsx“). Darbo lapus („Sheet1“). Diapazonas („A1“)).
Kad jūsų kodas būtų lengviau valdomas, galite priskirti šiuos diapazonus objektų kintamiesiems ir tada naudoti tuos kintamuosius.
Pavyzdžiui, žemiau esančiame kode aš priskyriau šaltinio ir paskirties diapazoną objektų kintamiesiems, o tada naudoju šiuos kintamuosius, norėdamas nukopijuoti duomenis iš vieno diapazono į kitą.
Sub CopyRange () Dim SourceRange kaip diapazonas Dim DestinationRange As Range Set SourceRange = Darbai ("Sheet1"). Diapazonas ("A1: D20") Set DestinationRange = Worksheets ("Sheet2"). Diapazonas ("A1") SourceRange.Copy DestinationRange Pabaiga Sub
Pradedame skelbdami kintamuosius kaip diapazono objektus. Tada mes priskiriame diapazoną šiems kintamiesiems naudodami teiginį „Set“. Kai diapazonas buvo priskirtas kintamajam, galite tiesiog naudoti kintamąjį.
Įveskite duomenis į kitą tuščią langelį (naudodami įvesties laukelį)
Naudodami įvesties laukelius galite leisti vartotojui įvesti duomenis.
Pavyzdžiui, tarkime, kad turite žemiau pateiktą duomenų rinkinį ir norite įvesti pardavimo įrašą, galite naudoti įvesties laukelį VBA. Naudodami kodą galime įsitikinti, kad jis užpildo kitos tuščios eilutės duomenis.
Sub EnterData () Dim RefRange As Range Set RefRange = Range ("A1"). End (xlDown). Offset (1, 0) Set ProductCategory = RefRange.Offset (0, 1) Set Quantity = RefRange.Offset (0, 2) ) Nustatyti sumą = RefRange.Offset (0, 3) RefRange.Value = RefRange.Offset (-1, 0) .Value + 1 ProductCategory.Value = InputBox ("Produkto kategorija") Kiekis.Vertė = InputBox ("Kiekis") Amount.Value = InputBox ("Amount") pabaiga
Aukščiau pateiktas kodas naudoja VBA įvesties laukelį, kad gautų įvestis iš vartotojo, ir tada įveda įvestis į nurodytas ląsteles.
Atminkite, kad nenaudojome tikslių langelių nuorodų. Vietoj to mes panaudojome ypatybę „Pabaiga ir poslinkis“, kad surastume paskutinį tuščią langelį ir užpildytume jame esančius duomenis.
Šis kodas toli gražu nėra tinkamas naudoti. Pvz., Jei įvedate teksto eilutę, kai įvesties laukelyje prašoma kiekio ar sumos, pastebėsite, kad „Excel“ tai leidžia. Jei norite patikrinti, ar reikšmė yra skaitinė, ar ne, galite naudoti sąlygą „If“, tada atitinkamai leisti.
Keliavimas per ląsteles / diapazonus
Iki šiol matėme, kaip pasirinkti, kopijuoti ir įvesti duomenis į langelius ir diapazonus.
Šiame skyriuje pamatysime, kaip perjungti diapazono langelių/eilučių/stulpelių rinkinį. Tai gali būti naudinga, kai norite išanalizuoti kiekvieną langelį ir pagal jį atlikti tam tikrą veiksmą.
Pavyzdžiui, jei norite paryškinti kas trečią pasirinktos eilutės eilutę, turite pereiti ir patikrinti eilutės numerį. Panašiai, jei norite paryškinti visas neigiamas ląsteles, pakeisdami šrifto spalvą į raudoną, turite peržiūrėti ir išanalizuoti kiekvienos langelio vertę.
Čia yra kodas, kuris pereis per pasirinktų langelių eilutes ir paryškins alternatyvias eilutes.
Sub HighlightAlternateRows () Dim Myrange kaip diapazonas Dim Myrow kaip diapazonas Nustatyti Myrange = Pasirinkimas kiekvienai Myrow Myrange. Eilutės Jei Myrow.Row Mod 2 = 0 Tada Myrow.Interior.Color = vbCyan End, jei kitas Myrow End Sub
Aukščiau pateiktas kodas naudoja MOD funkciją, kad patikrintų pasirinktos eilutės numerį. Jei eilutės numeris lygus, ji paryškinama žalsvai mėlyna spalva.
Štai dar vienas pavyzdys, kai kodas eina per kiekvieną langelį ir paryškina ląsteles, kuriose yra neigiama reikšmė.
Sub HighlightAlternateRows () Dim Myrange kaip diapazonas Dim Mycell As Range Set Myrange = Pasirinkimas kiekvienai Mycell Myrange jei Mycell <0 Tada Mycell.Interior.Color = vbRed End End Next Mycell End Sub
Atminkite, kad tą patį galite padaryti naudodami sąlyginį formatavimą (kuris yra dinamiškas ir geresnis būdas tai padaryti). Šis pavyzdys skirtas tik parodyti, kaip ciklas veikia su ląstelėmis ir diapazonais VBA.
Kur įdėti VBA kodą
Įdomu, kur „Excel“ darbaknygėje patenka VBA kodas?
„Excel“ turi VBA vidinę programą, vadinamą VBA redaktoriumi. Turite nukopijuoti ir įklijuoti kodą „VB Editor“ modulio kodo lange.
Štai žingsniai, kaip tai padaryti:
- Eikite į skirtuką Kūrėjas.
- Spustelėkite „Visual Basic“ parinktį. Tai atidarys VB redaktorių užpakalinėje sistemoje.
- VB redaktoriaus „Project Explorer“ srityje dešiniuoju pelės mygtuku spustelėkite bet kurį darbaknygės objektą, į kurį norite įterpti kodą.Jei nematote „Project Explorer“, eikite į skirtuką „View“ ir spustelėkite „Project Explorer“.
- Eikite į „Įterpti“ ir spustelėkite „Modulis“. Tai įterps jūsų darbo knygos modulio objektą.
- Nukopijuokite ir įklijuokite kodą modulio lange.
