Këtu do të gjeni disa funksione relativisht të thjeshta të personalizuara të fletës së punës Excel VBA që janë gjithashtu shumë të dobishme. Këto funksione quhen funksione mbështjellëse sepse ato përbëhen nga kodi që është i mbështjellë rreth elementeve të brendshme të VBA. Me fjalë të tjera, ato ju lejojnë të përdorni funksionet VBA në formulat e fletëve të punës.
Funksioni Përdorues ()
' Kthen emrin e përdoruesit aktual
Përdoruesi = Aplikacioni.Emri i përdoruesit
Funksioni i Fundit
Ky funksion, në thelb, i lejon formulat tuaja të aksesojnë vetinë Emri i përdoruesit të objektit Application.
Funksioni NumberFormat
Ky funksion thjesht shfaq formatin e numrave për një qelizë. Mund të jetë e dobishme nëse duhet të siguroheni që një grup qelizash të kenë të njëjtin format numrash.
Formati i numrit të funksionit (qeliza)
' Kthen formatin e numrave të qelizës
Formati i numrit = Qeliza(1).Formati i numrit
Funksioni i Fundit
E vini re përdorimin e qelizës (1)? Nëse një varg shumëqelizash përdoret si argument, përdoret vetëm qeliza e parë.
Mund të shkruani lehtësisht funksione të ngjashme që kthejnë ngjyrën e tekstit të një qelize, ngjyrën e sfondit, fontin, etj.
Funksioni ExtractElement
Ky funksion mbështjellës kthen një nënvarg nga një varg teksti që përmban shumë elementë, të ndarë nga një karakter ndarës. Për shembull, kjo formulë kthen lopë, e cila është elementi i tretë në një varg që përdor një hapësirë si ndarës. Argumentet, natyrisht, mund të jenë referenca të qelizave.
=ExtractElement ("macja e lopës me kalë qeni", 3, "")
Këtu është kodi, i cili është një mbështjellës për funksionin Split të VBA:
Funksioni ExtractElement (Txt, n, Shtator)
' Kthen elementin e n-të të një vargu teksti, ku
Elementet ndahen nga një karakter ndarës i caktuar
ExtractElement = Split(Application.Trim(Txt), Shtator)(n - 1)
Funksioni i Fundit
Imazhi më poshtë tregon funksionin ExtractElement të përdorur në formulat e fletëve të punës. Kolona A përmban vargun e tekstit, kolona B përmban numrin e elementit që do të nxirret dhe kolona C përmban kufirin (qelizat që duken të zbrazëta përmbajnë një karakter hapësinor).
Përdorimi i funksionit ExtractElement për të kthyer një element nga një varg.
Funksioni SayI
Ky funksion i thjeshtë është një mbështjellës për metodën Speak të objektit Application.Speech. Ai përdor një zë të sintetizuar për të "folur" argumentin.
Funksioni SayIt (txt)
’ Flet argumenti
Application.Speech.Speak txt, e vërtetë
Funksioni i Fundit
Ja një shembull:
=IF(C10>10000,SayIt("Mbi buxhet"),"OK")
Formula kontrollon qelizën C10. Nëse vlera është më e madhe se 10,000, funksioni tregon tekstin: "Mbi buxhet". Nëse vlera është më e vogël se 10,000, funksioni shfaq tekstin OK (dhe nuk thotë asgjë).
Përdorni me masë. Nëse e përdorni këtë funksion më shumë se një herë, mund të jetë shumë konfuze. Gjithashtu, mbani mend se ky funksion vlerësohet sa herë që llogaritet fleta e punës, kështu që zëri mund të bëhet shumë i bezdisshëm nëse jeni duke bërë shumë ndryshime. Ky funksion është ndoshta më i përshtatshëm për qëllime argëtimi.
Funksioni IsLike
Operatori Like i VBA është një mënyrë shumë fleksibël për të krahasuar vargjet e tekstit. Kontrolloni atë në sistemin e ndihmës VBA. Ky funksion e sjell atë fuqi në formulat e fletës suaj të punës:
Funksioni IsLike (tekst, model)
' Kthehet e vërtetë nëse argumenti i parë është si i dyti
IsLike = tekst Si model
Funksioni i Fundit