Excel VBA INT (heltal) -funktion
VBA INT er en indbygget funktion, der bruges til kun at give os hele talets del, forudsat os et input, denne funktion bruges i de data, hvis decimaldel ikke påvirker dataene så meget for at lette beregningerne eller analyserne, vi bruger INT-funktion for kun at få heltalsværdierne.
Denne funktion er tilgængelig med regnearket såvel som i VBA. Heltalsfunktionen afrunder et bestemt tal ned til det nærmeste heltal.
VBA Int-funktionen kan bruges i underprocedure og funktionsprocedurer. Se nu på syntaksen for INT-funktionen i VBA.
Det har kun et argument at levere, dvs. nummer.
- Nummeret er det nummer, vi prøver at konvertere til INTEGER-nummer. Når tallet er angivet, afrunder INT-funktionen det til nærmeste heltal.
For eksempel, hvis det medfølgende nummer er 68,54, afrunder Excel VBA Int-funktionen ned til 68, hvilket er mod nul. Hvis det medfølgende nummer er -68,54, afrundede INT-funktionen tallet til 69, hvilket er væk fra nul.
Hvordan bruges VBA INT-funktion?
Eksempel nr. 1
Se nu på det enkle eksempel på "INT" -funktionen i VBA. Lad os udføre opgaven med at afrunde tallet 84.55 til det nærmeste heltal.
Trin 1: Start delproceduren.
Trin 2: Erklær variablen som heltal .
Kode:
Sub INT_Example1 () Dim K som heltal End Sub
Trin 3: Tildel nu formlen til variablen “ k ” ved at anvende INT-funktionen.
Kode:
Sub INT_Example1 () Dim K som heltal K = Int (End Sub
Trin 4: Angiv tallet som 84,55 .
Bemærk: Da det er et numerisk tal, behøver vi ikke levere dobbelt anførselstegn.
Kode:
Sub INT_Example1 () Dim K Som heltal K = Int (84.55) End Sub
Trin 5: Videregiver nu resultatet af variablen i VBA-meddelelsesfeltet.
Kode:
Sub INT_Example1 () Dim K som heltal K = Int (84,55) MsgBox K End Sub
Ok, lad os køre koden og se hvad der sker.
Så resultatet er 84, og det afrundes ned til nærmeste heltal.
Eksempel 2
Nu med det samme tal med det negative tegn, vil vi forsøge at konvertere til nærmeste heltal. Nedenfor er koden med et negativt tegn.
Kode:
Sub INT_Example2 () Dim k Som heltal k = Int (-84.55) 'Negativt tal med INT-funktion MsgBox k End Sub
Når jeg kører denne kode, har den afrundet tallet til -85 .
Eksempel 3 - Uddrag datodel fra dato og tid
Få gange i min karriere har jeg stødt på scenariet med at udtrække dato og tid separat fra kombinationen af dato og tid.
Se for eksempel nedenstående data for dato og tid.
Hvordan udtrækker du datodel og tid?
Først skal vi udtrække datodelen. Lad os anvende INT-funktionen til dette. Nedenstående kode udtrækker DATE-delen fra ovenstående data.
Kode:
Under INT_eksempel2 () Dim k som heltal For k = 2 til 12 celler (k, 2). Værdi = Int (celler (k, 1). Værdi) 'Dette udtrækker dato til den anden kolonne Celler (k, 3). Værdi = Celler (k, 1). Værdi - Celler (k, 2). Værdi 'Dette udtrækker tiden til den tredje kolonne Næste k Afslut sub
Kør denne kode. Du får muligvis resultatet som nedenfor (hvis formateringen ikke anvendes).
I datakolonnen skal du anvende formateringen som “DD-MMM-ÅÅÅÅ” og anvende datoformatet i tidskolonnen i excel som “HH: MM: SS AM / PM”
