Обнаружил странность, которую не могу объяснить
Переменная типа Byte. В таком варианте - ошибка Owerflow. Проверил, листов точно не больше 255
При типе переменной Integer, Long переполнения нет.
Код |
---|
Sub DelSheets() 'Dim i As Long Dim i As Byte With ThisWorkbook For i = .Sheets.Count To 2 Step -1 .Sheets(i).Delete Next i End With End Sub |
Переменная типа Byte. В таком варианте - ошибка Owerflow. Проверил, листов точно не больше 255
При типе переменной Integer, Long переполнения нет.