Excel VBA INT (kokonaisluku) -toiminto
VBA INT on sisäänrakennettu toiminto, jota käytetään antamaan meille vain luvun kokonaislukuosa, jos meille on syötetty syöte. Tätä toimintoa käytetään niissä tiedoissa, joiden desimaaliosa ei vaikuta niin paljon tietoihin, että käyttämiemme laskelmien tai analyysien helpottamiseksi INT-funktio vain kokonaislukuarvojen saamiseksi.
Tämä toiminto on käytettävissä sekä laskentataulukossa että VBA: ssa. Kokonaislukufunktio pyöristää tietyn luvun alaspäin lähimpään kokonaislukuun.
VBA Int -toimintoa voidaan käyttää alimenettelyssä ja toimintomenettelyssä. Katsotaan nyt VBA: n INT-funktion syntaksia.
Sillä on vain yksi argumentti antaa eli numero.
- Luku on numero, jota yritämme muuntaa INTEGER-numeroksi. Kun numero annetaan, INT-funktio pyöristää sen alaspäin lähimpään kokonaislukuun.
Jos toimitettu numero on esimerkiksi 68,54, Excel VBA Int -funktio pyöristyy alaspäin 68: een, mikä on kohti nollaa. Jos toimitettu numero on -68,54, INT-funktio pyöristää luvun 69: ään, joka on pois nollasta.
Kuinka käyttää VBA INT -toimintoa?
Esimerkki 1
Katsotaan nyt yksinkertaista esimerkkiä VBA: n "INT" -toiminnosta. Suoritetaan tehtävä pyöristämällä numero 84,55 alaspäin lähimpään kokonaislukuun.
Vaihe 1: Aloita alimenettely.
Vaihe 2: Ilmoita muuttuja kokonaislukuksi .
Koodi:
Sub INT_Example1 () Dim K kokonaisloppuna Sub
Vaihe 3: Määritä nyt kaava muuttujalle “ k ” soveltamalla INT-funktiota.
Koodi:
Osa INT_esimerkki1 () Dim K kokonaislukuna K = Int (End Sub
Vaihe 4: Anna numeroksi 84,55 .
Huomaa: Koska se on numeerinen luku, meidän ei tarvitse toimittaa lainausmerkkejä.
Koodi:
Osa INT_esimerkki1 () Dim K kokonaislukuna K = Int (84,55) End Sub
Vaihe 5: Muuttujan tulos välitetään nyt VBA-viestiruutuun.
Koodi:
Sub INT_esimerkki1 () Dim K kokonaislukuna K = Int (84.55) MsgBox K End Sub
Ok, ajetaan koodi ja katsotaan mitä tapahtuu.
Joten tulos on 84, ja se pyöristetään alaspäin lähimpään kokonaislukuun.
Esimerkki 2
Nyt yritämme muuntaa lähimpään kokonaislukuun samalla numerolla negatiivisella merkillä. Alla on koodi, jolla on negatiivinen merkki.
Koodi:
Sub INT_esimerkki2 () Dim k As kokonaisluku k = Int (-84.55) 'Negatiivinen luku INT-toiminnolla MsgBox k End Sub
Kun suoritan tämän koodin, se on pyöristä luvun arvoon -85 .
Esimerkki # 3 - Pura päivämääräosuus päivämäärästä ja kellosta
Muutaman kerran urallani olen kohdannut skenaarion, jossa päivämäärä ja aika erotetaan erillään päivämäärän ja ajan yhdistelmästä.
Katso esimerkiksi alla olevat päivämäärän ja kellonajan tiedot.
Kuinka purat päivämääräosan ja -ajan?
Ensin meidän on purettava päivämääräosa. Tätä varten sovelletaan INT-toimintoa. Alla oleva koodi poimii DATE-osan yllä olevista tiedoista.
Koodi:
Sub INT_Example2 () Dim k kokonaislukuna k = 2 - 12 solua (k, 2). Arvo = Int (solut (k, 1). Arvo) 'Tämä poimii päivämäärän toiseen sarakkeeseen Solut (k, 3). Arvo = Solut (k, 1). Arvo - Solut (k, 2). Arvo 'Tämä poimii ajan kolmannelle sarakkeelle Seuraava k End Sub
Suorita tämä koodi. Saatat saada tuloksen kuten alla (jos muotoilua ei käytetä).
Käytä päivämääräsarakkeessa muotoilua "PP-KK-VVVV" ja aika-sarakkeessa käytä päivämäärämuotoa Excelissä muodossa "KK: KK: SS AM / PM"
