Поиск слова в столб. и заполнение другого ст. при совпадении

Страница 1 из 1 1
Модератор форума: китин, _Boroda_, DrMini

Поиск слова в столб. и заполнение другого ст. при совпадении (Макросы/Sub)

-=Dj=-

Дата: Суббота, 05.08.2017, 14:47 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 28

Репутация: 0 ±

Замечаний: 0% ±

Excel 2007

Здравствуйте. снова нуждаюсь в Вашей помощи)
Есть огромная таблица с перечнем запчастей, нудно в столбце D (Первичная упаковка) прописать вид упаковки.
Я могу составить списки запчастей для каждого вида упаковки.
Если макрос находит слово или сочетание слов в названии то ставит соответствующий вид.

К сообщению приложен файл: Upakovka.xlsm (21.2 Kb)

Ответить

InExSu

Дата: Суббота, 05.08.2017, 21:08 | Сообщение № 2

Группа: Друзья

Ранг: Ветеран

Сообщений: 650

Репутация: 96 ±

Замечаний: 0% ±

Excel 2010, 365

Если Лист2 будет как во вложении ... сойдёт? Не нарушит Вашу концепцию?

К сообщению приложен файл: inexsu_-Dj-2.xlsm (11.9 Kb)

Разработчик Битрикс24 php, Google Apps Script, VBA Excel Windows/Mac

Ответить

-=Dj=-

Дата: Понедельник, 07.08.2017, 11:12 | Сообщение № 3

Группа: Пользователи

Ранг: Новичок

Сообщений: 28

Репутация: 0 ±

Замечаний: 0% ±

Excel 2007

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

Ответить

InExSu

Дата: Понедельник, 07.08.2017, 23:13 | Сообщение № 4

Группа: Друзья

Ранг: Ветеран

Сообщений: 650

Репутация: 96 ±

Замечаний: 0% ±

Excel 2010, 365

[vba]

Код

Option Base 1 'в начало модуля
Sub ВпискаУпаковки_InExSu()
  Dim wb As Workbook: Set wb = ThisWorkbook

  масс_Упак = wb.Sheets(2).Range("Таблица1")
  МаксУпак = UBound(масс_Упак)

  масс_Лист = wb.Sheets(1).Range("a10").CurrentRegion
  МаксЛист = UBound(масс_Лист) - 2

  For i = 3 To МаксЛист
    For j = 1 To МаксУпак
      If InStr(масс_Лист(i, 2), масс_Упак(j, 1)) Then
        масс_Лист(i, 4) = масс_Упак(j, 2)
        Exit For
      Else
        масс_Лист(i, 4) = "Карт. коробка"
      End If
    Next j
  Next i

  wb.Sheets(1).Range("a10").CurrentRegion = масс_Лист
End Sub

[/vba]

Разработчик Битрикс24 php, Google Apps Script, VBA Excel Windows/Mac

Сообщение отредактировал InExSu - Понедельник, 07.08.2017, 23:16

Ответить

_Boroda_

Дата: Среда, 09.08.2017, 11:40 | Сообщение № 5

Группа: Админы

Ранг: Местный житель

Сообщений: 17006

Репутация: 6667 ±

Замечаний: ±

2003; 2007; 2010; 2013 RUS

Читайте вот это http://www.excelworld.ru/forum/2-20-1 и создавайте свою тему

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

Ответить

Поиск слова в столб. и заполнение другого ст. при совпадении (Макросы/Sub)

Страница 1 из 1
1