VBA INT - Ako používať funkciu Integer vo VBA Excel?

Obsah

Funkcia Excel VBA INT (celé číslo)

Funkcia Excel VBA INT (celé číslo)

VBA INT je vstavaná funkcia, ktorá sa používa iba na to, aby nám poskytla vstup iba celočíselná časť čísla. Táto funkcia sa používa v tých dátach, ktorých desatinná časť toľko neovplyvňuje údaje, aby sme uľahčili výpočty alebo analýzu, ktoré používame. Funkcia INT získa iba celočíselné hodnoty.

Táto funkcia je k dispozícii v pracovnom hárku aj vo formáte VBA. Funkcia celé číslo zaokrúhli konkrétne číslo na najbližšie celé číslo.

Funkciu VBA Int je možné použiť v časti Sub Procedúra a Function Procedúra. Teraz sa pozrite na syntax funkcie INT vo VBA.

Má iba jeden argument na dodanie, tj. Číslo.

Číslo je číslo, ktoré sa pokúšame previesť na číslo INTEGER. Keď je číslo zadané, funkcia INT ho zaokrúhli nadol na najbližšie celé číslo.

Napríklad, ak je zadané číslo 68,54, potom sa funkcia Excel VBA Int zaokrúhľuje na 68, čo je smerom k nule. Ak je zadané číslo -68,54, potom funkcia INT zaokrúhlila číslo na 69, čo je od nuly.

Ako používať funkciu VBA INT?

Príklad č

Teraz sa pozrite na jednoduchý príklad funkcie „INT“ vo VBA. Vykonajme úlohu zaokrúhliť číslo 84,55 na najbližšie celé číslo nadol.

Krok 1: Spustite podproces.

Krok 2: Deklarujte premennú ako celé číslo .

Kód:

Sub INT_Example1 () Dim K ako celé číslo End Sub

Krok 3: Teraz pomocou funkcie INT priraďte vzorec k premennej „ k “.

Kód:

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

Krok 4: Zadajte číslo ako 84,55 .

Poznámka: Pretože ide o číselné číslo, nemusíme dodávať dvojité úvodzovky.

Kód:

Sub INT_Example1 () Dim K As Integer K = Int (84,55) End Sub

Krok 5: Teraz odovzdajte výsledok premennej v okne správy VBA.

Kód:

Sub INT_Example1 () Dim K As Integer K = Int (84,55) MsgBox K End Sub

Dobre, spustíme kód a uvidíme, čo sa stane.

Výsledok je teda 84 a je zaokrúhlený nadol na najbližšiu celočíselnú hodnotu.

Príklad č

Teraz s rovnakým číslom so záporným znamienkom sa pokúsime previesť na najbližšiu celočíselnú hodnotu. Nižšie je uvedený kód so záporným znamienkom.

Kód:

Sub INT_Example2 () Dim k As Integer k = Int (-84,55) 'Záporné číslo s funkciou INT MsgBox k End Sub

Keď spustím tento kód, zaokrúhlilo číslo na -85 .

Príklad č. 3 - Extrahujte časť dátumu z dátumu a času

Niekoľkokrát v mojej kariére som sa stretol so scenárom extrahovania dátumu a času oddelene od kombinácie dátumu a času.

Napríklad si pozrite nižšie uvedené údaje o dátume a čase.

Ako extrahujete časť dátumu a čas?

Najskôr musíme extrahovať časť Dátum. Na tento účel použijeme funkciu INT. Nasledujúci kód extrahuje časť DATE z vyššie uvedených údajov.

Kód:

Sub INT_Example2 () Dim k As Integer For k = 2 To 12 Cells (k, 2). Value = Int (Cells (k, 1) .Value) 'Toto extrahuje dátum do druhého stĺpca Cells (k, 3). Hodnota = bunky (k, 1). Hodnota - bunky (k, 2). Hodnota 'Týmto sa extrahuje čas do tretieho stĺpca Ďalej k Koniec Sub

Spustite tento kód. Môžete získať výsledok uvedený nižšie (ak sa formátovanie nepoužije).