Čia rasite keletą gana paprastų pasirinktinių Excel VBA darbalapio funkcijų, kurios taip pat yra labai naudingos. Šios funkcijos vadinamos įvyniojimo funkcijomis, nes jas sudaro kodas, apvyniotas aplink esminius VBA elementus. Kitaip tariant, jie leidžia naudoti VBA funkcijas darbalapio formulėse.
Funkcija Vartotojas ()
' Grąžina dabartinio vartotojo vardą
Vartotojas = Application.UserName
Pabaigos funkcija
Ši funkcija iš esmės leidžia jūsų formulėms pasiekti programos objekto UserName ypatybę.
Funkcija NumberFormat
Ši funkcija tiesiog parodo langelio skaičių formatą. Tai gali būti naudinga, jei reikia užtikrinti, kad visos langelių grupės turi tą patį skaičių formatą.
Funkcijos skaičiaus formatas (ląstelė)
' Grąžina langelio skaičių formatą
Skaičiaus formatas = Cell(1).Skaičių formatas
Pabaigos funkcija
Pastebėjote Cell (1) naudojimą? Jei kaip argumentas naudojamas kelių langelių diapazonas, naudojamas tik pirmasis langelis.
Galite lengvai parašyti panašias funkcijas, kurios grąžina langelio teksto spalvą, fono spalvą, šriftą ir pan.
Funkcija ExtractElement
Ši įvyniojimo funkcija grąžina poeilelę iš teksto eilutės, kurioje yra keli elementai, atskirti skyriklio simboliu. Pavyzdžiui, ši formulė grąžina karvę, kuri yra trečiasis elementas eilutėje, kurioje kaip skyriklis naudojamas tarpas. Argumentai, žinoma, gali būti ląstelių nuorodos.
=ExtractElement("šuo arklys karvė katė", 3, " ")
Štai kodas, kuris yra VBA padalinimo funkcijos įvynioklis:
Funkcija ExtractElement (Txt, n, Sep)
' Grąžina n-ąjį teksto eilutės elementą, kur
“ elementai yra atskirti nurodytu skyriklio ženklu
Ištraukimo elementas = Split(Application.Trim(Txt), Sep)(n - 1)
Pabaigos funkcija
Toliau pateiktame paveikslėlyje parodyta darbalapio formulėse naudojama funkcija ExtractElement. A stulpelyje yra teksto eilutė, B stulpelyje yra elemento numeris, kurį reikia išgauti, o C stulpelyje yra skyriklis (ląsteliuose, kurie atrodo tušti, yra tarpo simbolis).
Funkcijos ExtractElement naudojimas elementui iš eilutės grąžinti.
Funkcija SayIt
Ši paprasta funkcija yra „Application.Speech“ objekto kalbėjimo metodo įvyniojimas. Argumentui „kalbėti“ naudojamas sintezuotas balsas.
Funkcija SayIt (txt)
“ – pasakoja argumentą
Application.Speech.Speak txt, True
Pabaigos funkcija
Štai pavyzdys:
=JEI(C10>10000,Pasakyk("Perviršytas biudžetas"),"Gerai"
Formulė patikrina langelį C10. Jei vertė yra didesnė nei 10 000, funkcija pasako tekstą: „Perviršytas biudžetas“. Jei reikšmė mažesnė nei 10 000, funkcija rodo tekstą OK (ir nieko nesako).
Naudokite taupiai. Jei šią funkciją naudosite daugiau nei vieną kartą, tai gali būti labai painu. Be to, atminkite, kad ši funkcija įvertinama kiekvieną kartą, kai apskaičiuojamas darbalapis, todėl balsas gali labai erzinti, jei atliekate daug pakeitimų. Ši funkcija tikriausiai labiau tinka pramogoms.
Funkcija IsLike
VBA Like operatorius yra labai lankstus būdas palyginti teksto eilutes. Patikrinkite tai VBA žinyno sistemoje. Ši funkcija suteikia galią jūsų darbalapio formulėms:
Funkcija Islike (tekstas, raštas)
Grąžina tiesa, jei pirmasis argumentas yra kaip antrasis
IsLike = text Like modelis
Pabaigos funkcija