Funcția Excel VBA INT (Număr întreg)
VBA INT este o funcție încorporată care este utilizată pentru a ne oferi doar partea întreagă a unui număr care ne-a furnizat o intrare, această funcție este utilizată în acele date a căror parte zecimală nu afectează atât de mult datele, astfel încât să ușureze calculele sau analiza pe care o folosim Funcția INT pentru a obține doar valorile întregi.
Această funcție este disponibilă împreună cu foaia de lucru, precum și în VBA. Funcția de număr întreg rotunjește un număr specific până la cel mai apropiat număr întreg.
Funcția VBA Int poate fi utilizată în Procedura secundară și Procedura funcției. Acum aruncați o privire la sintaxa funcției INT în VBA.
Are un singur argument de furnizat, adică Număr.
- Numărul este numărul pe care încercăm să îl convertim în număr INTEGER. Când numărul este furnizat, funcția INT îl rotunjește la cel mai apropiat număr întreg.
De exemplu, dacă numărul furnizat este 68,54, atunci funcția Excel VBA Int se rotunjește la 68, care este spre zero. Dacă numărul furnizat este -68,54, atunci funcția INT a rotunjit numărul la 69, care este departe de zero.
Cum se folosește funcția VBA INT?
Exemplul nr. 1
Acum, uitați-vă la exemplul simplu al funcției „INT” din VBA. Să îndeplinim sarcina de a rotunji în jos numărul 84,55 la cel mai apropiat număr întreg.
Pasul 1: Porniți subprocedura.
Pasul 2: declarați variabila ca întreg .
Cod:
Sub INT_Example1 () Dim K As Integer End Sub
Pasul 3: Acum atribuiți formula variabilei „ k ” aplicând funcția INT.
Cod:
Sub INT_Example1 () Dim K As Integer K = Int (End Sub
Pasul 4: Furnizați numărul ca 84.55 .
Notă: Deoarece este un număr numeric, nu trebuie să furnizăm ghilimele duble.
Cod:
Sub INT_Example1 () Dim K As Integer K = Int (84.55) End Sub
Pasul 5: Acum treceți rezultatul variabilei în caseta de mesaje VBA.
Cod:
Sub INT_Example1 () Dim K As Integer K = Int (84.55) MsgBox K End Sub
Ok, să rulăm codul și să vedem ce se întâmplă.
Deci, rezultatul este 84 și este rotunjit în jos la cea mai apropiată valoare întreagă.
Exemplul nr. 2
Acum, cu același număr cu semnul negativ, vom încerca să convertim la cea mai apropiată valoare întreagă. Mai jos este codul cu semn negativ.
Cod:
Sub INT_Example2 () Dim k As Integer k = Int (-84.55) 'Număr negativ cu funcția INT MsgBox k End Sub
Când rulez acest cod, acesta a rotunjit numărul la -85 .
Exemplul # 3 - Extrageți porțiunea de dată din dată și oră
De puține ori în carieră, am întâlnit scenariul extragerii datei și orei separat de combinația de dată și oră.
De exemplu, uitați-vă la datele de mai jos despre Data și ora.
Cum extrageți porțiunea și ora?
În primul rând, trebuie să extragem porțiunea Data. Pentru aceasta, să aplicăm funcția INT. Codul de mai jos va extrage porțiunea DATE din datele de mai sus.
Cod:
Sub INT_Example2 () Dim k Întreg pentru k = 2 până la 12 celule (k, 2). Valoare = Int (Celule (k, 1). Valoare) 'Aceasta va extrage data la a doua coloană Celule (k, 3). Valoare = Celule (k, 1). Valoare - Celule (k, 2). Valoare 'Aceasta va extrage timpul către a treia coloană Următorul k Sfârșit Sub
Rulați acest cod. S-ar putea să obțineți rezultatul ca cel de mai jos (dacă formatarea nu este aplicată).
În coloana de dată, aplicați formatarea ca „ZZ-MMM-AAAA” și pentru coloana de timp, aplicați formatul de dată în excel ca „HH: MM: SS AM / PM”
