VBA INT - Kako uporabiti celoštevilčno funkcijo v programu VBA Excel?

Kazalo

Funkcija Excel VBA INT (Integer)

Funkcija Excel VBA INT (Integer)

VBA INT je vgrajena funkcija, s katero dobimo samo celoštevilski del števila, ki nam daje vhod. Ta funkcija se uporablja pri tistih podatkih, katerih decimalni del ne vpliva toliko na podatke, da olajša izračune ali analize Funkcija INT, da dobite samo celoštevilske vrednosti.

Ta funkcija je na voljo tako na delovnem listu kot v VBA. Celoštevilska funkcija zaokroži določeno število na najbližje celoštevilsko število.

Funkcijo VBA Int lahko uporabite v podprocedurah in postopkih funkcij. Zdaj pa si oglejte sintakso funkcije INT v VBA.

Ima le en argument, tj. Number.

Številka je številka, ki jo poskušamo pretvoriti v INTEGER številko. Ko je številka na voljo, jo funkcija INT zaokroži na najbližje celo število.

Če je na primer številka 68,54, se funkcija Excel VBA Int zaokroži na 68, kar je proti ničli. Če je priložena številka -68,54, je funkcija INT številko zaokrožila na 69, kar je stran od nič.

Kako uporabljati funkcijo VBA INT?

Primer # 1

Zdaj pa poglejte preprost primer funkcije “INT” v VBA. Izvedimo nalogo, da število 84,55 zaokrožimo na najbližje celo število.

1. korak: zaženite podproceduro.

2. korak: Spremenljivko prijavite kot celo število .

Koda:

Sub INT_Example1 () Dim K Kot Integer End Sub

3. korak: Zdaj dodelite formulo spremenljivki " k " z uporabo funkcije INT.

Koda:

Sub INT_Example1 () Dim K Kot celo število K = Int (End Sub

4. korak: Vnesite številko 84,55 .

Opomba: Ker gre za številčno številko, nam ni treba ponuditi dvojnih narekovajev.

Koda:

Pod INT_Primer1 () Dim K Kot celo število K = Int (84,55) Konec Sub

5. korak: Zdaj podajamo rezultat spremenljivke v polje za sporočila VBA.

Koda:

Pod INT_Primer1 () Dim K Kot celo število K = Int (84,55) MsgBox K Konec Sub

Ok, zaženimo kodo in poglejmo, kaj se bo zgodilo.

Rezultat je torej 84 in je zaokrožen navzdol na najbližjo celoštevilčno vrednost.

2. primer

Zdaj z isto številko z negativnim predznakom bomo poskusili pretvoriti v najbližjo celoštevilčno vrednost. Spodaj je koda z negativnim predznakom.

Koda:

Sub INT_Example2 () Dim k As Integer k = Int (-84.55) 'Negativno število s funkcijo INT MsgBox k End Sub

Ko zaženem to kodo, je številko zaokrožila na -85 .

Primer # 3 - Izvleček datuma iz datuma in časa

V svoji karieri sem se nekajkrat srečal s scenarijem, kako izpisati datum in uro ločeno od kombinacije datuma in časa.

Na primer, poglejte spodnje podatke o datumu in času.

Kako izvlečete porcijo datuma in čas?

Najprej moramo izvleči del Date. Za to uporabimo funkcijo INT. Spodnja koda bo povzela del DATE iz zgornjih podatkov.

Koda:

Sub INT_Example2 () Dim k Kot celo število Za k = 2 do 12 celic (k, 2). Vrednost = Celice (k, 1). Vrednost - Celice (k, 2). Vrednost 'To bo izvleklo čas v tretji stolpec Naslednji k Konec Sub

Zaženite to kodo. Rezultat lahko dobite kot spodaj (če oblikovanje ni uporabljeno).