Lai gan VBA piedāvā pienācīgu iebūvēto funkciju klāstu, jūs ne vienmēr atradīsit tieši to, kas jums nepieciešams. Par laimi, VBA procedūrās varat izmantot arī lielāko daļu Excel darblapas funkciju. Vienīgās darblapas funkcijas, kuras nevarat izmantot, ir tās, kurām ir līdzvērtīga VBA funkcija. Piemēram, jūs nevarat izmantot Excel funkciju RAND (kas ģenerē nejaušu skaitli), jo VBA ir līdzvērtīga funkcija: Rnd.
VBA padara Excel darblapas funkcijas pieejamas, izmantojot objektu WorksheetFunction, kas atrodas lietojumprogrammas objektā. Tālāk ir sniegts piemērs tam, kā VBA priekšrakstā varat izmantot Excel funkciju SUM.
Kopā = Application.WorksheetFunction.SUM(diapazons("A1:A12")
Varat izlaist izteiksmes daļu Application vai WorksheetFunction. Jebkurā gadījumā VBA izdomā, ko jūs darāt. Citiem vārdiem sakot, šie trīs izteicieni darbojas tieši tāpat:
Kopā = Application.WorksheetFunction.SUM(diapazons("A1:A12")
Kopā = WorksheetFunction.SUM(diapazons("A1:A12")
Kopā = pielietojums.SUMMA(diapazons("A1:A12")
Mana personīgā izvēle ir izmantot WorksheetFunction daļu, lai būtu pilnīgi skaidrs, ka kods izmanto Excel funkciju.
Šeit jūs uzzināsit, kā izmantot darblapu funkcijas savās VBA izteiksmēs.
Maksimālās vērtības atrašana diapazonā
Šeit ir piemērs, kas parāda, kā VBA procedūrā izmantot Excel darblapas funkciju MAX. Šī procedūra parāda maksimālo vērtību aktīvās darblapas A slejā:
Darblapas funkcijas izmantošana VBA kodā.
Sub ShowMax() Dim TheMax As Double Maksimālais = WorksheetFunction.MAX(diapazons (“A:A”)) MsgBox TheMax Beigu apakš
Varat izmantot funkciju MIN, lai iegūtu mazāko vērtību diapazonā. Un, kā jūs varētu gaidīt, jūs varat izmantot citas darblapas funkcijas līdzīgā veidā. Piemēram, varat izmantot funkciju LARGE, lai noteiktu k -to lielāko vērtību diapazonā. To parāda šāda izteiksme:
SecondHighest = darblapas funkcija.LARGE(diapazons(“A:A”),2)
Ņemiet vērā, ka funkcija LARGE izmanto divus argumentus. Otrais arguments apzīmē k daļu — 2, šajā gadījumā (otrā lielākā vērtība).
Hipotēkas maksājuma aprēķināšana
Nākamajā piemērā hipotēkas maksājuma aprēķināšanai tiek izmantota PMT darblapas funkcija. Trīs mainīgie tiek izmantoti, lai saglabātu datus, kas tiek nodoti funkcijai Pmt kā argumenti. Ziņojuma lodziņā tiek parādīts aprēķinātais maksājums.
Sub PmtCalc() Dim IntRate As Double Dim LoanAmt As Double Tik ilgi blāvi periodi Intrate = 0,0625/12 Periodi = 30 * 12 Aizdevuma summa = 150 000 MsgBox WorksheetFunction.PMT(IntRate, Periods, -Aizdevuma summa) Beigu apakš
Kā parādīts tālāk sniegtajā paziņojumā, vērtības varat ievietot arī tieši kā funkcijas argumentus:
MsgBox WorksheetFunction.PMT(0,0625 /12, 360, -150000)
Tomēr mainīgo lielumu izmantošana parametru saglabāšanai padara kodu vieglāk lasāmu un vajadzības gadījumā modificējamu.
Izmantojot uzmeklēšanas funkciju
Nākamajā piemērā tiek izmantotas VBA funkcijas InputBox un MsgBox, kā arī Excel funkcija VLOOKUP. Tas pieprasa detaļas numuru un pēc tam iegūst cenu no uzmeklēšanas tabulas. Tālāk diapazons A1:B13 tiek nosaukts par cenu sarakstu.
Diapazonā ar nosaukumu PriceList ir iekļautas detaļu cenas.
Sub GetPrice() Dim PartNum kā variants Maza cena kā dubultā PartNum = InputBox (“Ievadiet daļas numuru”) Izklājlapas (“Cenas”). Aktivizējiet Cena = WorksheetFunction.VLOOKUP (Daļas numurs, diapazons (“Cenu saraksts”)), 2, False) MsgBox PartNum & “izmaksas” un cena Beigu apakš
Lūk, kā darbojas GetPrice procedūra:
VBA funkcija InputBox pieprasa lietotājam daļas numuru.
Lietotāja ievadītais daļas numurs tiek piešķirts mainīgajam PartNum.
Nākamais paziņojums aktivizē darblapu Cenas, ja vien tā vēl nav aktīvā lapa.
Kods izmanto funkciju VLOOKUP, lai tabulā atrastu daļas numuru.
Ņemiet vērā, ka šajā paziņojumā izmantotie argumenti ir tādi paši kā argumenti, kurus izmantotu ar funkciju darblapas formulā. Šis paziņojums piešķir funkcijas rezultātu mainīgajam Cena.
Kods parāda detaļas cenu, izmantojot funkciju MsgBox.
Šai procedūrai nav nekādu kļūdu apstrādes, un tā neizdodas, ja ievadāt neesošu daļas numuru. (Izmēģiniet to.) Ja šī būtu reāla lietojumprogramma, kas tiek izmantota reālā biznesā, jūs vēlaties pievienot dažus paziņojumus, kas graciozāk risina kļūdas.
Jūs nevarat izmantot dialoglodziņu Excel ielīmēšanas funkcija, lai ievietotu darblapas funkciju VBA modulī. Tā vietā ievadiet šādas funkcijas vecmodīgā veidā: ar roku. Tomēr varat izmantot dialoglodziņu Ielīmēt funkciju, lai identificētu funkciju, kuru vēlaties izmantot, un uzzinātu par tās argumentiem.
Varat arī izmantot VBE automātiskā saraksta dalībnieku iespēju, kas parāda visu darblapas funkciju nolaižamo sarakstu. Vienkārši ierakstiet Application.WorksheetFunction , kam seko punkts. Pēc tam tiek parādīts izmantojamo funkciju saraksts. Ja šī funkcija nedarbojas, izvēlieties VBE komandu Rīki → Opcijas, noklikšķiniet uz cilnes Redaktors un atzīmējiet izvēles rūtiņu blakus Automātiskā saraksta dalībnieki.
Darblapas funkciju saraksta iegūšana, ko varat izmantot savā VBA kodā.
VBA jaunpienācēji bieži jauc VBA iebūvētās funkcijas un Excel darbgrāmatas funkcijas. Labs noteikums, kas jāatceras, ir tāds, ka VBA nemēģina no jauna izgudrot riteni. Lielākoties VBA nedublē Excel darblapas funkcijas.
Lielākajai daļai darblapas funkciju, kas nav pieejamas kā objekta WorksheetFunction metodes, varat izmantot līdzvērtīgu VBA iebūvēto operatoru vai funkciju. Piemēram, MOD darblapas funkcija nav pieejama objektā WorksheetFunction, jo VBA ir ekvivalents: tā iebūvētais Mod operators.
Apakšējā līnija? Ja jums ir jāizmanto funkcija, vispirms noskaidrojiet, vai VBA ir kaut kas, kas atbilst jūsu vajadzībām. Ja nē, pārbaudiet darblapas funkcijas. Ja nekas cits neizdodas, iespējams, varat rakstīt pielāgotu funkciju, izmantojot VBA.
Kā neļaut Microsoft Word atvērt failus tikai lasīšanas režīmā operētājsistēmā Windows Microsoft Word atver failus tikai lasīšanas režīmā, padarot tos neiespējamu rediģēt? Neuztraucieties, metodes ir norādītas zemāk
Kā labot kļūdas, drukājot nepareizus Microsoft Word dokumentus.Kļūdas Word dokumentu drukāšanā ar mainītiem fontiem, nekārtīgām rindkopām, trūkstoša teksta vai pazaudētu saturu ir diezgan izplatītas. Tomēr nevajag
Ja prezentācijas laikā esat izmantojis pildspalvu vai marķieri, lai zīmētu uz PowerPoint slaidiem, varat saglabāt zīmējumus nākamajai prezentācijai vai izdzēst tos, lai nākamajā reizē, kad to parādīsit, jūs sāktu ar tīriem PowerPoint slaidiem. Izpildiet šos norādījumus, lai dzēstu pildspalvas un marķiera zīmējumus: Līniju dzēšana pa vienai […]
Stilu bibliotēkā ir CSS faili, paplašināmās stila lapu valodas (XSL) faili un attēli, ko izmanto iepriekš definētas šablona lapas, lapu izkārtojumi un vadīklas programmā SharePoint 2010. Lai atrastu CSS failus publicēšanas vietnes stilu bibliotēkā: izvēlieties Vietnes darbības → Skatīt Viss vietnes saturs. Tiek parādīts vietnes saturs. Stila bibliotēka atrodas […]
Nepārsedziet savu auditoriju ar milzīgiem skaitļiem. Programmā Microsoft Excel varat uzlabot informācijas paneļu un pārskatu lasāmību, formatējot skaitļus tā, lai tie tiktu rādīti tūkstošos vai miljonos.
Uzziniet, kā izmantot SharePoints sociālo tīklu rīkus, kas ļauj indivīdiem un grupām sazināties, sadarboties, koplietot un sazināties.
Jūlija datumi ražošanas vidēs bieži tiek izmantoti kā laikspiedols un ātra atsauce partijas numuram. Šāda veida datuma kodēšana ļauj mazumtirgotājiem, patērētājiem un pakalpojumu aģentiem noteikt produkta izgatavošanas laiku un līdz ar to arī produkta vecumu. Jūlija datumi tiek izmantoti arī programmēšanā, militārajā jomā un astronomijā. Savādāk […]
Programmā Access 2016 varat izveidot tīmekļa lietotni. Kas tad vispār ir tīmekļa lietotne? Tīmeklis nozīmē, ka tas ir tiešsaistē, un lietotne ir tikai “lietojumprogrammas” saīsinājums. Pielāgota tīmekļa lietotne ir tiešsaistes datu bāzes lietojumprogramma, kurai var piekļūt no mākoņa, izmantojot pārlūkprogrammu. Jūs veidojat un uzturat tīmekļa lietotni darbvirsmas versijā […]
Lielākā daļa SharePoint 2010 lapu ātrās palaišanas joslā lapas kreisajā pusē parāda navigācijas saišu sarakstu. Ātrās palaišanas joslā tiek rādītas saites uz piedāvāto vietņu saturu, piemēram, sarakstiem, bibliotēkām, vietnēm un publicēšanas lapām. Ātrās palaišanas joslā ir divas ļoti svarīgas saites: Visa vietnes satura saite: […]
Vienkāršām problēmām risinātājs programmā Excel parasti ātri atrod optimālās Risinātāja mainīgā vērtības mērķa funkcijai. Taču dažos gadījumos Solver ir grūti atrast Solver mainīgā vērtības, kas optimizē mērķa funkciju. Šādos gadījumos Solver parasti parāda ziņojumu vai kļūdas ziņojumu, kurā aprakstīta vai apspriesta problēma, ko […]
