VBA INT

Excel VBA INT (geheel getal) functie

VBA INT is een ingebouwde functie die wordt gebruikt om ons alleen het gehele deel van een getal te geven, mits we een invoer hebben, deze functie wordt gebruikt in die gegevens waarvan het decimale deel niet zozeer de gegevens beïnvloedt, maar om de berekeningen of analyse die we gebruiken te vergemakkelijken INT-functie om alleen de gehele waarden op te halen.

Deze functie is zowel beschikbaar met het werkblad als in VBA. De functie Integer rondt een specifiek getal naar beneden af ​​op het dichtstbijzijnde gehele getal.

De VBA Int-functie kan worden gebruikt in Subprocedure en Functieprocedure. Bekijk nu de syntaxis van de INT-functie in VBA.

Het heeft maar één argument om te leveren, namelijk nummer

  • Het nummer is het nummer dat we proberen om te zetten in een INTEGER-nummer. Wanneer het nummer wordt opgegeven, rondt de functie het naar beneden af ​​naar het dichtstbijzijnde gehele getal.

Als het opgegeven getal bijvoorbeeld 68,54 is, rondt de Excel VBA Int-functie naar beneden af ​​naar 68, wat naar nul is. Als het opgegeven getal -68,54 is, heeft de INT-functie het getal afgerond naar 69, wat weg is van nul.

Hoe de VBA INT-functie te gebruiken?

U kunt deze VBA INT Excel-sjabloon hier downloaden - VBA INT Excel-sjabloon

Voorbeeld 1

Kijk nu naar het eenvoudige voorbeeld van de "INT" -functie in VBA. Laten we de taak uitvoeren om het getal 84,55 naar beneden af ​​te ronden naar het dichtstbijzijnde gehele getal.

Stap 1: Start de subprocedure.

Stap 2: Declareer de variabele als geheel getal .

Code:

 Sub INT_Example1 () Dim K As Integer End Sub 

Stap 3: Wijs nu de formule toe aan de variabele “ k ” door de INT-functie toe te passen.

Code:

 Sub INT_Example1 () Dim K As Integer K = Int (End Sub 

Stap 4: Geef het nummer op als 84.55 .

Opmerking: aangezien het een numeriek getal is, hoeven we geen dubbele aanhalingstekens te plaatsen.

Code:

 Sub INT_Example1 () Dim K As Integer K = Int (84.55) End Sub 

Stap 5: Geef nu het resultaat van de variabele door in het VBA-berichtvenster.

Code:

 Sub INT_Example1 () Dim K As Integer K = Int (84.55) MsgBox K End Sub 

Oké, laten we de code uitvoeren en kijken wat er gebeurt.

Het resultaat is dus 84 en wordt naar beneden afgerond op het dichtstbijzijnde gehele getal.

Voorbeeld # 2

Nu met hetzelfde getal met het minteken, zullen we proberen om te zetten naar de dichtstbijzijnde gehele waarde. Hieronder staat de code met een minteken.

Code:

 Sub INT_Example2 () Dim k As Integer k = Int (-84.55) 'Negatief getal met INT-functie MsgBox k End Sub 

Wanneer ik deze code uitvoer, is het getal afgerond op -85 .

Voorbeeld # 3 - Datagedeelte extraheren uit Datum en tijd

Een paar keer in mijn carrière ben ik het scenario tegengekomen om de datum en tijd afzonderlijk te extraheren van de combinatie van datum en tijd.

Kijk voor een voorbeeld naar de onderstaande gegevens van Datum & Tijd.

Hoe extraheer je datagedeelte en tijd?

Eerst moeten we het datumgedeelte extraheren, hiervoor passen we de INT-functie toe. Onderstaande code haalt het DATUM-gedeelte uit de bovenstaande gegevens.

Code:

 Sub INT_Example2 () Dim k As Integer For k = 2 to 12 Cells (k, 2) .Value = Int (Cells (k, 1) .Value) 'Dit zal de datum extraheren naar de tweede kolom Cells (k, 3). Waarde = Cellen (k, 1). Waarde - Cellen (k, 2). Waarde 'Dit zal de tijd extraheren naar de derde kolom Volgende k End Sub 

Als u deze code uitvoert, krijgt u mogelijk het resultaat zoals hieronder (als de opmaak niet wordt toegepast).

Pas in de datumkolom de opmaak toe als "DD-MMM-JJJJ" en voor de tijdkolom past u de datumnotatie in Excel toe als "UU: MM: SS AM / PM"