Указать на ошибку

[valerij]

Не могу найти ошибку[Type mismatch (Error 13)], прикрепить файл с "км." кодом, нет смысла, а мона вписать в код что то, что бы указал и курсор поставил на ошибку?

[EducatedFool]

а мона вписать в код что то, что бы указал и курсор поставил на ошибку?

А разве VBE не останавливает выполнение кода и не указывает на строку, где произошла ошибка?

В некоторых случаях после нажатия кнопки Debug в сообщении об ошибке надо ещё несколько раз нажать F8, чтобы VBE указал точное местонахождение ошибки (например, при ошибках в модулях класса)

А что вообще происходит при нажатии на кнопку Debug?

Можно просто отключить все обработчики ошибок в коде...

прикрепить файл с "км." кодом, нет смысла

почему нет смысла? так будет проще, по моему

[valerij]

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

А разве VBE не останавливает выполнение кода и не указывает на строку, где произошла ошибка?

В некоторых случаях после нажатия кнопки Debug в сообщении об ошибке надо ещё несколько раз нажать F8, чтобы VBE указал точное местонахождение ошибки (например, при ошибках в модулях класса)

А что вообще происходит при нажатии на кнопку Debug?

Можно просто отключить все обработчики ошибок в коде...


почему нет смысла? так будет проще, по моему

Указывает на эту строку
iSS = iSS + Cells(i + 13, 5) * Cells(i + 13, 4)
что ни о чем не говорит, эта строка используется для всех листов и везде работает, попробую скомпоновать Книгу, что бы выложить, есть копия этой же книги, там все ОК!

[EducatedFool]

В одной из ячеек (Cells(i + 13, 5) или Cells(i + 13, 4))
у Вас находится значение, не являющееся числом (например, текст)

Ошибка возникает при попытке умножить текстовое значение.

Попробуйте такой код:

iSS = iSS + val(Cells(i + 13, 5).Value) * val(Cells(i + 13, 4).Value)

[valerij]

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

Попробуйте такой код:

iSS = iSS + val(Cells(i + 13, 5).Value) * val(Cells(i + 13, 4).Value)

Все точно, ошибка исчезла.
С П А С И Б О.

З. Ы.
А как объяснить это val(Cells(, по русски?

[EducatedFool]

Cells(i + 13, 5) - ссылка на ячейку

Cells(i + 13, 5) и Cells(i + 13, 5).Value в данном случае - одно и то же - значение ячейки ( .Value - свойство по умолчанию для ячейки)

функция Val преобразует текстовую строку к числовому значению.

например,
msgbox "123a"*2 вызовет ошибку [Type mismatch (Error 13)]
msgbox val("123a")*2 выдаст результат 246
т.к. функция val строку "123a" преобразует в число 123

А как объяснить это val(Cells(, по русски?

число, содержащееся в ячейке

PS: если в ячейке только текст (например, "фываыфв"), функция val("фываыфв") возвратит ноль

[valerij]

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

функция Val преобразует текстовую строку к числовому значению.

Еще раз С П А С И Б О, все понял.
Все работает, я эту то же переделал
Sum = Sum + Cells(i, n)
Sum = Sum + Val(Cells(i, n).Value)

[valerij]

EducatedFool
Не совсем корректно считает, т. е. так, обрезает десятичные значение в 5 колонке:
iSS = iSS + val(Cells(i + 13, 5).Value) * val(Cells(i + 13, 4).Value)
а вот так, все ОК:
iSS = iSS + Cells(i + 13, 5) * val(Cells(i + 13, 4).Value)

Но все же удивляет ошибка у меня, вот прикрепил, урезал.
Вводим любые числа в колонку D, а вот на листе УТ-1, если ввести данные в 23.10.08, скажем в яч. D1156 или в любую другую в диапазоне D1125:D1162 выскочит ошибка, во всех других диапазонах в этом листе, ошибки нет, на др. листе, ЛЕН, вообще ошибки, НЕТ!

[EducatedFool]

В момент, когда вылетает ошибка, подведите указатель мыши к переменным в коде, и увидите всплывающую подсказку типа

Cells(i + 13, 4)=" " (15 пробелов)

при этом в момент появления ошибки i=1155

Следовательно, в ячейке d1168 у Вас находятся несколько пробелов (непонятно только, зачем), из-за этого и вылетает ошибка...
Ну не умеет VBA умножать числа на пробелы...

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

Возможно, у Вас ошибка в определении диапазона ячеек для суммирования:

либо в строке For i = dat * 51 + 3 To dat * 51 + 40
либо в Cells(i + 13, 5) надо заменить +13 на что-то поменьше

Судя по коду, у Вас в сумму попадают значения ячеек d1163-d1168, чего вроде бы происходить не должно


Кстати, в Вашем случае большую часть вычислений было бы удобнее и проще сделать при помощи формул (не нужно отлавливать события изменения отдельных ячеек и т.д.), да и работать, пожалуй, будет немного быстрее.

[valerij]

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

Следовательно, в ячейке d1168 у Вас находятся несколько пробелов (непонятно только, зачем), из-за этого и вылетает ошибка....

Вот теперь и я увидел, они, пробелы, конечно не нужны, это мой бух. чудит.

Кстати, в Вашем случае большую часть вычислений было бы удобнее и проще сделать при помощи формул (не нужно отлавливать события изменения отдельных ячеек и т.д.), да и работать, пожалуй, будет немного быстрее.

В начале у меня все было через формулы, тормоза страшенные, это тут два листа, в ориг.: 16 Листов, 7 модулей, одна форма и это не предел.

EducatedFool
А по поводу
iSS = iSS + Cells(i + 13, 5) * val(Cells(i + 13, 4).Value)
я правильно сделал?

EducatedFool
С П А С И Б О