Run time error 6 overflow vba excel - Любой драйвер для вашего ПК

Last updated on May 2, 2022

This article will explain the VBA Runtime error 6.

Run-time error 6 in VBA is the Overflow error. This means that a variable has been declared as one numeric data type, and then populated with a number that is outside the parameters of that data type.

Consider the following code:

Sub OverflowError()
 Dim i As Integer
 i = 600000
End Sub

We are declaring i as an Integer variable. An integer variable can hold the values of ‑32,768 to 32,768. We are trying to assign the value of 600,000, which is outside the allowed range and therefore the error will occur.

If we click on Debug when this error occurs, the error line will appear in yellow.

To solve this error, make sure you declare the variable with the correct numeric data types to hold the required data:

In this case use the Long Variable type.

Sub OverflowError_Corrected()
 Dim i As Long
 i = 600000
End Sub

We recommend always using the Long variable type instead of the Integer variable type. The only advantage of the Integer variable type is less memory is required. However, this is mostly irrelevant for coding running from VBA on modern computers.

Источник

Justshurik

0 / 0 / 0

Регистрация: 27.10.2013

Сообщений: 18

06.01.2014, 16:36. Показов 28365. Ответов 26

Метки нет (Все метки)

Помогите пожалуйста разобраться.
Все время возникает ошибка Runtime error ‘6’ Overflow в VBA

Visual Basic

Private Sub btCalc_Click()
    Dim T As Integer
    Dim I As Integer
    Dim S As Double
    Dim V As Integer
    T = Range("B2").Value - Range("B5").Value
    I = Range("B6")
    S = Range("B7")
    V = Range("D2").Value
    Dim d1 As Double
    Dim d2 As Double
    d1 = ("LN(V / I)" + S ^ 2 * T / 2) / (S * "SQRT(T)")
    d2 = d1 - (S * "SQRT(T)")
    Dim N1 As Double
    Dim N2 As Double
    N1 = "NORMDIST(d1, 0, 1, 1)"
    N2 = "NORMDIST(d2, 0, 1, 1)"
    Dim Opt As Double
    Opt = V * N1 - I * N2
End Sub

Заранее спасибо!

Programming

Эксперт

39485 / 9562 / 3019

Регистрация: 12.04.2006

Сообщений: 41,671

Блог

06.01.2014, 16:36

Ответы с готовыми решениями:

Ошибка Overflow (Error 6)
Public Sub Pr7()
m = Cells(1, 2): n = Cells(2, 2)
a = Cells(4, 1): b = Cells(4, 2): h = Cells(4, 3)
c = Cells(6, 1): d = Cells(6, 2):…

Ошибка runtime error 13 — type mismatch
Здравствуйте
Есть программа, которая переводит числа из двоичной сс в десятичную сс, она работает, но до определенного числа…

Ошибка Runtime error 1004 application-defined or object-defined error
Здравствуйте! Выдает ошибку Runtime error 1004 application-defined or object-defined error

Помогите, пожалуйста, разобраться.
Ниже…

6998 / 2896 / 555

Регистрация: 19.10.2012

Сообщений: 8,804

06.01.2014, 16:50

А у меня type mismatch
Что будем делать?

9908 / 3924 / 742

Регистрация: 11.10.2011

Сообщений: 5,904

06.01.2014, 17:00

Justshurik, во первых — никто не знает, что вы держите в ячейках «B2», «D2» и т.д.
Во вторых — непонятна цель программы
В третьих — есть подозрение, что здесь («LN(V / I)») и здесь («SQRT(T)») и здесь «NORMDIST(d1, 0, 1, 1)» то ли кавычки лишние, то ли функции слишком замысловаты (или я таких не знаю)

Hugo121

6998 / 2896 / 555

Регистрация: 19.10.2012

Сообщений: 8,804

06.01.2014, 17:07

Вот так нет ошибок:

Visual Basic

