Добрый день подскажите пожалуйста в чем может быть проблема. В цикле пытаюсь скопировать ячейки с одного листа на другой в том же документе, ошибки не выдает, но не работает.
приведу только кусок кода в котором возникает проблема Делала проверки, до последнего if все вроде правильно работает.
Code
'param константа 'mass_price(param) массив
While Sheets("эталон").Cells(i, 1).Value <> "" For j = 2 To param + 1 k = 0 pust = 0 For Each Item In mass_price If Item <> "" Then If Sheets("эталон").Cells(i, j).Value = "" Then pust = pust + 1 Else If Item = Sheets("эталон").Cells(i, j).Value Then k = k + 1 End If
End If End If Next
If k = param - pust Then Sheets("прайс").Cells(x, 2).Value = Sheets("эталон").Cells(i, 1).Value check = True End If
Next i = i + 1 Wend
Добрый день подскажите пожалуйста в чем может быть проблема. В цикле пытаюсь скопировать ячейки с одного листа на другой в том же документе, ошибки не выдает, но не работает.
приведу только кусок кода в котором возникает проблема Делала проверки, до последнего if все вроде правильно работает.
Code
'param константа 'mass_price(param) массив
While Sheets("эталон").Cells(i, 1).Value <> "" For j = 2 To param + 1 k = 0 pust = 0 For Each Item In mass_price If Item <> "" Then If Sheets("эталон").Cells(i, j).Value = "" Then pust = pust + 1 Else If Item = Sheets("эталон").Cells(i, j).Value Then k = k + 1 End If
End If End If Next
If k = param - pust Then Sheets("прайс").Cells(x, 2).Value = Sheets("эталон").Cells(i, 1).Value check = True End If
Вообще доходит до строки Sheets("прайс").Cells(x, 2).Value = Sheets("эталон").Cells(i, 1).Value Там есть что копировать, какие значения у x и i в это время?
Вообще доходит до строки Sheets("прайс").Cells(x, 2).Value = Sheets("эталон").Cells(i, 1).Value Там есть что копировать, какие значения у x и i в это время?Hugo
Не знаю как это проверить( Приведу тогда весь код с примером и описанием задачи.
Есть три листа "эталон" "тэги" и "прайс" На листе прайс приведены некоторые текстовые строки, которым необходимо сопоставить строки с листа "эталон" по ключевым словам На листе эталон приведены правильные строки и ключевые слова их определяющие На листе тэги в первом столбце словарь, а во втором столбце тэг соответствующий тому или иному слову.
Задача получить на листе прайс эталонное название.
Не знаю как это проверить( Приведу тогда весь код с примером и описанием задачи.
Есть три листа "эталон" "тэги" и "прайс" На листе прайс приведены некоторые текстовые строки, которым необходимо сопоставить строки с листа "эталон" по ключевым словам На листе эталон приведены правильные строки и ключевые слова их определяющие На листе тэги в первом столбце словарь, а во втором столбце тэг соответствующий тому или иному слову.
Задача получить на листе прайс эталонное название.
Что-то мне кажется, что на массива и словаре можно проще код написать. Но не совсем понятна задача, что именно и из чего нужно получить (в код вчитываться лениво...)
Что-то мне кажется, что на массива и словаре можно проще код написать. Но не совсем понятна задача, что именно и из чего нужно получить (в код вчитываться лениво...)Hugo
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
