Celé číslo je datový typ ve VBA, který je dán jakékoli proměnné, která obsahuje celočíselné hodnoty, omezení nebo závorka pro počet celočíselných proměnných, které mohou obsahovat, je ve VBA podobná jako u jiných jazyků, jakákoli proměnná je definována jako celé číslo proměnná pomocí příkazu DIM nebo klíčového slova ve VBA.
Celé číslo aplikace Excel VBA
Datové typy jsou tak důležité v jakémkoli kódovacím jazyce, protože za deklarací proměnné by měl následovat datový typ přiřazený těmto proměnným. Máme několik datových typů, se kterými pracujeme, a každý datový typ má své vlastní výhody a nevýhody s tím spojené. Když deklarujeme proměnné, je důležité znát podrobnosti o konkrétním datovém typu. Toto je článek věnovaný datovému typu „Integer“ ve VBA. Ukážeme vám kompletní obrázek datového typu „Celé číslo“.
Co je datový typ Integer?
Celá čísla jsou celá čísla, která mohou být kladná, záporná a nulová, ale ne zlomková. V kontextu VBA je „Integer“ datový typ, který přiřazujeme proměnným. Jedná se o číselný datový typ, který může obsahovat celá čísla bez desetinných míst. Celé číslo datového typu 2 bajty úložiště, což je polovina datového typu VBA LONG, tj. 4 bajty.
Příklady datového typu Excel VBA Integer
Níže jsou uvedeny příklady datového typu VBA Integer Data.
Příklad č. 1
Když deklarujeme proměnnou, je nutné jí přiřadit datový typ a celé číslo jeden z nich, které běžně používají všichni uživatelé na základě požadavků.
Jak jsem řekl, celé číslo může obsahovat pouze celá čísla, ne žádná zlomková čísla. Podle níže uvedených kroků zobrazíte příklad celočíselného datového typu VBA.
Krok 1: Deklarujte proměnnou jako celé číslo.
Kód:
Sub Integer_Example () Dim k As Integer End Sub
Krok 2: Přiřaďte hodnotu 500 proměnné „k“.
Kód:
Sub Integer_Example1 () Dim k As Integer k = 500 End Sub
Krok 3: Zobrazit hodnotu v okně se zprávou VBA.
Kód:
Sub Integer_Example1 () Dim k As Integer k = 500 MsgBox k End Sub
Když spustíme kód pomocí klávesy F5 nebo ručně, můžeme v okně se zprávou vidět 500.
Příklad č. 2
Nyní proměnné „k“ přiřadím hodnotu jako -500.
Kód:
Sub Integer_Example2 () Dim k As Integer k = -500 MsgBox k End Sub
Spusťte tento kód ručně nebo stiskněte klávesu F5. Potom také zobrazí hodnotu -500 v okně se zprávou.
Příklad č. 3
Jak jsem řekl VBA, datový typ Integer může obsahovat pouze celá čísla, nikoli zlomková čísla jako 25.655 nebo 47.145.
Pokusím se však přiřadit číslo zlomku datovému typu VBA Integer. Podívejte se například na níže uvedený kód.
Kód:
Sub Integer_Example3 () Dim k As Integer k = 85,456 MsgBox k End Sub
Přiřadil jsem 85,456 k proměnné „k“. Spustím tento kód VBA, abych zjistil, jaký je výsledek.
- Výsledek vrátil jako 85, i když jsem přidělil hodnotu čísla zlomku. Je to proto, že VBA zaokrouhluje čísla zlomků na nejbližší celé číslo.
- Všechna čísla zlomků, která jsou menší než 0,5, se zaokrouhlí dolů na nejbližší celé číslo. Například 2,456 = 2, 45,475 = 45.
- Všechna čísla zlomků, která jsou větší než 0,5, se zaokrouhlí nahoru na nejbližší celé číslo. Například 10,56 = 11, 14,779 = 15.
Chcete-li se znovu podívat na celé číslo zaokrouhlení, nechte hodnotu „k“ na 85,58.
Kód:
Sub Integer_Example3 () Dim k As Integer k = 85,58 MsgBox k End Sub
Když spustím tento kód pomocí klávesy F5 nebo ručně, vrátí se 86, protože cokoli více než 0,5 bude zaokrouhleno nahoru na další celé číslo.
Omezení celočíselného datového typu v aplikaci Excel VBA
Chyba přetečení: Datový typ Integer by měl fungovat dobře, pokud je přiřazená hodnota mezi -32768 až 32767. V okamžiku, kdy překročí limit na obou stranách, způsobí vám chybu.
Podívejte se například na níže uvedený kód.
Kód:
Sub Integer_Example4 () Dim k As Integer k = 40000 MsgBox k End Sub
Přiřadil jsem hodnotu 40000 proměnné „k“.
Jelikož mám úplnou znalost Integer Data Type pro jistotu, vím, že to nefunguje, protože celočíselný datový typ nemůže držet hodnotu nic víc než 32767.
Spustíme kód ručně nebo pomocí klávesy F5 a uvidíme, co se stane.
Jejda !!!
Dostal jsem chybu jako „Přetečení“, protože datový typ Integer nemůže pojmout nic víc než 32767 pro kladná čísla a -32768 pro záporná čísla.
Chyba neshody typu: Celočíselná data mohou obsahovat pouze číselné hodnoty mezi -32768 až 32767. Předpokládejme, že jakékoli číslo, které je přiřazeno více než tato čísla, zobrazí chybu Přetečení.
Nyní se pokusím přiřadit textové nebo řetězcové hodnoty. V níže uvedeném příkladu kódu jsem přiřadil hodnotu jako „Hello“.
Kód:
Sub Integer_Example4 () Dim k As Integer k = "Hello" MsgBox k End Sub
Spustím tento kód pomocí možnosti spuštění nebo ručně a uvidím, co se stane.
Zobrazuje chybu jako „Neshoda typu“, protože proměnné „celočíselný datový typ“ nemůžeme přiřadit textovou hodnotu.
