Автозаполнение колонок

@palmer_ · Регистрация: 05.06.2018

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

Добрый день. Нужна помощь.
Есть большой прайс.
От поставщика он идет сгрупирован по категориям.
Программа импортер не понимает сгруппированные прайсы,
приходится удалять структуру а категории в ручную заполнять
на отдельные столбцы как требуется для импорта.
Можно ли каким то образом реализовать авто заполнение столбцов
в прайсе?
Price.xlsx - это часть прайса а Price1.xlsx то что нужно получить
Пробовал найти примеры но не нашел. Сам с Vba почти никак.
Количество товара может меняться поэтому жестко к адресам ячеек привязаться не
получается.
Оч. надеюсь на помощь

@Burk · 26.06.2018, 09:18

palmer_, ну это явно не курсовая, видимо, где-то работаете. И собираетесь и дальше, ссылаясь на Сам с Vba почти никак просить помощи на форуме. Но это не помощь, а сделайте за меня. Надо осваивать ВБА и обращаться с вопросами по вашей программе.
Алгоритм по вашей задаче достаточно прост. Объявляете массив длиной 3. В цикле находите ячейки с не белой заливкой (голубой, синей). В номер массива равный номеру столбца ячейки с непустым текстом заносите этот текст. И в строки без заливки в столбцы 9, 8, 7 заносите элементы массива 1, 2, 3. Снова встретили фон, по предыдущему заносите в массив те элементы, которые встретились (не все, например, только 3). Для начала как-то так.

@palmer_ · 26.06.2018, 09:58 **[ТС]**

Cпасибо Burk.
Я не просил сделать за меня.
Я хотел узнать возможно это в принципе или нет,
и если возможно то в каком направлении рыть.
Вы мне ответили. Большое вам спасибо.

@Hugo121 · 26.06.2018, 10:05

Если проблема с массивом - делайте 3 переменных. Остальное как выше.

@unick12345 · 26.06.2018, 10:11

palmer_, не совсем понял что тебе нужно. дописать остальные столбцы или что?

@palmer_ · 26.06.2018, 10:35 **[ТС]**

Во вложенных файлах.
Price.xlsx - это исходный
Price1.xlsx то что хотел получить

@Burk · 26.06.2018, 11:11

palmer_, уточню на всяк случай - всё это делается за один проход по строкам от А до Я (последняя заполненная строка)

@unick12345 · 26.06.2018, 11:27

нажми CTRL+Q

@palmer_ · 26.06.2018, 11:53 **[ТС]**

Не важно. я это вообще вручную делал.
В последствии это все будет скопировно в xls
через специальную вставку как значения и в
дальнейшем сохранено в xml
Хотел рутинную операцию как то автоматизировать.

Добавлено через 24 минуты
unick12345 Спасибо вам большое.
Все работает.
Я каждый день сидел с этим прайсом по два часа.

@Vlad999 · 26.06.2018, 14:13

в коде не помешает.

Visual Basic

1
2
3

Application.ScreenUpdating = False 'отключаем обновление экрана
ваш код
Application.ScreenUpdating = True 'включаем обновление экрана

@palmer_ · 28.06.2018, 06:55 **[ТС]**

Burk Похоже я не понял сразу вашего вопроса про проход от а до я.
Теперь наступил на грабли.
В некоторых позициях отсутствует
младшая категория и колонка заполняется из предыдущей
а хотелось бы чтобы она пропускалась.
Заметил не сразу, а только в процессе работы.
Во вложении файл. Как это выглядит.

@palmer_ · 28.06.2018, 06:56 **[ТС]**

Vlad999 Спасибо за подсказку, стало быстрее работать.

@Burk · 28.06.2018, 07:48

palmer_, что-то не понял ваше сообщение, ведь в моём алгоритме так и предусмотрено, если привязываться по номеру столбца категории. Если есть только вторая категория, то в неё и занесётся новое значение (во второй элемент массива), а третья (более низкая категория) сохранит старое значение. Поэтому я и предлагал массив из трёх элементов - и проще и никаких проблем. "Я" просто последняя заполненная строка в вашем листе. "А" = 1

@palmer_ · 28.06.2018, 07:54 **[ТС]**

Да я сам уже понял что не то написал.

@Burk · 28.06.2018, 07:57

В вашем первом файле так и было показано. А нужно, чтобы в случае отсутствия низшей категории, она бы вообще не ставилась??? А не может быть так, что только первая есть, что тогда? Остальные тоже пустые?

@palmer_ · 28.06.2018, 08:16 **[ТС]**

Вот как в файле нужно.

@Burk · 28.06.2018, 08:30

palmer_, тогда такой макрос

Visual Basic

Sub proba()
Dim I As Long, Arr(1 To 3) As String, Last As Long, J As Integer
Last = Cells(Rows.Count, 1).End(xlUp).Row
For I = 1 To Last
  If Cells(I, 1) <> "" And Cells(I, 2) = "" And Cells(I, 3) = "" Then
    Arr(1) = Cells(I, 1)
  ElseIf Cells(I, 1) = "" And Cells(I, 2) <> "" And Cells(I, 3) = "" Then
    Arr(2) = Cells(I, 2): Arr(3) = ""
  ElseIf Cells(I, 1) = "" And Cells(I, 2) = "" And Cells(I, 3) <> "" Then
    Arr(3) = Cells(I, 3)
  Else
    For J = 1 To 3
      Cells(I, 9 - J) = Arr(J)
    Next
  End If
Next
End Sub

@palmer_ · 28.06.2018, 09:00 **[ТС]**

