Chyba Overflow ve VBA

Chyba Overflow (Runtime-error 6) se ve VBA objevuje v případě, že zadaná hodnota přeteče definovaný rozsah. Jsou ale chvíle, kdy byste ji možná nečekali.

Chyba Overflow

Chyba Overflow

Upřímně řečeno, když jsem se s tím po letech zkušeností potkal, zíral jsem na monitor s otevřenou pusou. Situaci bych chápal, pokud by proměnná Cislo byla explicitně uvedena jako typ Integer (ve VBA rozsah -32 768 až 32768), tj. Dim Cislo As Integer. Výsledek součinu (40 000) rozsah přetéká a chyba je na světě. Nicméně tady by mělo fungovat, že výchozí je typ Variant a podtyp si program určí sám (Long, –2 147 483 648 až 2 147 486 647). Není tomu tak. Fajn, říkám si, deklarace by se měly uvádět, ostatně učíš to tak, proto v dalším kroku definuji striktně proměnnou Cislo jako Long (Dim Cislo As Long). A opět ta samá chyba. Začínal jsem se vztekat…

Chování je zdokumentované na stránce Overflow Error Running Procedure with Math Calculation. Ne nadarmo se říká, že chyby v softwaru označuje Microsoft jako funkčnost. Popis a řešení uvádím po svém v následující proceduře.

Sub ChybaOverflow()

    'https://support.microsoft.com/en-us/kb/125900
   
    'deklarace nehrají roli
   
    'neprojde
    'násobení dvou konstant typu Integer
    'probíhá v rámci rozsahu Integer
    'ale výsledek tento rozsah přetéká
    'Cislo = 200 * 200

    'projde
    'násobení konstant typu Long a Integer
    'probíhá v rámci většího z rozsahů (Long)
    'a výsledek rozsah Long nepřetéká
    Cislo = 200000 * 200
   
    'ošetření chyby konverzní funkcí
    'konverzní funkce alespoň u jednoho ze členů
    Cislo = CLng(200) * CLng(200)
   
    'ošetření chyby typovou deklarací
    'Long ... znak &
    'uvedena alespoň u jednoho ze členů
    Cislo = 200& * 200&

End Sub

S kyselým výrazem ve tváři uvádím i následující bláznivou proceduru.

Sub TakovaBlaznivaProcedura()

    Const clngCislo1 As Long = 200
    Const clngCislo2 As Long = 200

    Dim Cislo As Long

    Cislo = clngCislo1 * clngCislo2

End Sub

Poznámka
Příručka programátora říká, že číselným konstantám, ale i proměnným se snažíme přidělit přiměřený datový typ. Tím nejčastějším je zmíněný Integer. Jeho rozsah (pod VBA) už ovšem někdy přestává stačit, a jak podotkl kolega Martin Král, novodobé systémy Windows už mu ani nejsou nakloněny. Proto i já při výuce VBA zlehka směřuji uživatele k typu Long, byť se pro řadu běžných úloh a čísel může zdát megalomanský a zbytečně blokující paměť.