Ошибка: "Type mismatch"

@cryptohack734 · Регистрация: 25.03.2015

Author24 — интернет-сервис помощи студентам

При запуске скрипта, возникает ошибка: "Type mismatch".
Код цикла:

Visual Basic

For Z = sm + 3 To sm + 17 
           s = 0 
             For k = sp To sp1 
             Sheets("Акт-приема").Cells(20, 22) = k 
             
           s = s + Sheets("Списание материалов").Cells(k, Z)
             Next k
   If s <> 0 Then Sheets("Аки-приема").Cells(20, Z - 1 - sm) = s 
       Next Z

Ругается на эту строку:

Visual Basic

1	s = s + Sheets("Списание материалов").Cells(k, Z)

причем, тогда, когда значение k = 1810, а z = 7.

@~~Апострофф~~ · 15.10.2015, 13:48

А что в ячейке Sheets("Списание материалов").Cells(1810, 7), если не секрет?

@cryptohack734 · 15.10.2015, 14:08 **[ТС]**

При выполнении данного цикла, возникает ошибка.
Код цикла:

Visual Basic

For Z = sm + 3 To sm + 17 
           s = 0 
             For k = sp To sp1 
             Sheets("Акт-приёма-передачи").Cells(20, 22) = k 
             
           s = s + Sheets("Список материалов").Cells(k, Z)
             Next k
   If s <> 0 Then Sheets("Акт-приёма-передачи").Cells(20, Z - 1 - sm) = s 
       Next Z

В этом месте ошибка:

Visual Basic

1	s = s + Sheets("Список материалов").Cells(k, Z)

Причем вылетает, только когда k = 1810, Z = 7

shanemac51 · 15.10.2015, 14:22

k = 1810, Z = 7

видимо там
--или пусто
--или буквы
--или число, сохраненное как текст(кавычка в начале или пробел в середине или .....)

@The_Prist · 15.10.2015, 14:37

В Cells(1810, 7) не число и не пустая ячейка. Там 100% текст(возможно даже нулевой длины, который может быть возвращен в ячейку после формул типа =ЕСЛИ(А1=10;1;"")).
Делайте проверку перед сложением:

Visual Basic

1
2
3

If isnumeric(Sheets("Список материалов").Cells(k, Z).Value) then
    s = s + Sheets("Список материалов").Cells(k, Z).Value
end if

@The_Prist · 15.10.2015, 14:38

А у меня другой вопрос: нафиг две одинаковых темы? https://www.cyberforum.ru/vba/thread1552925.html

SoftIce · 15.10.2015, 14:48

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

две одинаковых

Какие же они одинаковые?
В той теме у него лист называется "Акт-приёма-передачи" а в этой "Аки-приема"

@The_Prist · 15.10.2015, 14:58

Ну да, косяк. Не заметил сразу

@~~Апострофф~~ Заблокирован
	15.10.2015, 13:48	2
	А что в ячейке Sheets("Списание материалов").Cells(1810, 7), если не секрет? 0

shanemac51 Модератор 11960 / 4828 / 779 Регистрация: 07.08.2010 Сообщений: 14,138 Записей в блоге: 4
	15.10.2015, 14:22	4
	k = 1810, Z = 7 видимо там --или пусто --или буквы --или число, сохраненное как текст(кавычка в начале или пробел в середине или .....) 0

@The_Prist 1563 / 364 / 100 Регистрация: 13.11.2008 Сообщений: 754
	15.10.2015, 14:38	6
	А у меня другой вопрос: нафиг две одинаковых темы? https://www.cyberforum.ru/vba/thread1552925.html 0

SoftIce es geht mir gut 11270 / 4752 / 1183 Регистрация: 27.07.2011 Сообщений: 11,439
	15.10.2015, 14:48	7
	Сообщение от The_Prist две одинаковых Какие же они одинаковые? В той теме у него лист называется "Акт-приёма-передачи" а в этой "Аки-приема" 0

@The_Prist 1563 / 364 / 100 Регистрация: 13.11.2008 Сообщений: 754
	15.10.2015, 14:58	8
	Ну да, косяк. Не заметил сразу 0