Private Sub btCalc_Click()
    Dim T As Integer
    Dim I As Integer
    Dim S As Double
    Dim V As Integer
    T = Range("B2").Value - Range("B5").Value
    I = Range("B6")
    S = Range("B7")
    V = Range("D2").Value
    Dim d1 As Double
    Dim d2 As Double
    d1 = (Log(V / I) + S ^ 2 * T / 2) / (S * Sqr(T))
    d2 = d1 - (S * Sqr(T))
    Dim N1 As Double
    Dim N2 As Double
    N1 = Application.NormDist(d1, 0, 1, 1)
    N2 = Application.NormDist(d2, 0, 1, 1)
    Dim Opt As Double
    Opt = V * N1 - I * N2
End Sub

Добавлено через 4 минуты
P.S. На моих данных

0 / 0 / 0

Регистрация: 27.10.2013

Сообщений: 18

06.01.2014, 17:07

[ТС]

Сообщение от Апострофф

Добавлено через 35 секунд
111

Спасибо за ответ!
Во всех ячейках находятся только численные значения. Типы данных Integer и Double(ячейка B7)
Цель программы — просто подсчитать по заданной формуле определенное число. Функции в кавычках — это функции, которые я взял из автоматически генерируемого макроса, при вычислении натурального логарифма,»LN()», квадратного корня «SQRT()» и нормированного распределения «NORMDIST()».
Вы уж извините мою неосведомленность в VBA, но начинать с чего-то необходимо.

Justshurik

0 / 0 / 0

Регистрация: 27.10.2013

Сообщений: 18

06.01.2014, 17:21

[ТС]

Сообщение от Hugo121

Вот так нет ошибок:

Visual Basic

Private Sub btCalc_Click()
    Dim T As Integer
    Dim I As Integer
    Dim S As Double
    Dim V As Integer
    T = Range("B2").Value - Range("B5").Value
    I = Range("B6")
    S = Range("B7")
    V = Range("D2").Value
    Dim d1 As Double
    Dim d2 As Double
    d1 = (Log(V / I) + S ^ 2 * T / 2) / (S * Sqr(T))
    d2 = d1 - (S * Sqr(T))
    Dim N1 As Double
    Dim N2 As Double
    N1 = Application.NormDist(d1, 0, 1, 1)
    N2 = Application.NormDist(d2, 0, 1, 1)
    Dim Opt As Double
    Opt = V * N1 - I * N2
End Sub

Добавлено через 4 минуты
P.S. На моих данных

Hugo121, спасибо Вам за ответ. Попробвал Ваш вариант — все равно не получается. Ошибка таже самая.
Буду еще пытаться. Если что, вот файл:
Моя первая модель опциона.xls

6998 / 2896 / 555

Регистрация: 19.10.2012

Сообщений: 8,804

06.01.2014, 18:12

Почитайте про integer!
Вообще в макросах смысла в нём нет, можно всюду писать Long. Оно и короче

0 / 0 / 0

Регистрация: 27.10.2013

Сообщений: 18

06.01.2014, 18:30

[ТС]

Сообщение от Hugo121

Почитайте про integer!
Вообще в макросах смысла в нём нет, можно всюду писать Long. Оно и короче

Спасибо Hugo121!
Я как раз этим и занимался ближайшее время. Программа заработала после того, как каждое выражение стал конвертировать в нужный мне формат.

Burnoutman

8 / 8 / 6

Регистрация: 05.04.2012

Сообщений: 178

12.09.2019, 18:10

Почему i стремиться к бесконечности,что приводит к ошибке Overflow? Ведь цикл должен быть ограничен размером массива jeu1,где всего-то примерно 26 ячеек.

Visual Basic

Sub MyProgramm()
 
Dim jeu1 As Variant, jeu2 As Variant, ITOGO() As Variant, i As Integer
i = 1
 
jeu1 = Application.Workbooks.Open("C:\1.xlsx", 0).Worksheets("Лист1").Range("G9:L21").Value
 
ActiveWorkbook.Close
 
 
jeu2 = Application.Workbooks.Open("C:\2.xlsx", 0).Worksheets("Лист1").Range("G9:L21").Value
ActiveWorkbook.Close
 
 
 
For Each j1 In jeu1
For Each j2 In jeu2
ReDim Preserve ITOGO(1 To i)
    ITOGO(i) = j1 + j2
    i = i + i
 
