Kui peate VBA -koodis viitama teatud töölehtede funktsioonidele, nagu Sum, Vlookup jne, saate neid kasutada otse, kasutades rakenduse objekti. Seetõttu kasutame funktsioone järgmiselt:
Application.WorksheetFunction.Sum või Application.WorksheetFunction.Vlookup kus WorksheetFunction on rakendusobjekti meetod.
Arvestades, et meil on see testmakro olemas, kui me tippime
Application.WorksheetFunction.
Saame hüpikakna, mis näitab alloleval pildil toodud valemeid
Näiteks kui soovite liita selle vahemiku väärtused veerus A, kasutades vba -
Võimaldab kasutada muutujat SalesTotal, mis salvestab selle summa. SalesTotali kogusumma saamiseks kasutame standardmoodulis järgmist VBA -koodi:
Alammakro4 ()Hämardatud müükKokku sama kaua
SalesTotal = Application.WorksheetFunction.Sum (Vahemik ("A2: A6"))
MsgBox SalesTotal
End Sub
Ülaltoodud koodi oma faili kopeerimiseks tehke järgmist.
- Vajutage klaviatuuril klahve Alt + F11.
- Vasakul näete Microsoft Exceli objekte.
- Paremklõpsake ja valige Lisa.
- Seejärel klõpsake moodulil.
- Kopeerige kood paremal asuvasse koodiaknasse.
Kui kasutame seda näidismakro, saame teate, mis näitab väärtust, mis on salvestatud jaotises Müük kokku ja mida saab kasutada makro järgmistes koodiridades.
Väljund, mille saame, on -
Kui soovite, et lahtris A7 kuvataks müügi kogusumma, saate koodirida muuta
Msgbox SalesTotalet Töölehed („Sheet1”). Vahemik („A7”). Väärtus = Müük kokku
Arvestades, et vajame ka nende arvude keskmist müüki lahtris A9. Saame kasutada allolevat koodi
Alammakro5 ()Hämardatud müükKokku sama kaua
Töölehtedega ("Sheet1")
SalesTotal = Application.WorksheetFunction.Sum (.Range ("A2: A6"))
.Range ("A7"). Väärtus = SalesTotal
.Range ("A9"). Väärtus = Application.WorksheetFunction.Average (.Range ("A2: A6"))
Lõpeta
End Sub
Võrreldes eelmise koodiga on selles koodis kergeid muudatusi.
- Selle asemel, et kasutada keskmise jaoks muutujat, täitsin selle väärtuse pärast arvutamist otse lahtrisse A9. Seega näete rida .Range ("A9"). Väärtus = Application.WorksheetFunction.Average (.Range ("A2: A6"))
- Sõnumikasti rida on eemaldatud.
- Muutuja SalesTotal väärtus läheb lahtrisse A7.
- Ideaalis võite korrata sama koodirida, mida kasutati keskmiselt, Sum -koodirea jaoks, asendades
SalesTotal = Application.WorksheetFunction.Sum (.Range (“A2: A6”))
.Range (“A7”). Väärtus = MüükKokku
Koos
.Range ("A7"). Väärtus = Application.WorksheetFunction.Sum (.Range ("A2: A6"))
Siiski on see säilitatud, et saaksite aru sama ülesande erinevatest kodeerimisviisidest. Samamoodi võime rakenduse Application.WorksheetFunction kasutamisel kasutada ka muid funktsioone. Kõik need funktsioonid, mida saame töölehel otse kasutada, saame neid siin kasutada.
See lihtsustab koodi funktsioonide kasutamist, et saaksime arvutada vajalikud valemid ilma, et peaksime valemile koodi looma.
Kui teile meeldisid meie ajaveebid, jagage seda oma sõpradega Facebookis. Samuti saate meid jälgida Twitteris ja Facebookis.
Tahaksime sinust kuulda, andke meile teada, kuidas saaksime oma tööd täiustada, täiendada või uuendada ning muuta see teie jaoks paremaks. Kirjuta meile aadressil e -posti sait