Здорово.
Все работает как надо.
Спасибо огромное Burk

@Burk · 28.06.2018, 09:14

palmer_, вдруг возможны пустые строки. строку 11 заменить, на всякий случай, на следующую

Visual Basic

1	ElseIf Cells(I, 4) <> "" Then

@palmer_ · 28.06.2018, 11:32 **[ТС]**

Спасибо большое.
Прогнал по рабочему прайсу все
работает корректно.
В итоге время обработки прайса сократилось
почти с 2х часов до 25 мин.
Начальнику я об этом конечно не скажу)
Еще бы научиться удалять выборочно
не нужные мне категории вообще бы укладывался в мин 15.
Еще раз спасибо вам всем огромное.)

@Burk 1846 / 1161 / 354 Регистрация: 11.07.2014 Сообщений: 4,102
	26.06.2018, 09:18	2
	palmer_, ну это явно не курсовая, видимо, где-то работаете. И собираетесь и дальше, ссылаясь на Сам с Vba почти никак просить помощи на форуме. Но это не помощь, а сделайте за меня. Надо осваивать ВБА и обращаться с вопросами по вашей программе. Алгоритм по вашей задаче достаточно прост. Объявляете массив длиной 3. В цикле находите ячейки с не белой заливкой (голубой, синей). В номер массива равный номеру столбца ячейки с непустым текстом заносите этот текст. И в строки без заливки в столбцы 9, 8, 7 заносите элементы массива 1, 2, 3. Снова встретили фон, по предыдущему заносите в массив те элементы, которые встретились (не все, например, только 3). Для начала как-то так. 0

@palmer_ 1 / 1 / 0 Регистрация: 05.06.2018 Сообщений: 30
	26.06.2018, 09:58 [ТС]	3
	Cпасибо Burk. Я не просил сделать за меня. Я хотел узнать возможно это в принципе или нет, и если возможно то в каком направлении рыть. Вы мне ответили. Большое вам спасибо. 0

@Hugo121 6944 / 2849 / 548 Регистрация: 19.10.2012 Сообщений: 8,722
	26.06.2018, 10:05	4
	Если проблема с массивом - делайте 3 переменных. Остальное как выше. 0

@unick12345 1856 / 1178 / 190 Регистрация: 27.03.2009 Сообщений: 4,564
	26.06.2018, 10:11	5
	palmer_, не совсем понял что тебе нужно. дописать остальные столбцы или что? 0

@palmer_ 1 / 1 / 0 Регистрация: 05.06.2018 Сообщений: 30
	26.06.2018, 10:35 [ТС]	6
	Во вложенных файлах. Price.xlsx - это исходный Price1.xlsx то что хотел получить 0

@Burk 1846 / 1161 / 354 Регистрация: 11.07.2014 Сообщений: 4,102
	26.06.2018, 11:11	7
	palmer_, уточню на всяк случай - всё это делается за один проход по строкам от А до Я (последняя заполненная строка) 0

@palmer_ 1 / 1 / 0 Регистрация: 05.06.2018 Сообщений: 30
	26.06.2018, 11:53 [ТС]	9
	Не важно. я это вообще вручную делал. В последствии это все будет скопировно в xls через специальную вставку как значения и в дальнейшем сохранено в xml Хотел рутинную операцию как то автоматизировать. Добавлено через 24 минуты unick12345 Спасибо вам большое. Все работает. Я каждый день сидел с этим прайсом по два часа. 0

@palmer_ 1 / 1 / 0 Регистрация: 05.06.2018 Сообщений: 30
	28.06.2018, 06:56 [ТС]	12
	Vlad999 Спасибо за подсказку, стало быстрее работать. 0

@Burk 1846 / 1161 / 354 Регистрация: 11.07.2014 Сообщений: 4,102
	28.06.2018, 07:48	13
	palmer_, что-то не понял ваше сообщение, ведь в моём алгоритме так и предусмотрено, если привязываться по номеру столбца категории. Если есть только вторая категория, то в неё и занесётся новое значение (во второй элемент массива), а третья (более низкая категория) сохранит старое значение. Поэтому я и предлагал массив из трёх элементов - и проще и никаких проблем. "Я" просто последняя заполненная строка в вашем листе. "А" = 1 0

@palmer_ 1 / 1 / 0 Регистрация: 05.06.2018 Сообщений: 30
	28.06.2018, 07:54 [ТС]	14
	Да я сам уже понял что не то написал. 0

@Burk 1846 / 1161 / 354 Регистрация: 11.07.2014 Сообщений: 4,102
	28.06.2018, 07:57	15
	В вашем первом файле так и было показано. А нужно, чтобы в случае отсутствия низшей категории, она бы вообще не ставилась??? А не может быть так, что только первая есть, что тогда? Остальные тоже пустые? 0

@palmer_ 1 / 1 / 0 Регистрация: 05.06.2018 Сообщений: 30
	28.06.2018, 09:00 [ТС]	18
	Здорово. Все работает как надо. Спасибо огромное Burk 0

@palmer_ 1 / 1 / 0 Регистрация: 05.06.2018 Сообщений: 30
	28.06.2018, 11:32 [ТС]	20
	Спасибо большое. Прогнал по рабочему прайсу все работает корректно. В итоге время обработки прайса сократилось почти с 2х часов до 25 мин. Начальнику я об этом конечно не скажу) Еще бы научиться удалять выборочно не нужные мне категории вообще бы укладывался в мин 15. Еще раз спасибо вам всем огромное.) 0