Next j2
Next j1
 
 
End Sub

Hugo121

6998 / 2896 / 555

Регистрация: 19.10.2012

Сообщений: 8,804

12.09.2019, 18:22

Внимательнее нужно быть!

Visual Basic

    i = i + i

когда i достигает 16384 — сумма уже в интегер не лезет!

8 / 8 / 6

Регистрация: 05.04.2012

Сообщений: 178

12.09.2019, 18:35

Сообщение от Hugo121

Внимательнее нужно быть!
Visual BasicВыделить код
1
* * i = i + i
когда i достигает 16384 — сумма уже в интегер не лезет!

Мда,я же сам полученное значение складываю с самим с собой.А как увеличивать,но только на 1? Аналог i++

Hugo121

6998 / 2896 / 555

Регистрация: 19.10.2012

Сообщений: 8,804

12.09.2019, 18:57

Сообщение от Burnoutman

как увеличивать,но только на 1

Visual Basic

i=i+1

так не пробовали?

8 / 8 / 6

Регистрация: 05.04.2012

Сообщений: 178

12.09.2019, 20:12

Сообщение от Hugo121

так не пробовали?

Я похоже упорот сегодня. Пишу i = i + i,а вижу i=i+1 и не понимаю,почему не работает.

Добавлено через 1 час 8 минут
Я запутался окончательно. For Each из диапазона ячеек Range(«G9:L21»),берёт значение только первой. Что не так?

6998 / 2896 / 555

Регистрация: 19.10.2012

Сообщений: 8,804

12.09.2019, 20:42

В коде Вы берёте не из диапазона, а уже из массива данных. Там нет «первой», там уже первое
Используйте окно Locals!

8 / 8 / 6

Регистрация: 05.04.2012

Сообщений: 178

12.09.2019, 21:00

Сообщение от Hugo121

И легче мне не стало
jeu1(1)-jeu1(1,1)-jeu1(1,2)

Это уже двумерный массив? Как из него тогда достать данные. foreach должен обращаться к каждому индексу и доставать одно значение,а он достаёт только значение индекса jeu1(1,1)

6998 / 2896 / 555

Регистрация: 19.10.2012

Сообщений: 8,804

12.09.2019, 21:07

For each должен пройти по всем — слева направо сверху вниз.
Но обычно используют цикл в цикле по индексам, так контроля больше.

8 / 8 / 6

Регистрация: 05.04.2012

Сообщений: 178

12.09.2019, 21:23

Сообщение от Hugo121

Но обычно используют цикл в цикле по индексам, так контроля больше.

Вот даже не представляют,что дальше делать.

6998 / 2896 / 555

Регистрация: 19.10.2012

Сообщений: 8,804

12.09.2019, 23:22

А я так вообще не представляю даже и зачем, а от этого сильно зависит что…

8 / 8 / 6

Регистрация: 05.04.2012

Сообщений: 178

12.09.2019, 23:45

Сообщение от Hugo121

А я так вообще не представляю даже и зачем, а от этого сильно зависит что…

Нужно сложить два диапазона и записать всё это в другой в другом файле. Я уже с этой проблемой пару недель сижу. Главное в книгах сложат две ячейки,ну и типо всё,а как сложить диапазон да ещё и из другого файла догадывайся сам.

Заблокирован

13.09.2019, 00:11

Burnoutman, массивы jeu1 и jeu2 двумерные и одинаковые по размерам. Каким должен быть массив ITOGO? Тоже двумерным? Или линейным? Проясните хотя бы это для начала…

Источник

Fuad1992

Пользователь

Сообщений: 77
Регистрация: 23.09.2013

05.06.2018 17:19:53

Доброго времени суток уважаемые форумчане.
Пожалуйста помогите с макросом. Выдает ошибку при делении на последний текстбокс, но при написании конкретного значения всё работает.
Однако нужно чтобы суммированные текстбоксы делились на один текстбокс как в этом коде.
Здесь делиться на текстбокс евро, однако есть идентичный текстбокс с долларом в значении (он сверху этого кода), который делится без проблем.
Ссылался на другой текстбокс с другим именем, но выходит тоже самое.

