Inhoudsopgave:
Video: How to wrap text on Excel 2024
Hier vindt u enkele relatief eenvoudige aangepaste Excel VBA-werkbladfuncties die ook erg handig zijn. Deze functies worden wrapper-functies genoemd omdat ze bestaan uit code die rond intrinsieke VBA-elementen is gewikkeld. Met andere woorden, hiermee kunt u VBA-functies gebruiken in werkbladformules.
Function User () 'Retourneert de naam van de huidige gebruiker User = Application. UserName End Function
Met deze functie kunnen uw formules in essentie de eigenschap UserName van het Application-object openen.
De NumberFormat-functie
Deze functie geeft eenvoudig het nummerformaat voor een cel weer. Het kan handig zijn als u ervoor moet zorgen dat een groep cellen allemaal hetzelfde nummerformaat heeft.
Functienummer Formaat (cel) 'Retourneert het getalnotatie van de cel NumberFormat = Cell (1). NumberFormat End Function
Let op het gebruik van Cell (1)? Als een multicell-bereik als argument wordt gebruikt, wordt alleen de eerste cel gebruikt.
U kunt gemakkelijk soortgelijke functies schrijven die de tekstkleur, achtergrondkleur, het lettertype, enzovoort van een cel retourneren.
De ExtractElement-functie
Deze wrapper-functie retourneert een substring uit een tekstreeks die meerdere elementen bevat, gescheiden door een scheidingsteken. Deze formule retourneert bijvoorbeeld koe, het derde element in een tekenreeks die een spatie als scheidingsteken gebruikt. De argumenten kunnen natuurlijk celverwijzingen zijn.
= ExtractElement ("dog horse cow cat", 3, "")
Hier is de code, die een wrapper is voor de splitfunctie van VBA:
Function ExtractElement (Txt, n, Sep) 'Retourneert het n-de element van een tekstreeks, waarbij de' elementen worden gescheiden door een gespecificeerd scheidingsteken ExtractElement = Splitsen (Toepassing Trim (Txt), Sep) (n - 1) Eindfunctie
De afbeelding hieronder toont de ExtractElement-functie die wordt gebruikt in werkbladformules. Kolom A bevat de tekenreeks, kolom B bevat het elementnummer dat moet worden geëxtraheerd en kolom C bevat het scheidingsteken (cellen die blanco lijken, bevatten een spatiesymbool).
De SayIt-functie
Deze eenvoudige functie is een wrapper voor de Speak-methode van de toepassing. Spraakobject. Het gebruikt een gesynthetiseerde stem om het argument te "spreken".
Functie SayIt (txt) 'Spreekt het argument Toepassing. Toespraak. Speak txt, True End Function
Hier is een voorbeeld:
= IF (C10> 10000, SayIt ("Over budget"), "OK")
De formule controleert cel C10. Als de waarde groter is dan 10, 000, spreekt de functie de tekst: "Over het budget."Als de waarde kleiner is dan 10, 000, geeft de functie de tekst OK weer (en zegt niets).
Gebruik spaarzaam. Als u deze functie meer dan eens gebruikt, kan dit zeer verwarrend zijn. Onthoud ook dat deze functie wordt geëvalueerd telkens wanneer het werkblad wordt berekend, dus de stem kan erg vervelend zijn als u veel wijzigingen aanbrengt. Deze functie is waarschijnlijk meer geschikt voor amusementsdoeleinden.
De IsLike-functie
De operator VBA's Like is een zeer flexibele manier om tekstreeksen met elkaar te vergelijken. Bekijk het in het VBA Help-systeem. Deze functie brengt die macht naar uw werkbladformules:
Function IsLike (text, pattern) 'Geeft true als het eerste argument lijkt op het tweede IsLike = text Like pattern End Function
