Kuigi VBA pakub korralikku valikut sisseehitatud funktsioone, ei pruugi te alati leida täpselt seda, mida vajate. Õnneks saate oma VBA protseduurides kasutada ka enamikku Exceli töölehe funktsioone. Ainsad töölehe funktsioonid, mida te ei saa kasutada, on need, millel on samaväärne VBA-funktsioon. Näiteks ei saa te kasutada Exceli funktsiooni RAND (mis genereerib juhusliku arvu), kuna VBA-l on samaväärne funktsioon: Rnd.
VBA teeb Exceli töölehe funktsioonid kättesaadavaks objekti WorksheetFunction kaudu, mis sisaldub objektis Application. Siin on näide selle kohta, kuidas saate VBA-avalduses kasutada Exceli SUM-funktsiooni.
Kokku = Application.WorksheetFunction.SUM(vahemik(“A1:A12”))
Saate välja jätta avaldise osa Rakendus või osa WorksheetFunction. Mõlemal juhul mõtleb VBA välja, mida teete. Teisisõnu, need kolm väljendit töötavad kõik täpselt samamoodi:
Kokku = Application.WorksheetFunction.SUM(vahemik(“A1:A12”))
Kokku = WorksheetFunction.SUM(Vahemik("A1:A12")
Kokku = rakendus.SUM(vahemik("A1:A12")
Minu isiklik eelistus on kasutada osa WorksheetFunction lihtsalt selleks, et oleks täiesti selge, et kood kasutab Exceli funktsiooni.
Siit saate teada, kuidas kasutada VBA avaldistes töölehe funktsioone.
Maksimaalse väärtuse leidmine vahemikus
Siin on näide, mis näitab, kuidas kasutada Exceli MAX töölehe funktsiooni VBA protseduuris. See protseduur kuvab aktiivse töölehe veerus A maksimaalse väärtuse:
Töölehe funktsiooni kasutamine VBA-koodis.
Sub ShowMax()
Dim TheMax As Double
TheMax = WorksheetFunction.MAX(vahemik("A:A")
MsgBox TheMax
Lõpeta alam
Funktsiooni MIN saate kasutada vahemiku väikseima väärtuse saamiseks. Ja nagu arvata võite, saate sarnasel viisil kasutada ka muid töölehe funktsioone. Näiteks saate kasutada funktsiooni LARGE vahemiku k- nda suurima väärtuse määramiseks. Seda näitab järgmine väljend:
SecondHighest = WorksheetFunction.LARGE(Vahemik(“A:A”),2)
Pange tähele, et funktsioon LARGE kasutab kahte argumenti. Teine argument esindab k- ndat osa — antud juhul 2 (suuruselt teine väärtus).
Hüpoteeklaenu makse arvutamine
Järgmises näites kasutatakse hüpoteegimakse arvutamiseks PMT töölehe funktsiooni. Pmt-funktsioonile argumentidena edastatud andmete salvestamiseks kasutatakse kolme muutujat. Teatekastis kuvatakse arvutatud makse.
Sub PmtCalc() Dim IntRate as Double Dim LoanAmt As Double Hämarad perioodid nii pikad IntRate = 0,0625/12 Perioodid = 30 * 12 Laenumaks = 150 000 MsgBox WorksheetFunction.PMT (IntRate, Periods, -LaenAmt) Lõpeta alam
Nagu järgmine väide näitab, saate väärtused sisestada ka otse funktsiooni argumentidena:
MsgBox WorksheetFunction.PMT(0,0625 /12, 360, -150000)
Muutujate kasutamine parameetrite salvestamiseks muudab aga koodi hõlpsamini loetavaks ja vajadusel muudetavaks.
Otsingufunktsiooni kasutamine
Järgmine näide kasutab VBA funktsioone InputBox ja MsgBox ning Exceli funktsiooni VLOOKUP. See küsib osa numbrit ja saab seejärel hinna otsingutabelist. Allpool on vahemiku A1:B13 nimi Hinnakiri.
Vahemik nimega PriceList sisaldab osade hindu.
Sub GetPrice()
Dim PartNum as Variant
Tume hind nagu kahekordne
PartNum = InputBox ("Sisestage osa number")
Sheets ("hinnad"). Aktiveerige
Hind = WorksheetFunction.VLOOKUP(Osanumber, Vahemik(“Hinnakiri”), 2, Vale)
MsgBox PartNum & "kulud" & Hind
Lõpeta alam
GetPrice'i protseduur toimib järgmiselt.
VBA funktsioon InputBox küsib kasutajalt osa numbrit.
Osa number, mille kasutaja sisestab, määratakse muutujale PartNum.
Järgmine lause aktiveerib töölehe Hinnad, juhuks kui see pole veel aktiivne leht.
Kood kasutab tabelist osa numbri leidmiseks funktsiooni VLOOKUP.
Pange tähele, et selles avalduses kasutatavad argumendid on samad, mida kasutaksite funktsiooni töölehe valemis. See lause määrab funktsiooni tulemuse muutujale Hind.
Kood kuvab osa hinda funktsiooni MsgBox kaudu.
Sellel protseduuril puudub tõrketöötlus ja see ebaõnnestub, kui sisestate olematu osanumbri. (Proovige seda.) Kui see oleks tegelik rakendus, mida kasutatakse tegelikus äris, võiksite lisada mõned väited, mis käsitlevad vigu elegantsemalt.
Te ei saa kasutada Exceli kleepimisfunktsiooni dialoogiboksi töölehe funktsiooni lisamiseks VBA-moodulisse. Selle asemel sisestage sellised funktsioonid vanaviisi: käsitsi. Siiski saate kasutada funktsiooni Kleebi dialoogiboksi, et tuvastada funktsioon, mida soovite kasutada, ja uurida selle argumente.
Võite kasutada ka VBE automaatse loendi liikmete valikut, mis kuvab kõigi töölehe funktsioonide ripploendi. Tippige lihtsalt Application.WorksheetFunction , millele järgneb punkt. Seejärel näete kasutatavate funktsioonide loendit. Kui see funktsioon ei tööta, valige VBE käsk Tööriistad → Suvandid, klõpsake vahekaarti Redigeerija ja märkige valiku Automaatloendi liikmed kõrvale.
Töölehe funktsioonide loendi hankimine, mida saate oma VBA-koodis kasutada.
VBA uustulnukad ajavad sageli segamini VBA sisseehitatud funktsioonid ja Exceli töövihiku funktsioonid. Hea reegel, mida meeles pidada, on see, et VBA ei püüa jalgratast uuesti leiutada. Enamasti ei dubleeri VBA Exceli töölehe funktsioone.
Enamiku töölehe funktsioonide puhul, mis pole objekti WorksheetFunction meetoditena saadaval, saate kasutada samaväärset VBA sisseehitatud operaatorit või funktsiooni. Näiteks pole töölehe MOD funktsioon objektis WorksheetFunction saadaval, kuna VBA-l on samaväärne: selle sisseehitatud Mod-operaator.
Alumine joon? Kui teil on vaja mõnda funktsiooni kasutada, tehke esmalt kindlaks, kas VBA-l on midagi, mis vastab teie vajadustele. Kui ei, siis vaadake töölehe funktsioone. Kui kõik muu ebaõnnestub, saate VBA abil kirjutada kohandatud funktsiooni.
Uurige kümmet nõuannet Microsoft Teamsiga parema koosolekukogemuse saamiseks, sealhulgas märkmete tegemine, tausta hägustamine, vaigistamine ja koosolekute salvestamine.
Lühikeses Word 2013 dokumendis saate kommentaare hõlpsalt sirvida ja uurida. Siit leiate samm-sammult, kuidas kommentaare lugeda ja eemaldada.
Mõnikord varitseb kurjus selles, mis peaks olema Word 2016 peamises mõistlikkuse hoidlas: tavalises mallifailis. Õpi, kuidas taastada normaalne mall ja eemaldada probleemid.
Kuidas lisada lõigu taane Word 2013-s, et luua selgem ja professionaalsem ilme. Meie juhend aitab sul lihtsasti navigeerida Wordi funktsioonide kaudu ja tutvustab esimeses reas taande ning rippuva taande lisamise viise.
Lisaks kuuele kiirtoimingule, mis kuvatakse Outlooki esmakordsel installimisel, on teil valida veelgi rohkemate Quick Step mallide hulgast.
Kui olete esitluse ajal PowerPointi slaididele joonistamiseks kasutanud pliiatsit või markerit, saate joonised järgmise esitluse jaoks salvestada või need kustutada, nii et järgmisel näitamisel alustate puhaste PowerPointi slaididega. Pliiatsi ja markeri jooniste kustutamiseks järgige neid juhiseid: joonte kustutamine […]
Style'i teek sisaldab CSS-faile, XSL-faile ja eelmääratletud mallilehtede, lehepaigutuste ja juhtelementide poolt kasutatavaid pilte rakenduses SharePoint 2010. CSS-failide leidmiseks avaldamissaidi stiiliteegist: valige saidi toimingud → vaade. Kogu saidi sisu. Ilmub saidi sisu. Style raamatukogu asub […]
Ärge uputage oma publikut tohutute numbritega. Microsoft Excelis saate parandada oma armatuurlaudade ja aruannete loetavust, vormindades numbrid tuhandetes või miljonites.
Siit saate teada, kuidas kasutada SharePointi suhtlusvõrgustiku tööriistu, mis võimaldavad üksikisikutel ja rühmadel suhelda, koostööd teha, jagada ja ühendada.
Julia kuupäevi kasutatakse tootmiskeskkondades sageli ajatemplina ja partiinumbri kiirviitena. Seda tüüpi kuupäevade kodeerimine võimaldab jaemüüjatel, tarbijatel ja teenindusagentidel tuvastada toote valmistamise aja ja seega toote vanuse. Juliuse kuupäevi kasutatakse ka programmeerimises, sõjaväes ja astronoomias. Erinevad […]