Run-time error «6» Overflow

Код
Me.DebitEur.value = (Val(Me.Deb1.value) + Val(Me.Deb2.value) + Val(Me.Deb3.value) + Val(Me.Deb4.value) + Val(Me.Deb5.value)) / Val(Me.CurrencyEur.value)

Спасибо

БМВ Модератор Сообщений: 24806 Регистрация: 28.12.2016 Excel 2013, 2016, 2021	Fuad1992, кто ж знает что у Вас там в текстбоксах за значения. Вы в отладчике то посмотрите. По вопросам из тем форума, личку не читаю.

Fuad1992

Пользователь

Сообщений: 77
Регистрация: 23.09.2013

Там только цифры (2.0132) Пишу другие числа, опять не работает. Так ругается именно на эту строку. Значения в них пустое когда мышкой на строку с ошибкой смотреть. Хотя во всех все заполнено. Да еще при умножении, сложении или вычитании все нормально работает) По разному пробовал писать, но не хочет делить что-то)

yozhik

Пользователь

Сообщений: 957
Регистрация: 01.01.1970

05.06.2018 18:25:07

Цитата
Fuad1992 написал: Me.CurrencyEur

а такой текстбокс точно есть?

Fuad1992 Пользователь Сообщений: 77 Регистрация: 23.09.2013	Конечно есть, пробовал на другие боксы тоже. Все получается, только что делить не хочет. Такой же код сверху есть, который делит на другой бокс, он работает, нормально все делит.

webley Пользователь Сообщений: 2176 Регистрация: 01.01.1970	Я думаю, что выскажу общее мнение — в данном случае без примера не обойтись

Fuad1992

Пользователь

Сообщений: 77
Регистрация: 23.09.2013

05.06.2018 18:43:01

Такое впечатление, что в целом коде он может делить только раз. А такого рода кода в целом Sub целых 3. Первый делит, на 2-ой и 3-й ругается. Вот целый код посмотрите. Думаю так станет понятно.

Первый просто суммирует, к нему притензий вообще нет)

Код

Sub DebitCurrencySum()
    Me.DebitAzn.value = Val(Me.Deb1.value) + Val(Me.Deb2.value) + Val(Me.Deb3.value) + Val(Me.Deb4.value) + Val(Me.Deb5.value)
    Me.DebitUsd.value = (Val(Me.Deb1.value) + Val(Me.Deb2.value) + Val(Me.Deb3.value) + Val(Me.Deb4.value) + Val(Me.Deb5.value)) / Val(Me.CurrencyUsd.value)
    Me.DebitEur.value = (Val(Me.Deb1.value) + Val(Me.Deb2.value) + Val(Me.Deb3.value) + Val(Me.Deb4.value) + Val(Me.Deb5.value)) / Val(Me.CurrencyEur.value)
    Me.DebitAed.value = (Val(Me.Deb1.value) + Val(Me.Deb2.value) + Val(Me.Deb3.value) + Val(Me.Deb4.value) + Val(Me.Deb5.value)) / Val(Me.CurrencyAed.value)
End Sub

Изменено: Fuad1992 — 05.06.2018 18:59:20
(Чтобы было понятно видно)

БМВ Модератор Сообщений: 24806 Регистрация: 28.12.2016 Excel 2013, 2016, 2021	webley, пример кода выше. Легче стало? 🙂 Fuad1992, бе примера файла в котором воспроизводится ошибка, сложно. По вопросам из тем форума, личку не читаю.

webley

Пользователь

Сообщений: 2176
Регистрация: 01.01.1970

05.06.2018 18:56:17

Цитата
БМВ написал: Легче стало? 🙂

нет думаю тут будет недостаточно даже скриншота формы

Fuad1992 Пользователь Сообщений: 77 Регистрация: 23.09.2013	Вот пожалуйста) не шокируйтесь от не правильности написания макросов) Я новичек) Толькобы эту ошибку исправить. Спасибо вам реально New Invoice кликните Изменено: Fuad1992 — 05.06.2018 19:02:19

