Проблема с макросом - Microsoft Office Excel

Promod · 19.10.2015, 16:30

Есть макрос который выгружает в csv

Выдает ошибку Run-time error '13' Type mismatch
и выделяет строчку, которая красным выделена.

Код:

If Prod_Code1(Ii1#) = 0 And Prod_Code2(Ii1#) <> "empty" And Prod_Code3(Ii1#) <> "empty" Then
        Print #Jk, "001" & ";" & "5200" & ";" & Prod_Code(Ii1#) & ";" & FU(Ii1#) & ";" & PV(Ii1#) & ";" & NFA(Ii1#) & ";" & RFA(Ii1#) & ";" & "" & ";" & "5201" & ";" & "06" & ";" & weeks(Ii1#) & ";" & months(Ii1#) & ";" & "PC" & ";" & "0" & ";" & "0" & ";" & "0" & ";" & "0" & ";" & "0"; ";" & Round(Prod_Quantity(Ii1#), 0) & ";" & "0" & ";" & "0" & ";" & "0" & ";" & "0" & ";" & "0" & ";" & "0" & ";" & "0" & ";" & "0" & ";" & "0" & ";" & "0"
        If Prod_Code2(Ii1#) > 0 And Prod_Code2(Ii1#) <> "empty" Then

Помогите, уже весь мозг съел этот макрос=(

Казанский · 19.10.2015, 16:43

У меня отработало без ошибки.
Единственная вещь, которая может вызвать ошибку в этой строке - нечисловое значение в элементе массива Prod_Quantity(Ii1#), ошибку вызывает попытка округлить не-число Round(Prod_Quantity(Ii1#), 0)

Promod · 19.10.2015, 17:10

Забыл поменять макрос в тестовом файле. Щас приложу с исправленным.
Проблема в том, что ошибку выдает только на оригинальном файле с формулами и связями, который на форум не влезает. в тестовых файлах все скопировано и вставлено как значения на чистом листе, и ошибок не вылезает=(

Promod · 19.10.2015, 17:54

Вопрос закрыт, вынес округление в цикл, все заработало. Спасибо!

19.10.2015, 16:43	#2
Казанский Старожил Регистрация: 31.12.2010 Сообщений: 2,133	У меня отработало без ошибки. Единственная вещь, которая может вызвать ошибку в этой строке - нечисловое значение в элементе массива Prod_Quantity(Ii1#), ошибку вызывает попытка округлить не-число Round(Prod_Quantity(Ii1#), 0) exceleved@yandex.ru Яндекс.Деньги: 410011500007619

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
проблема с макросом	m_kostik	Общие вопросы C/C++	1	09.02.2013 18:49
Проблема с макросом	kostmos	Microsoft Office Excel	4	23.10.2012 15:24
Проблема с макросом	Artem_85	Microsoft Office Excel	5	27.02.2012 11:59
Проблема с макросом Excel	Excelik	Помощь студентам	0	02.11.2011 11:55
Проблема с макросом.	kolob	Microsoft Office Excel	3	22.12.2010 11:13

19.10.2015, 17:54	#4
Promod Регистрация: 23.01.2009 Сообщений: 3	Вопрос закрыт, вынес округление в цикл, все заработало. Спасибо!