Уважаемые форумчане, добрый день!
Есть три файла, которые лежат в разных местах:
Making.xlsb Goods.xlsb и Данные1С.xlsx
В файле Шаблон.xlsb требуется докрутить имеющийся макрос, который копировал бы данные из выше перечисленных файлов.
Очень важно, чтобы сбор данных из этих файлов работал по такому же принципу как это сделано в прилагаемом файле Шаблон.xlsb
Первым делом из файла Making.xlsx, затем из файла Goods.xlsx, затем из Данные1С.xlsx
Количество строк может меняться во всех файлах.
Если какого-то файла нет в указанном месте, то молча пропускаем его и тянемем данные из следующего.
Если нет всех трёх файлов, тогда выдаём сообщение "данные для импорта отсутствуют"
Данные для импорта начинаются так:
для Making.xlsb по всей видимости нужно прописывать так:
.Range(.Cells(18, 3), .Cells(.Cells(.Rows.Count, 3).End(xlUp).Row, .Cells(18, .Columns.Count).End(xlToLeft).Column)).Value
Для Goods.xlsb так:
.Range(.Cells(8, 4), .Cells(.Cells(.Rows.Count, 4).End(xlUp).Row, .Cells(8, .Columns.Count).End(xlToLeft).Column)).Value
для Данные1С.xlsx в текущем макросе уже прописано так:
.Range(.Cells(13, 2), .Cells(.Cells(.Rows.Count, 2).End(xlUp).Row, .Cells(13, .Columns.Count).End(xlToLeft).Column)).Value
Мне, как человеку не знающему VBA нужно, чтобы было интуитивно понятно каким образом я мог бы в перспективе добавить файлы и прописать координаты для импорта.
Все существующие функции обязательно нужно оставить. И нужно чтобы они работали с данными из всех файлов.
Нужно добавить функцию, которая работала бы примерно так же как и функция с листом Price
А именно: сравнить код с кодом на листе Name и во всех совпадающих строках изменить Артикул, Торговую марку и Наименование согласно данных на листе Name
Нужно усовершенствовать существующую функцию: "получить Торговую марку"
Существующая функция получает в столбце Наименование результат, и этот результат она должна сравнить с существованием полученного слова на листе Brand в столбце Бренды 1С
Если есть абсолютное совпадение (обязательно абсолютное совпадение, т.к. есть бренд "ARGO" и есть бренд "CARGO", т.е. я имею ввиду что макрос должен найти точное совпадение),
тогда пишем результат, если совпадения нет, тогда результат берём из столбца Дополнительное описание (Бренд)
Во время импорта нужно чтобы все данные в столбец артикул записывались в текстовом формате.
Можно конечно выделить весь столбец и формат текста сделать текстовым, но я уверен, что понимающий сможет сделать текстовыми только те ячейки, в которые будут тянуться артикулы.
Хочу обратить внимание на то, что в файлах, из которых импортируются данные, в столбце Артикул есть ячейки с числовым форматом, и для таких ячеек очень нужен макрос, который правильно конвертировал бы число в текст.
В файле Данные1С.xlsx приведено только несколько примеров в строках 19, 20 и 21
т.е. нули содержатся в начале артикула, а импортируются данные к сожалению без нулей.
В общем нужен желательно универсальный макрос, который позволил бы правильно конвертировать такие числа в текст.
Также во время импорта нужна функция, которая ищет в столбце Базовая единица измерения (ЕИ), следующие значения:
"м" и "п.м.", и меняет их на "пог.м.",
а "компл" меняет на "к-т"
Отдельные функции, которые не должны применяться во время импорта данных, т.е. функции или макросы, которые будут выполняться по инициативе пользователя уже с существующими данными на листе:
Нужна функция, которая проверяет столбцы: Торговая марка, Артикул, Остаток и RUB без НДС, на наличие пустых ячеек и значения 0.
Если такие ячейки будут найдены, то нужно выдать диалог с сообщением "Пустая ячейка" и выделить первую найденную ячейку, и по нажатию на кнопку выделить следующую ячейку с ошибкой,
и т.о. пролистать все такие ячейки, или нажать на кнопку Отмена и остановить показ ячеек с ошибкой.
Также нужна ещё одна проверочная функция, которая ищет в столбце Артикул, скобки "(" ")" "[" "]", кавычки "'" "'", символ собаки "@" и запятые "," и если найдена такая ячейка в которой содержатся скобки, кавычки, собаки или запятые,
то нужно выдать диалог с сообщением "недопустимые символы" и выделить первую найденную ячейку, и по нажатию на кнопку выделить следующую ячейку с ошибкой,
и т.о. пролистать все такие ячейки, или нажать на кнопку Отмена и остановить показ ячеек с ошибкой.
Так же нужна функция, которая проверяла бы столбцы: Торговая марка и Наименование, на наличие слова "Stellox", и удалила бы все строки, в которых найдено это слово.
Бюджет на всё это дело 3000 рублей РФ
Есть три файла, которые лежат в разных местах:
Making.xlsb Goods.xlsb и Данные1С.xlsx
В файле Шаблон.xlsb требуется докрутить имеющийся макрос, который копировал бы данные из выше перечисленных файлов.
Очень важно, чтобы сбор данных из этих файлов работал по такому же принципу как это сделано в прилагаемом файле Шаблон.xlsb
Первым делом из файла Making.xlsx, затем из файла Goods.xlsx, затем из Данные1С.xlsx
Количество строк может меняться во всех файлах.
Если какого-то файла нет в указанном месте, то молча пропускаем его и тянемем данные из следующего.
Если нет всех трёх файлов, тогда выдаём сообщение "данные для импорта отсутствуют"
Данные для импорта начинаются так:
для Making.xlsb по всей видимости нужно прописывать так:
.Range(.Cells(18, 3), .Cells(.Cells(.Rows.Count, 3).End(xlUp).Row, .Cells(18, .Columns.Count).End(xlToLeft).Column)).Value
Для Goods.xlsb так:
.Range(.Cells(8, 4), .Cells(.Cells(.Rows.Count, 4).End(xlUp).Row, .Cells(8, .Columns.Count).End(xlToLeft).Column)).Value
для Данные1С.xlsx в текущем макросе уже прописано так:
.Range(.Cells(13, 2), .Cells(.Cells(.Rows.Count, 2).End(xlUp).Row, .Cells(13, .Columns.Count).End(xlToLeft).Column)).Value
Мне, как человеку не знающему VBA нужно, чтобы было интуитивно понятно каким образом я мог бы в перспективе добавить файлы и прописать координаты для импорта.
Все существующие функции обязательно нужно оставить. И нужно чтобы они работали с данными из всех файлов.
Нужно добавить функцию, которая работала бы примерно так же как и функция с листом Price
А именно: сравнить код с кодом на листе Name и во всех совпадающих строках изменить Артикул, Торговую марку и Наименование согласно данных на листе Name
Нужно усовершенствовать существующую функцию: "получить Торговую марку"
Существующая функция получает в столбце Наименование результат, и этот результат она должна сравнить с существованием полученного слова на листе Brand в столбце Бренды 1С
Если есть абсолютное совпадение (обязательно абсолютное совпадение, т.к. есть бренд "ARGO" и есть бренд "CARGO", т.е. я имею ввиду что макрос должен найти точное совпадение),
тогда пишем результат, если совпадения нет, тогда результат берём из столбца Дополнительное описание (Бренд)
Во время импорта нужно чтобы все данные в столбец артикул записывались в текстовом формате.
Можно конечно выделить весь столбец и формат текста сделать текстовым, но я уверен, что понимающий сможет сделать текстовыми только те ячейки, в которые будут тянуться артикулы.
Хочу обратить внимание на то, что в файлах, из которых импортируются данные, в столбце Артикул есть ячейки с числовым форматом, и для таких ячеек очень нужен макрос, который правильно конвертировал бы число в текст.
В файле Данные1С.xlsx приведено только несколько примеров в строках 19, 20 и 21
т.е. нули содержатся в начале артикула, а импортируются данные к сожалению без нулей.
В общем нужен желательно универсальный макрос, который позволил бы правильно конвертировать такие числа в текст.
Также во время импорта нужна функция, которая ищет в столбце Базовая единица измерения (ЕИ), следующие значения:
"м" и "п.м.", и меняет их на "пог.м.",
а "компл" меняет на "к-т"
Отдельные функции, которые не должны применяться во время импорта данных, т.е. функции или макросы, которые будут выполняться по инициативе пользователя уже с существующими данными на листе:
Нужна функция, которая проверяет столбцы: Торговая марка, Артикул, Остаток и RUB без НДС, на наличие пустых ячеек и значения 0.
Если такие ячейки будут найдены, то нужно выдать диалог с сообщением "Пустая ячейка" и выделить первую найденную ячейку, и по нажатию на кнопку выделить следующую ячейку с ошибкой,
и т.о. пролистать все такие ячейки, или нажать на кнопку Отмена и остановить показ ячеек с ошибкой.
Также нужна ещё одна проверочная функция, которая ищет в столбце Артикул, скобки "(" ")" "[" "]", кавычки "'" "'", символ собаки "@" и запятые "," и если найдена такая ячейка в которой содержатся скобки, кавычки, собаки или запятые,
то нужно выдать диалог с сообщением "недопустимые символы" и выделить первую найденную ячейку, и по нажатию на кнопку выделить следующую ячейку с ошибкой,
и т.о. пролистать все такие ячейки, или нажать на кнопку Отмена и остановить показ ячеек с ошибкой.
Так же нужна функция, которая проверяла бы столбцы: Торговая марка и Наименование, на наличие слова "Stellox", и удалила бы все строки, в которых найдено это слово.
Бюджет на всё это дело 3000 рублей РФ
Изменено: - 20.02.2025 08:10:18
