Курьезы с Error: Overflow

Запускаем следующую процедуру:

Sub test1()
    Debug.Print 1048576 * 16384
End Sub

Получаем следующий результат:

#VBA #ExcelVBA #Error #Overflow

И еще один пример с Error 6 Overflow:

Debug.Print ActiveSheet.Cells.Count ' Error: Overflow
Debug.Print ActiveSheet.Cells.CountLarge ' 17179869184

#VBA #ExcelVBA #Error #Overflow #Count #CountLarge