Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Поиск слова в столб. и заполнение другого ст. при совпадении - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Поиск слова в столб. и заполнение другого ст. при совпадении (Макросы/Sub)
Поиск слова в столб. и заполнение другого ст. при совпадении
-=Dj=- Дата: Суббота, 05.08.2017, 14:47 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 25
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
Здравствуйте. снова нуждаюсь в Вашей помощи)
Есть огромная таблица с перечнем запчастей, нудно в столбце D (Первичная упаковка) прописать вид упаковки.
Я могу составить списки запчастей для каждого вида упаковки.
Если макрос находит слово или сочетание слов в названии то ставит соответствующий вид.
К сообщению приложен файл: Upakovka.xlsm(21Kb)
 
Ответить
СообщениеЗдравствуйте. снова нуждаюсь в Вашей помощи)
Есть огромная таблица с перечнем запчастей, нудно в столбце D (Первичная упаковка) прописать вид упаковки.
Я могу составить списки запчастей для каждого вида упаковки.
Если макрос находит слово или сочетание слов в названии то ставит соответствующий вид.

Автор - -=Dj=-
Дата добавления - 05.08.2017 в 14:47
InExSu Дата: Суббота, 05.08.2017, 21:08 | Сообщение № 2
Группа: Проверенные
Ранг: Обитатель
Сообщений: 260
Репутация: 29 ±
Замечаний: 80% ±

Excel 2010
Если Лист2 будет как во вложении ... сойдёт? Не нарушит Вашу концепцию?
К сообщению приложен файл: inexsu_-Dj-2.xlsm(12Kb)
 
Ответить
СообщениеЕсли Лист2 будет как во вложении ... сойдёт? Не нарушит Вашу концепцию?

Автор - InExSu
Дата добавления - 05.08.2017 в 21:08
-=Dj=- Дата: Понедельник, 07.08.2017, 11:12 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 25
Репутация: 0 ±
Замечаний: 0% ±

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

Автор - -=Dj=-
Дата добавления - 07.08.2017 в 11:12
InExSu Дата: Понедельник, 07.08.2017, 23:13 | Сообщение № 4
Группа: Проверенные
Ранг: Обитатель
Сообщений: 260
Репутация: 29 ±
Замечаний: 80% ±

Excel 2010
[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]


Сообщение отредактировал InExSu - Понедельник, 07.08.2017, 23:16
 
Ответить
Сообщение[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]

Автор - InExSu
Дата добавления - 07.08.2017 в 23:13
_Boroda_ Дата: Среда, 09.08.2017, 11:40 | Сообщение № 5
Группа: Модераторы
Ранг: Местный житель
Сообщений: 11850
Репутация: 4910 ±
Замечаний: 0% ±

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


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеЧитайте вот это http://www.excelworld.ru/forum/2-20-1 и создавайте свою тему

Автор - _Boroda_
Дата добавления - 09.08.2017 в 11:40
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Поиск слова в столб. и заполнение другого ст. при совпадении (Макросы/Sub)
Страница 1 из 11
Поиск:

Яндекс цитирования
© 2010-2017 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!