Fuad1992

Пользователь

Сообщений: 77
Регистрация: 23.09.2013

Там ведётся конвертация валют, на верху есть выпадающий список который отображает все просуммировав в разных валютах, надо только выбрать валюту и он покажет.
Берется все из других ячеек (сбоку справа, их я скрою потом). А так все работает.

Nordheim

Пользователь

Сообщений: 3154
Регистрация: 18.04.2017

#12

05.06.2018 19:04:42

Fuad1992, Дело не в коде, а скорее всего в значении которое вбито в TextBox, на который делится.
Это

Код
Val(Me.CurrencyAed.value)

может быть 0, а на ноль как известно делить нельзя, поэтому и ошибка вылетает.

«Все гениальное просто, а все простое гениально!!!»

Hugo Пользователь Сообщений: 26532 Регистрация: 22.12.2012	А где вообще все эти CurrencyEur без значений?

vikttur

Пользователь

Сообщений: 47168
Регистрация: 15.09.2012

#14

05.06.2018 19:06:56

Код
х/Val(Me.CurrencyEur.value)

И что Вы хотите? CurrencyEur.value = «», Val(«»)=0, деление на ноль — ошибка

Fuad1992 Пользователь Сообщений: 77 Регистрация: 23.09.2013	Спасибо за отзыв. Всем спасибо. Нет там есть значение. Ну если допустим что нет значения, и там стоит 0, тогда почему в первом делении все ок?

Nordheim Пользователь Сообщений: 3154 Регистрация: 18.04.2017	У меня уже на стадии активации формы ошибка «Все гениальное просто, а все простое гениально!!!»

vikttur Пользователь Сообщений: 47168 Регистрация: 15.09.2012	Чтобы не мешали открыть, я отключил две строки, вызывающие ошибку при активации. CurrencyUsd.value=1.7050 Там нет деления на ноль. Доллар, видимо, в большем почете, чем евро

Hugo Пользователь Сообщений: 26532 Регистрация: 22.12.2012	Нашёл, забил в свойствах по единице — открылось без ошибок. Откуда значение в долларах — не копал. Но после открытия вместо единиц 2.0120 и 0.4900 Изменено: Hugo — 05.06.2018 19:21:11

Fuad1992

Пользователь

Сообщений: 77
Регистрация: 23.09.2013

#19

05.06.2018 19:14:37

Цитата
vikttur написал: CurrencyEur.value = «»

Уважаемый Модератор. Проблема в том, что значение там есть.
CurrencyUsd и CurrencyEur и CurrencyAed можете найти во Frame Exchange.
Проверьте сделав зеленым строки ошибочных записей и увидите что значения стоят.
А так на 0 делить нельзя знаю)

Fuad1992

Пользователь

Сообщений: 77
Регистрация: 23.09.2013

#20

05.06.2018 19:15:20

Цитата
vikttur написал: Там нет деления на ноль. Доллар, видимо, в большем почете, чем евро

)))

Nordheim Пользователь Сообщений: 3154 Регистрация: 18.04.2017	В коде черт ногу сломает, посмотрите в сторону модулей класса, может и делиться начнет нормально «Все гениальное просто, а все простое гениально!!!»

Hugo Пользователь Сообщений: 26532 Регистрация: 22.12.2012

Fuad1992 Пользователь Сообщений: 77 Регистрация: 23.09.2013	Я а VBA не полный 0 конечно, но чуть чуть есть) Мне кажется только 1 раз делить можно,, такое впечатление создалось. Может ошибаюсь,,

vikttur Пользователь Сообщений: 47168 Регистрация: 15.09.2012	1. Сообщение не от модератора, а от посетителя форума. 2. То, что где-то там есть. не видел, я код смотрю. Поместите указатель мыши над записанным в строке контролом — Вам редактор покажет значение. Там «» — пусто.

webley Пользователь Сообщений: 2176 Регистрация: 01.01.1970	У меня тоже получилось вызвать эту ошибку только разделив на ноль. А так работает…

Fuad1992

Пользователь

Сообщений: 77
Регистрация: 23.09.2013

#26

