Šeit jūs atradīsiet dažas salīdzinoši vienkāršas pielāgotas Excel VBA darblapas funkcijas, kas arī ir ļoti noderīgas. Šīs funkcijas sauc par iesaiņojuma funkcijām, jo tās sastāv no koda, kas ir apvilkts ap iekšējiem VBA elementiem. Citiem vārdiem sakot, tie ļauj izmantot VBA funkcijas darblapu formulās.
Funkcija Lietotājs()
Atgriež pašreizējā lietotāja vārdu
Lietotājs = Application.UserName
Beigu funkcija
Šī funkcija būtībā ļauj jūsu formulām piekļūt lietojumprogrammas objekta rekvizītam UserName.
Funkcija NumberFormat
Šī funkcija vienkārši parāda šūnas skaitļa formātu. Tas var būt noderīgi, ja ir jānodrošina, lai šūnu grupai būtu vienāds skaitļu formāts.
Funkcijas numura formāts (šūna)
Atgriež šūnas skaitļa formātu
Skaitļa formāts = Šūna(1).Numura formāts
Beigu funkcija
Vai ievērojat šūnas (1) izmantošanu? Ja kā arguments tiek izmantots daudzšūnu diapazons, tiek izmantota tikai pirmā šūna.
Varat viegli uzrakstīt līdzīgas funkcijas, kas atgriež šūnas teksta krāsu, fona krāsu, fontu utt.
Funkcija ExtractElement
Šī iesaiņojuma funkcija atgriež apakšvirkni no teksta virknes, kurā ir vairāki elementi, kas atdalīti ar atdalīšanas rakstzīmi. Piemēram, šī formula atgriež govs, kas ir trešais elements virknē, kas izmanto atstarpi kā atdalītāju. Argumenti, protams, varētu būt šūnu atsauces.
=ExtractElement (“suns zirgs, govs kaķis”, 3, “ “)
Šeit ir kods, kas ir VBA sadalīšanas funkcijas iesaiņojums:
Funkcija ExtractElement (Txt, n, Sep)
' Atgriež teksta virknes n-to elementu, kur
elementi ir atdalīti ar noteiktu atdalītāju
ExtractElement = Sadalīt(Application.Trim(Txt), Sep)(n - 1)
Beigu funkcija
Tālāk esošajā attēlā parādīta funkcija ExtractElement, kas tiek izmantota darblapu formulās. Ailē A ir teksta virkne, B kolonnā ir izņemamā elementa numurs un C kolonnā ir norobežotājs (šūnās, kas šķiet tukšas, ir atstarpes rakstzīme).
Funkcijas ExtractElement izmantošana, lai atgrieztu elementu no virknes.
SayIt funkcija
Šī vienkāršā funkcija ir objekta Application.Speech runas metodes iesaiņojums. Tas izmanto sintezētu balsi, lai “izrunātu” argumentu.
Funkcija SayIt(txt)
' runā argumentu
Application.Speech.Speak txt, True
Beigu funkcija
Šeit ir piemērs:
=IF(C10>10000,SayIt("Pārsniegts budžets"),"Labi"
Formula pārbauda šūnu C10. Ja vērtība ir lielāka par 10 000, funkcija izrunā tekstu: “Pārsniedz budžetu”. Ja vērtība ir mazāka par 10 000, funkcija parāda tekstu OK (un neko nesaka).
Izmantojiet taupīgi. Ja šo funkciju izmantojat vairāk nekā vienu reizi, tas var būt ļoti mulsinoši. Atcerieties arī, ka šī funkcija tiek novērtēta katru reizi, kad tiek aprēķināta darblapa, tāpēc balss var kļūt ļoti kaitinoša, ja veicat daudzas izmaiņas. Šī funkcija, iespējams, ir vairāk piemērota izklaides nolūkiem.
Funkcija IsLike
VBA operators Like ir ļoti elastīgs veids, kā salīdzināt teksta virknes. Pārbaudiet to VBA palīdzības sistēmā. Šī funkcija nodrošina šo jaudu jūsu darblapas formulām:
Funkcija IsLike (teksts, raksts)
' Atgriež patiesu, ja pirmais arguments ir līdzīgs otrajam
IsLike = teksta Patīk raksts
Beigu funkcija