Siit leiate mõned suhteliselt lihtsad kohandatud Exceli VBA töölehe funktsioonid, mis on samuti väga kasulikud. Neid funktsioone nimetatakse ümbrisfunktsioonideks, kuna need koosnevad koodist, mis on ümbritsetud VBA sisemiste elementide ümber. Teisisõnu võimaldavad need kasutada VBA funktsioone töölehe valemites.
Funktsioon Kasutaja()
' Tagastab praeguse kasutaja nime
Kasutaja = Rakendus.Kasutajanimi
Lõpetamisfunktsioon
See funktsioon sisuliselt võimaldab teie valemitel juurdepääsu rakenduse objekti atribuudile UserName.
Funktsioon NumberFormat
See funktsioon kuvab lihtsalt lahtri numbrivormingu. See võib olla kasulik, kui peate tagama, et lahtrite rühmal on sama numbrivorming.
Funktsiooni numbrivorming (lahter)
Tagastab lahtri numbrivormingu
NumberFormat = Lahter(1).NumberFormat
Lõpetamisfunktsioon
Kas märkate lahtri (1) kasutamist? Kui argumendina kasutatakse mitme lahtri vahemikku, kasutatakse ainult esimest lahtrit.
Saate hõlpsasti kirjutada sarnaseid funktsioone, mis tagastavad lahtri tekstivärvi, taustavärvi, fondi jne.
Funktsioon ExtractElement
See ümbrisfunktsioon tagastab mitut elementi sisaldava tekstistringi alamstringi, mis on eraldatud eraldusmärgiga. Näiteks tagastab see valem sõna lehm, mis on kolmas element stringis, mis kasutab eraldajana tühikut. Argumendid võivad muidugi olla lahtriviited.
=ExtractElement("koer hobune lehm kass", 3, " ")
Siin on kood, mis on VBA jagatud funktsiooni ümbris:
Funktsiooni ekstraktielement (Txt, n, sept)
Tagastab tekstistringi n-nda elemendi, kus
' elemendid eraldatakse määratud eraldusmärgiga
ExtractElement = Split(Application.Trim(Txt), Sep)(n - 1)
Lõpetamisfunktsioon
Alloleval pildil on näha töölehe valemites kasutatav funktsioon ExtractElement. Veerg A sisaldab tekstistringi, veerg B sisaldab ekstraheeritava elemendi numbrit ja veerg C sisaldab eraldajat (lahtrid, mis näivad olevat tühjad, sisaldavad tühikut).
Funktsiooni ExtractElement kasutamine stringist elemendi tagastamiseks.
Funktsioon SayIt
See lihtne funktsioon on objekti Application.Speech kõnemeetodi ümbris. See kasutab argumendi "rääkimiseks" sünteesitud häält.
Funktsioon SayIt(txt)
"Räägib argumendi
Application.Speech.Speak txt, True
Lõpetamisfunktsioon
Siin on näide:
=IF(C10>10000,SayIt("Üle eelarve""OK")
Valem kontrollib lahtrit C10. Kui väärtus on suurem kui 10 000, ütleb funktsioon teksti "Üle eelarve". Kui väärtus on väiksem kui 10 000, kuvab funktsioon teksti OK (ja ei ütle midagi).
Kasutage säästlikult. Kui kasutate seda funktsiooni rohkem kui üks kord, võib see olla väga segane. Samuti pidage meeles, et seda funktsiooni hinnatakse iga kord, kui tööleht arvutatakse, nii et paljude muudatuste tegemisel võib hääl muutuda väga tüütuks. See funktsioon sobib ilmselt rohkem meelelahutuseks.
IsLike funktsioon
VBA operaator Like on väga paindlik viis tekstistringide võrdlemiseks. Kontrollige seda VBA abisüsteemist. See funktsioon annab selle võimsuse teie töölehe valemitele:
Funktsioon IsLike (tekst, muster)
Tagastab tõene, kui esimene argument on nagu teine
IsLike = text Like muster
Lõpetamisfunktsioon