05.06.2018 19:20:31

Цитата
Hugo написал: P.S. Копнул — так сами и накосячили, вот что там в коде:

Нет нет, это не ошибка зеленый появился методом проб. А так там валюты все разные.
В текстбоксах должно же быть значение. Вот эти значения по умолчанию там стоят, чтобы на 0 не делить

Изменено: Fuad1992 — 05.06.2018 19:22:19

Hugo Пользователь Сообщений: 26532 Регистрация: 22.12.2012

Fuad1992

Пользователь

Сообщений: 77
Регистрация: 23.09.2013

#28

05.06.2018 19:24:00

Цитата
Nordheim написал: В коде черт ногу сломает

Согласен) сам путаюсь иногда)

vikttur

Пользователь

Сообщений: 47168
Регистрация: 15.09.2012

#29

05.06.2018 19:24:54

Вот, в коде инициализации:

Код
CurrencyUsd.value = "1.7050" 'CurrencyEur.value = "1.7050" CurrencyEur.value = "2.0120"

Евро Вы таки обидели.

Hugo Пользователь Сообщений: 26532 Регистрация: 22.12.2012	#30 05.06.2018 19:26:42 Виктор, я это уже проходил. Ты тоже без очков смотришь? Думаю самое простое — сделать как я в начале — прописать в свойствах единицу, чтоб не ругалось. Если конечно это на другое не влияет, вроде нет. Или нужно на время инициализации отключать события этих элементов — т.к. доллары начинают отрабатывать , а евро ещё пустые… P.S. добавил общую булеву переменную в модуль — помогает. Изменено: Hugo — 05.06.2018 19:34:54

Источник

Помогите пожалуйста разобраться. Все время возникает ошибка Runtime error ‘6’ Overflow в VBA.
Ошибка возникает в этой строке «If WBook.Cells(q, 7) = ArrayPhoneAll(i) Then»
В столбце находятся телефонные номера или email, если поменять номер столбца, никакой ошибки не возникает.

Sub RegisterComplaintsPhone()

Dim n As Integer
Dim q As Long

n = 1


    
Set WBook = Workbooks("ДС_Реестр жалоб ГЛ и ЧАТ 09.07.2021222.xlsx").Worksheets("ДС_ГЛ, ЧАТ")

ReDim ArrayPhone(n) As Variant       
ReDim ArraySuccess(n) As Variant     
ReDim ArrayResult(n) As Variant      
ReDim ArrayPhone(n) As Variant       
ReDim ArrayFIO(n) As Variant         
ReDim ArrayDS(n) As Variant          
ReDim ArrayEmployee(n) As Variant    
ReDim ArrayEmployeeAll(n) As Variant 
ReDim ArrayDSAll(n) As Variant       
ReDim ArrayPhoneAll(n) As Variant    
ReDim ArrayResultAll(n) As Variant

n = 1
For w = 2 To 300
    If Worksheets("ДС").Cells(w, 2) <> "" Then
        ArrayPhoneAll(n) = Worksheets("ДС").Cells(w, 14).Value
        ArrayEmployeeAll(n) = Worksheets("ДС").Cells(w, 3).Value
        ArrayResultAll(n) = Worksheets("ДС").Cells(w, 2).Value
        Worksheets("ДС").Cells(w, 19) = ArrayPhoneAll(n)
        Worksheets("ДС").Cells(w, 20) = ArrayEmployeeAll(n)
        Worksheets("ДС").Cells(w, 21) = ArrayResultAll(n)
        n = n + 1
        'ReDim Preserve ArrayDSAll(n)
        ReDim Preserve ArrayPhoneAll(n)
        ReDim Preserve ArrayEmployeeAll(n)
        ReDim Preserve ArrayResultAll(n)
    End If
Next

n = 1 

MsgBox ArrayPhoneAll(1)
For i = 1 To UBound(ArrayPhoneAll) - 1
    For q = 2 To 20000
        If WBook.Cells(q, 7) = ArrayPhoneAll(i) Then
            WBook.Cells(q, 31) = ArrayPhoneAll(i)
        End If
    Next
Next
End Sub

Источник