Hér finnur þú nokkrar tiltölulega einfaldar sérsniðnar Excel VBA vinnublaðsaðgerðir sem eru líka mjög gagnlegar. Þessar aðgerðir eru kallaðar umbúðaaðgerðir vegna þess að þær samanstanda af kóða sem er vafið utan um innri VBA þætti. Með öðrum orðum, þeir leyfa þér að nota VBA aðgerðir í vinnublaðsformúlum.
Aðgerð notandi()
' Skilar nafni núverandi notanda
Notandi = Application.UserName
Lokaaðgerð
Þessi aðgerð leyfir formúlunum þínum í raun og veru aðgang að eiginleikum UserName forritshlutarins.
NumberFormat aðgerðin
Þessi aðgerð sýnir einfaldlega tölusnið fyrir reit. Það getur verið gagnlegt ef þú þarft að tryggja að hópur frumna hafi allar sama tölusnið.
Aðgerð NumberFormat (Cell)
' Skilar talnasniði hólfsins
NumberFormat = Cell(1).NumberFormat
Lokaaðgerð
Taktu eftir notkun klefi (1)? Ef fjölfrumasvið er notað sem rökstuðningur er aðeins fyrsta hólfið notað.
Þú getur auðveldlega skrifað svipaðar aðgerðir sem skila textalit, bakgrunnslit, leturgerð og svo framvegis.
ExtractElement aðgerðin
Þessi umbúðaaðgerð skilar undirstreng úr textastreng sem inniheldur marga þætti, aðskilin með skiljustaf. Til dæmis, þessi formúla skilar kú, sem er þriðja þátturinn í streng sem notar bil sem skilju. Rökin gætu auðvitað verið frumuvísanir.
=ExtractElement(“hundur hestur kýr köttur”, 3, “ “)
Hér er kóðinn, sem er umbúðir fyrir skiptingu VBA:
Fall ExtractElement(Txt, n, sep)
' Skilar n. staki textastrengs, þar sem
' þættir eru aðskildir með tilgreindum skiljustaf
ExtractElement = Split(Application.Trim(Txt), Sep)(n - 1)
Lokaaðgerð
Myndin hér að neðan sýnir ExtractElement aðgerðina sem notuð er í vinnublaðsformúlum. Dálkur A inniheldur textastrenginn, Dálkur B inniheldur frumefnisnúmerið sem á að draga út og Dálkur C inniheldur afmörkunina (reitur sem virðast vera auðar innihalda bilstaf).
Notkun ExtractElement fallsins til að skila staki úr streng.
SayIt aðgerðin
Þessi einfalda aðgerð er umbúðir fyrir Speak-aðferðina á Application.Speech hlutnum. Það notar tilbúna rödd til að „tala“ rökin.
Aðgerð SayIt(txt)
' Segir rökin
Application.Speech.Speak txt, satt
Lokaaðgerð
Hér er dæmi:
=IF(C10>10000,SayIt(“Yfir kostnaðarhámark”),“OK”)
Formúlan athugar reit C10. Ef gildið er meira en 10.000, segir aðgerðin textann: „Yfir kostnaðarhámark“. Ef gildið er minna en 10.000 sýnir aðgerðin textann OK (og segir ekki neitt).
Notaðu sparlega. Ef þú notar þessa aðgerð oftar en einu sinni getur það verið mjög ruglingslegt. Mundu líka að þessi aðgerð er metin í hvert skipti sem vinnublaðið er reiknað út, svo röddin gæti orðið mjög pirrandi ef þú ert að gera margar breytingar. Þessi aðgerð hentar líklega betur til skemmtunar.
IsLike aðgerðin
Líka stjórnandi VBA er mjög sveigjanleg leið til að bera saman textastrengi. Skoðaðu það í VBA hjálparkerfinu. Þessi aðgerð færir þann kraft til vinnublaðsformúlanna þinna:
Aðgerð er eins (texti, mynstur)
' Skilar satt ef fyrri rökin eru eins og sú seinni
IsLike = texti Eins og mynstur
Lokaaðgerð