неожиданным образом на компьютере моих сотрудников возникла ошибка отсутствия библиотеки. При том что раньше данный кусок кода, на котором возникает ошибка, в другой, более ранней версии макроса - все работало
--------------------------- Microsoft Visual Basic for Applications --------------------------- Compile error:
Can't find project or library --------------------------- ОК Справка
Хотелось бы понять с чем это может быть связанно?
Запинается вот тут:
[vba]
Код
If Not Intersect(Target, Cells(16, 238)) Is Nothing Then Cancel = True ActiveSheet.Unprotect Dim Dstr1, Dstr1i, Dstr2 As String i = 0 For icol = 22 To NumCol - 2 Dstr1i = Cells(15, icol).Value ' Берем то что нужно вывести в итог Dstr2 = Cells(16, 237).Value ' берем текст из "вывести итоговые" Dstr1 = Replace(Dstr1i, Chr(10), " ") ' убираем/заменяем перенос строки в ячейке <----- ТУТ ВЫДАЕТ ОШИБКУ на Chr(10) ОБ ОТСУТСТВИИ БИБЛИОТЕКИ. If Dstr1 = Dstr2 Then ' ищем нужную колонку по всему плану. 'MsgBox Dstr1 & " " & Dstr2 For irow = 17 To NumRow - 1 If i < 12 Then Cells(irow, 224 + i).Value = Cells(irow, icol).Value Else Exit For End If Next i = i + 1 End If Next End If
[/vba]
неожиданным образом на компьютере моих сотрудников возникла ошибка отсутствия библиотеки. При том что раньше данный кусок кода, на котором возникает ошибка, в другой, более ранней версии макроса - все работало
--------------------------- Microsoft Visual Basic for Applications --------------------------- Compile error:
Can't find project or library --------------------------- ОК Справка
Хотелось бы понять с чем это может быть связанно?
Запинается вот тут:
[vba]
Код
If Not Intersect(Target, Cells(16, 238)) Is Nothing Then Cancel = True ActiveSheet.Unprotect Dim Dstr1, Dstr1i, Dstr2 As String i = 0 For icol = 22 To NumCol - 2 Dstr1i = Cells(15, icol).Value ' Берем то что нужно вывести в итог Dstr2 = Cells(16, 237).Value ' берем текст из "вывести итоговые" Dstr1 = Replace(Dstr1i, Chr(10), " ") ' убираем/заменяем перенос строки в ячейке <----- ТУТ ВЫДАЕТ ОШИБКУ на Chr(10) ОБ ОТСУТСТВИИ БИБЛИОТЕКИ. If Dstr1 = Dstr2 Then ' ищем нужную колонку по всему плану. 'MsgBox Dstr1 & " " & Dstr2 For irow = 17 To NumRow - 1 If i < 12 Then Cells(irow, 224 + i).Value = Cells(irow, icol).Value Else Exit For End If Next i = i + 1 End If Next End If
скорее всего, у вас Chr написано с русской С Не, если раньше этот код работал (и сейчас работает, не не на всех машинах), то Chr написано правильно... Посмотрите в Tools -> References среди отмеченных галочкой есть пункт, начинающийся с "MISSING:"? Напишите его наименование. [p.s.]или напишите вместо Chr(10) константу vbLf
скорее всего, у вас Chr написано с русской С Не, если раньше этот код работал (и сейчас работает, не не на всех машинах), то Chr написано правильно... Посмотрите в Tools -> References среди отмеченных галочкой есть пункт, начинающийся с "MISSING:"? Напишите его наименование. [p.s.]или напишите вместо Chr(10) константу vbLfKSV
Отключение библиотеки MISSING: - помогло. У меня теперь вот какой вопрос. А откуда эта библиотека взялась и почему ее нету, на моей машине, а на машине моих коллег она появилась?
и есть ли вариант сделать так, что бы на других машина, она не включалась?
Отключение библиотеки MISSING: - помогло. У меня теперь вот какой вопрос. А откуда эта библиотека взялась и почему ее нету, на моей машине, а на машине моих коллег она появилась?
и есть ли вариант сделать так, что бы на других машина, она не включалась?lopuxi
О_о ...и так можно было?
Сообщение отредактировал lopuxi - Вторник, 08.09.2015, 14:14