Använda inbyggda funktioner

VBA levereras med flera hundra inbyggda funktioner, och de flesta av dem kommer du aldrig att använda. Nedan listas de som ofta används inom affärsautomatisering — för att rensa text, arbeta med datum och konvertera datatyper.

Datumfunktioner

Debug.Print Now()                    ' current date and time
Debug.Print Date                     ' today's date only
Debug.Print DateAdd("d", 30, Date)   ' 30 days from today
Debug.Print DateDiff("d", #01/09/2023#, Date)  ' days since hire date
Debug.Print Format(Date, "dd/mm/yyyy")

Now() och Date ser lika ut men besvarar olika frågor — Now() inkluderar aktuell tid ner till sekunden (användbart för tidsstämpling när ett makro kördes), medan Date endast ger kalenderdagen, vilket är det du vill ha för allt som rör förfallodatum eller ålder. DateAdd och DateDiff är varandras spegelbilder: DateAdd räknar framåt eller bakåt från ett datum med en given enhet ("d" för dagar, men "m" för månader och "yyyy" för år fungerar också), medan DateDiff mäter avståndet mellan två befintliga datum.

Textfunktioner

Debug.Print UCase("wireless mouse")     ' WIRELESS MOUSE
Debug.Print LCase("WIRELESS MOUSE")     ' wireless mouse
Debug.Print Left("P001", 1)             ' P
Debug.Print Right("P001", 3)            ' 001
Debug.Print Mid("P001", 2, 3)           ' 001
Debug.Print Trim("  Keyboard  ")        ' Keyboard
Debug.Print Len("Laptop Stand")         ' 12
Debug.Print InStr("Wireless Mouse", "Mouse")  ' 10 (position found)

UCase och LCase används för att göra jämförelser okänsliga för versaler/gemener, till exempel, If UCase(category) = UCase("electronics") Then fungerar oavsett hur kategorin ursprungligen skrevs. Left, Right och Mid extraherar en del av en sträng, men skiljer sig åt i var de börjar räkna: Left och Right räknar från varsin ände, medan Mid tar en startposition och en längd, vilket gör att Mid("P001", 2, 3) och Right("P001", 3) råkar ge samma resultat här — "P001" har bara ett sifferprefix, så "från position 2" och "de sista 3 tecknen" hamnar på samma delsträng. Trim tar tyst bort inledande och avslutande mellanslag — en oansenlig funktion som räddar dig när data har klistrats in från någonstans med ojämna mellanrum. InStr söker efter en sträng i en annan och returnerar positionen där den hittas (eller 0 om den inte finns alls), vilket är hur du kan testa "innehåller produktnamnet ordet Mouse?" utan att behöva en exakt matchning.

Numeriska funktioner

Debug.Print Round(24.996, 2)   ' 25
Debug.Print Abs(-15)           ' 15
Debug.Print Int(7.9)           ' 7

Round och Int minskar båda ett tal, men på olika sätt — Round(24.996, 2) avrundar till närmaste värde med 2 decimaler (25,00, som visas som 25), medan Int(7.9) alltid trunkerar ner mot noll oavsett hur nära decimalen är att avrundas uppåt, och ger 7 istället för 8. Att blanda ihop dessa är en vanlig källa till prisfel: att avrunda ett pris till närmaste öre bör nästan alltid använda Round, inte Int, annars kommer du systematiskt att debitera för lite med en bråkdel av ett öre per transaktion.

Typkonvertering

Avgörande när du hämtar värden från ett kalkylblad, eftersom cellvärden ofta kommer som Variant:

Dim priceText As String
priceText = "39.50"
Dim price As Double
price = CDbl(priceText)     ' text → number
 
Dim stockValue As Variant
stockValue = "44"
Dim stockCount As Integer
stockCount = CInt(stockValue)

CDbl konverterar till Double, CInt till Integer, CStr konverterar till String och CDate konverterar till ett korrekt Date-värde.

Varför inte bara låta VBA konvertera automatiskt vid behov? Det gör det oftast, men att lita på det är riskabelt: en cell som ser ut som ett tal men faktiskt har skrivits eller importerats som text kan göra att en If-jämförelse eller en aritmetisk operation misslyckas eller beter sig oväntat, och explicit konvertering fångar det tidigt, med ett fel på exakt den rad där de felaktiga data finns istället för flera steg senare.

Uppgift

1. Skriv en rad som extraherar endast den numeriska delen av "P003" med hjälp av Mid (tips: börja på position 2).
2. Skriv en rad som konverterar den extraherade texten till ett riktigt tal med CInt eller CLng.
3. Använd DateDiff för att beräkna hur många dagar sedan Emma Davis anställdes (15/03/2020) jämfört med idag.