VBA INT - Kaip naudoti sveikojo skaičiaus funkciją „VBA Excel“?

Turinys

„Excel VBA INT“ (sveikojo skaičiaus) funkcija

„Excel VBA INT“ (sveikojo skaičiaus) funkcija

VBA INT yra integruota funkcija, naudojama mums pateikti tik sveikąją skaičiaus dalį, jei mums yra įvestis. Ši funkcija naudojama tiems duomenims, kurių dešimtainė dalis ne tiek veikia duomenis, kad būtų lengviau atlikti skaičiavimus ar analizę INT funkcija norint gauti tik sveiko skaičiaus reikšmes.

Ši funkcija pasiekiama kartu su darbalapiu ir VBA. Sveiko skaičiaus funkcija apvalina konkretų skaičių žemyn iki artimiausio sveikojo skaičiaus.

Funkciją VBA Int galima naudoti procedūrose „Sub Procedūra“ ir „Funkcija“. Dabar pažvelkite į INT funkcijos sintaksę VBA.

Ji turi pateikti tik vieną argumentą, ty skaičių.

Skaičius yra skaičius, kurį bandome konvertuoti į INTEGER skaičių. Pateikus skaičių, funkcija INT suapvalina jį iki artimiausio sveiko skaičiaus.

Pvz., Jei pateiktas skaičius yra 68,54, tada „Excel VBA Int“ funkcija suapvalinama iki 68, tai yra link nulio. Jei pateiktas skaičius yra -68,54, tada funkcija INT suapvalino skaičių iki 69, kuris yra toli nuo nulio.

Kaip naudotis VBA INT funkcija?

1 pavyzdys

Dabar pažvelk į paprastą VBA funkcijos „INT“ pavyzdį. Atlikime užduotį apvalinant skaičių 84,55 iki artimiausio sveikojo skaičiaus.

1 veiksmas: pradėkite antrinę procedūrą.

2 veiksmas: paskelbkite kintamąjį kaip sveikąjį skaičių .

Kodas:

Int_pavyzdys1 () Dim K kaip sveikasis galas Sub

3 žingsnis: Dabar priskirkite formulę kintamajam „ k “ pritaikydami INT funkciją.

Kodas:

Int_pavyzdys1 () Dim K kaip sveikasis skaičius K = Int (pabaigos sub

4 žingsnis: Nurodykite numerį kaip 84.55 .

Pastaba: kadangi tai skaitinis skaičius, mums nereikia pateikti dvigubų kabučių.

Kodas:

Int_pavyzdys1 () Dim K kaip sveikasis skaičius K = Int (84.55) pabaigos antrinis

5 žingsnis: Dabar perduoti kintamojo rezultatą VBA pranešimų laukelyje.

Kodas:

INT_pavyzdys1 () Dim K kaip sveikasis skaičius K = Int (84.55) MsgBox K Pabaiga Sub

Gerai, paleiskime kodą ir pažiūrėkime, kas nutiks.

Taigi rezultatas yra 84 ir jis suapvalinamas žemyn iki artimiausios sveiko skaičiaus vertės.

2 pavyzdys

Dabar su tuo pačiu skaičiumi su neigiamuoju ženklu bandysime konvertuoti į artimiausią sveikojo skaičiaus vertę. Žemiau yra kodas su neigiamu ženklu.

Kodas:

Int_pavyzdys2 () Dim k As Sveikasis k = Int (-84.55) 'Neigiamas skaičius su INT funkcija MsgBox k End Sub

Kai paleidžiu šį kodą, jis suapvalino skaičių iki -85 .

3 pavyzdys - išskirkite datos dalį iš datos ir laiko

Nedaug kartų per savo karjerą susidūriau su scenarijumi, kai datą ir laiką išskiriu atskirai nuo datos ir laiko derinio.

Pvz., Peržiūrėkite toliau pateiktus datos ir laiko duomenis.

Kaip išskirti datos dalį ir laiką?

Pirmiausia turime ištraukti datos dalį. Tam pritaikykime INT funkciją. Žemiau pateiktas kodas ištrauks DATE dalį iš anksčiau nurodytų duomenų.

Kodas:

Int_pavyzdys2 () Dim k kaip sveikoji k = 2–12 ląstelių (k, 2). Vertė = Int (ląstelės (k, 1). Vertė) “Tai išskirs datą antrajame stulpelyje„ Ląstelės “(k, 3). Reikšmė = Ląstelės (k, 1). Vertė - Ląstelės (k, 2). Vertė 'Tai ištrauks laiką iki trečiojo stulpelio Kitas k End Sub

Paleiskite šį kodą. Galite gauti tokį rezultatą, kaip nurodyta toliau (jei netaikomas formatavimas).