VBA niz za integriranje - upotrijebite funkciju CINT za pretvorbu podataka

Excel VBA niz za integriranje

String i Integer su uobičajeni tipovi podataka, ali često kao dio naše analize podataka, možda ćemo htjeti pretvoriti varijablu vrste string podataka u cjelobrojni tip podataka, a to je moguće upotrebom funkcije "CINT" u VBA.

Sintaksa funkcije CINT

"CINT" je kategoriziran kao funkcija pretvorbe tipa podataka. Ova funkcija pretvara dani izraz u Integer tip podataka. Kad kažem "Izraz", to mora biti brojčana vrijednost koja se nalazi u rasponu vrste podataka vrste Integer u VBA, tj. Između -32768 i 32767.

Sada, pogledajte sintaksu funkcije CINT u VBA.

  • Izraz je vrijednost ili varijabla koja sadrži vrijednost koju treba pretvoriti u integrirani tip podataka.
Napomena 1: Taman kada proslijedite vrijednost izraza mora između -32768 do 32767. U suprotnom, to će dovesti do "Pogreška prekomjernog protoka", tj. Dodjeljivanje vrijednosti koja prelazi ograničenje vrste podataka. Napomena 2: Izraz mora biti brojčana vrijednost. Ako je izraz vrijednost niza ili vrijednost teksta, izazvat će "Pogreška vremena izvođenja 13: Upišite neusklađenost."

U ovom ćemo vam članku pokazati o pretvorbi vrste podataka iz cijelog broja iz niza u cijeli broj pomoću funkcije "CINT".

Primjeri funkcije CINT u VBA

Primjer # 1

Izvedimo prvi primjer pretvorbe jednog broja razlomka u cijeli broj podataka.

Kodirati:

Sub CINT_Example1 () Dim IntegerNumber As String Dim IntegerResult As Integer IntegerNumber = 2564.589 IntegerResult = CInt (IntegerNumber) MsgBox IntegerResult End Sub
  • U gornjem kodu za varijablu "IntegerNumber" dodijelio sam vrijednost kao "2564.589".
  • U sljedećem sam retku primijenio funkciju CINT. Tako će pretvoriti navedenu vrijednost u najbliži cijeli broj.

Dakle, dobili smo rezultat - 2565, a isporučeni broj je 2564.589. Kad je decimalna vrijednost veća od 0,5, funkcije CINT zaokružuju broj na sljedeći cijeli broj. Kada je decimalna vrijednost manja ili jednaka 0,5 CINT funkcije, zaokružuju se prema dolje na isti cijeli broj.

Za primjer pogledajte donji kod gdje je broj manji od 0,5

Kodirati:

Sub CINT_Example1 () Dim IntegerNumber As String Dim IntegerResult As Integer IntegerNumber = 2564 - 0,5 IntegerResult = CInt (IntegerNumber) MsgBox IntegerResult End Sub

Rezultat bi trebao biti 2564, a ne 2565.

Primjer # 2

Sada ću pokušati dodijeliti broj koji je veći od ograničenja vrste podataka Integer.

Kodirati:

Sub CINT_Example2 () Dim IntegerNumber As String Dim IntegerResult As Integer IntegerNumber = 51456.785 IntegerResult = CInt (IntegerNumber) MsgBox IntegerResult End Sub

Dodijelio sam broj kao "IntegerNumber = 51456.785", što je više od ograničenja ograničenja vrste podataka Integer. Ako pokušam pokrenuti kôd, u VBA će se pojaviti pogreška preljeva.

Kad god je navedeni broj veći od vrste podataka vrste Integer, prikazuje se jednostavan okvir s porukom "Broj je veći od ograničenja vrste podataka vrste Integer".

Kodirati:

Sub CINT_Example2 () Dim IntegerNumber As String Dim IntegerResult As Integer IntegerNumber = 51456.785 On Error GoTo Message: IntegerResult = CInt (IntegerNumber) Message: If Err.Number = 6, onda MsgBox IntegerNumber & "of the Number IntegerNumber &" of the Number IntegerNumber & "of the Number IntegerNumber &" of the Number IntegerNumber & "of the Number IntegerNumber &" of the Number Ingererumum & Kraj pod

Ovo će prikazati poruku kao u nastavku kad god je navedeni broj izvan raspona vrste podataka vrste Integer.

Primjer # 3

Sada ću pokušati dodijeliti vrijednost koja nije brojčana.

Sub CINT_Example2 () Priguši IntegerNumber kao niz Zatamni IntegerResult Kao Integer IntegerNumber = "Hello" IntegerResult = CInt (IntegerNumber) MsgBox IntegerResult End Sub

Dodijelio sam vrijednost kao "Hello" koja nije brojčana. To uzrokuje "Pogrešku neusklađenosti tipa".

Umjesto da prikazujemo pogrešku poput ove, stavimo jednostavni okvir s informativnim porukama ispred korisnika. U donjem kodu stavit će se okvir s porukom "Navedena vrijednost izraza nije numerička, pa se ne može pretvoriti".

Kodirati:

Sub CINT_Example2 () Dim IntegerNumber As String Dim IntegerResult As Integer IntegerNumber = "Hello" On Error GoTo Message: IntegerResult = CInt (IntegerNumber) Message: If Err.Number = 13 then MsgBox IntegerNumber & ": The Provided NumbersNumber &": The Provided Numereric & ": The Provided NumbersNumber &": The Provided NumbersNumber & ": The Provided NumbersNumer &": The Provided Numereric & ": The Provided NumbersNumer &": The Provided Numereric & ": The Provided Numereric &": The Provided Numericum & ": The Provided Numbericic &": The Provided Numbericic & , Dakle, ne može se pretvoriti "Kraj Sub

Ovo će prikazati okvir za poruke u nastavku.

Stvari koje treba zapamtiti

  • CINT pretvara vrijednost iz drugog tipa podataka u cijeli broj podataka.
  • Cijeli broj može sadržavati vrijednosti od -32768 do 32767. Sve iznad ovih brojeva uzrokovat će pogrešku prelijevanja.
  • Samo vrsta podataka niza sadrži numeričke podatke koji će se pretvoriti u cjelobrojni tip podataka.

Preporučeni članci

Ovo je bio vodič za VBA String to Integer. Ovdje ćemo razmotriti primjere niza do cijelog broja u programu Excel VBA pomoću funkcije CINT, zajedno s praktičnim primjerima i Excel predloškom koji se može preuzeti. Ispod je nekoliko korisnih članaka povezanih s VBA -

  • VBA podijeljeni niz u niz
  • VBA niz do danas
  • VBA usporedba nizova
  • VBA zamjenski niz

Zanimljivi članci...