Her finner du noen relativt enkle tilpassede Excel VBA-regnearkfunksjoner som også er svært nyttig. Disse funksjonene kalles wrapper funksjoner
fordi de består av kode som er pakket rundt iboende VBA elementer. Med andre ord, de lar deg bruke VBA-funksjoner i regnearkformler.
Funksjon Bruker () 'Returnerer navnet på den aktuelle brukeren User = Application.UserNameEnd Funksjon

Denne funksjonen i hovedsak lar formler tilgang til Brukernavn eiendommen av Application objektet.

The NumberFormat funksjon

Denne funksjonen viser bare den tallformat for en celle. Det kan være nyttig hvis du må sørge for at en gruppe av celler alle har samme tallformat.
Funksjon NumberFormat (Cell) 'Returnerer celle nummer format NumberFormat = Cell (1) .NumberFormatEnd Funksjon

Legg merke til bruken av Cell (1)? Hvis en multicell området brukes som et argument, er bare den første cellen brukes.

Du kan enkelt skrive lignende funksjoner som returnerer en celle tekstfarge, bakgrunnsfarge, skrifttype, og så videre.

Den ExtractElement funksjon

Dette wrapper funksjonen returnerer en delstreng fra en tekststreng som inneholder flere elementer, atskilt med et skilletegn. For eksempel, denne formel returnerer kua, som er det tredje element i en streng som bruker en plass som en separator. Argumentene, selvfølgelig, kan være cellereferanser
= ExtractElement ( "hund hest ku katt", 3 ",")

Her er koden, som er en wrapper for VBA er Split-funksjon.
Funksjon ExtractElement (Txt, n, Sep) 'Returnerer det n-te element i en tekststreng, hvor de "elementene er atskilt med en spesifisert skilletegn ExtractElement = Split (Application.Trim (Txt), Sep) (n - 1) End Function

bildet nedenfor viser ExtractElement funksjonen brukes i regnearkformler. Kolonne A inneholder tekststrengen, inneholder Kolonne B elementnummeret som skal trekkes ut, og kolonne C inneholder skilletegn (celler som synes å være tom inneholde et mellomrom).
Bruke ExtractElement funksjonen til å returnere et element fra en streng .
The SayIt funksjon

Denne enkle funksjonen er en wrapper for Speak metoden for Application.Speech objektet. Den bruker en syntetisk stemme til "snakke" argumentet
Function SayIt (txt) "Snakker argumentet Application.Speech.Speak txt, TrueEnd Funksjon

Her er et eksempel:.
= HVIS (C10 > 10 000, SayIt ( "Over budsjett"), "OK")

formelen sjekker celle C10. Hvis verdien er større enn 10 000, funksjonen taler teksten: ".. Over budsjett" Hvis verdien er mindre enn 10 000, viser funksjonen teksten OK (og ikke si noe)

Bruk med måte . Hvis du bruker denne funksjonen mer enn én gang, kan det være veldig forvirrende. Husk også at denne funksjonen blir evaluert hver gang regnearket blir beregnet, slik at stemmen kan bli veldig irriterende hvis du gjør mange endringer. Denne funksjonen er trolig mer egnet for underholdning formål.

The IsLike funksjon

VBA er som operatør er en svært fleksibel måte å sammenligne tekststrenger. Sjekk det ut i VBA hjelpesystemet. Denne funksjonen gir den makten til regnearkformler:
Funksjon IsLike (tekst, mønster) 'Returnerer sann hvis det første argumentet er som andre IsLike = text Som patternEnd Funksjon