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

Вход

Регистрация

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

 

= Мир MS Excel/Артикул по сокращению - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Артикул по сокращению (Макросы/Sub)
Артикул по сокращению
Fisher Дата: Понедельник, 30.10.2017, 20:54 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 10
Репутация: 0 ±
Замечаний: 20% ±

Excel 2003
Добрового времени форумчане!
Подскажите пожалуйста, нужно создать Артикул, но данные чтобы подставлялись из таблицы!
Пример в файле:
LEM-TIL-AI0001
* LEM - первые три буквы бренда (величина постоянная)
* TIL и TIG - первые буквы слов из названия группы. Группы пока 2, но возможно будет больше! (Триплекс Иномарки Легковые и Триплекс Иномарки Грузовые)
* AI0001 - первая и последняя буква марки авто и код продукции. Код присваивается нарастающим итогом! т.е (AI - Audi)
К сообщению приложен файл: 6864764.xlsx (11.9 Kb)


Сообщение отредактировал Fisher - Понедельник, 30.10.2017, 20:57
 
Ответить
СообщениеДобрового времени форумчане!
Подскажите пожалуйста, нужно создать Артикул, но данные чтобы подставлялись из таблицы!
Пример в файле:
LEM-TIL-AI0001
* LEM - первые три буквы бренда (величина постоянная)
* TIL и TIG - первые буквы слов из названия группы. Группы пока 2, но возможно будет больше! (Триплекс Иномарки Легковые и Триплекс Иномарки Грузовые)
* AI0001 - первая и последняя буква марки авто и код продукции. Код присваивается нарастающим итогом! т.е (AI - Audi)
Автор - Fisher
Дата добавления - 30.10.2017 в 20:54
Shurf Дата: Вторник, 31.10.2017, 02:05 | Сообщение № 2
Группа: Пользователи
Ранг: Новичок
Сообщений: 40
Репутация: 8 ±
Замечаний: 0% ±

Excel 2010
кросс
 
Ответить
Сообщениекросс
Автор - Shurf
Дата добавления - 31.10.2017 в 02:05
Pelena Дата: Вторник, 31.10.2017, 10:39 | Сообщение № 3
Группа: Админы
Ранг: Местный житель
Сообщений: 19178
Репутация: 4417 ±
Замечаний: ±

Excel 365 & Mac Excel
Цитата Fisher, 30.10.2017 в 20:54, в сообщении № 1 ()
первая и последняя буква марки авто
Почему у Acura RDX артикул LEM-TIL-AI0001? Откуда брать TIL и TIG?

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
Сообщение
Цитата Fisher, 30.10.2017 в 20:54, в сообщении № 1 ()
первая и последняя буква марки авто
Почему у Acura RDX артикул LEM-TIL-AI0001? Откуда брать TIL и TIG?
Автор - Pelena
Дата добавления - 31.10.2017 в 10:39
Fisher Дата: Среда, 01.11.2017, 09:43 | Сообщение № 4
Группа: Пользователи
Ранг: Новичок
Сообщений: 10
Репутация: 0 ±
Замечаний: 20% ±

Excel 2003
Pelena, спасибо за вниммание к теме! Но проблему вроде как решил, хотя возможно не самым легким способом, можно проще?!

Код
="LEM-"&"TIL-"&ЛЕВСИМВ(ЕСЛИОШИБКА(ЛЕВСИМВ(R2C3:R1199C3;НАЙТИ(" ";R2C3:R1199C3)-1);R2C3:R1199C3);1)&ПРОПИСН(ПРАВСИМВ(ЕСЛИОШИБКА(ЛЕВСИМВ(R2C3:R1199C3;НАЙТИ(" ";R2C3:R1199C3)-1);R2C3:R1199C3);1))&ПОВТОР("0";4-ДЛСТР(СТРОКА(R[-1]:R[2000])))&СТРОКА(R[-1]:R[2000])

-----------------------------------
* TIL и TIG - это название листов!
 
Ответить
СообщениеPelena, спасибо за вниммание к теме! Но проблему вроде как решил, хотя возможно не самым легким способом, можно проще?!

Код
="LEM-"&"TIL-"&ЛЕВСИМВ(ЕСЛИОШИБКА(ЛЕВСИМВ(R2C3:R1199C3;НАЙТИ(" ";R2C3:R1199C3)-1);R2C3:R1199C3);1)&ПРОПИСН(ПРАВСИМВ(ЕСЛИОШИБКА(ЛЕВСИМВ(R2C3:R1199C3;НАЙТИ(" ";R2C3:R1199C3)-1);R2C3:R1199C3);1))&ПОВТОР("0";4-ДЛСТР(СТРОКА(R[-1]:R[2000])))&СТРОКА(R[-1]:R[2000])

-----------------------------------
* TIL и TIG - это название листов!
Автор - Fisher
Дата добавления - 01.11.2017 в 09:43
Pelena Дата: Среда, 01.11.2017, 10:21 | Сообщение № 5
Группа: Админы
Ранг: Местный житель
Сообщений: 19178
Репутация: 4417 ±
Замечаний: ±

Excel 365 & Mac Excel
Вашу формулу можно немного короче записать
Код
="LEM-"&"TIL-"&ЛЕВСИМВ(C2)&ПРОПИСН(ПСТР(C2;НАЙТИ(" ";C2)-1;1))&ТЕКСТ(СТРОКА(1:1);"0000")
К сообщению приложен файл: 6864764-1-.xlsx (12.9 Kb)

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
СообщениеВашу формулу можно немного короче записать
Код
="LEM-"&"TIL-"&ЛЕВСИМВ(C2)&ПРОПИСН(ПСТР(C2;НАЙТИ(" ";C2)-1;1))&ТЕКСТ(СТРОКА(1:1);"0000")
Автор - Pelena
Дата добавления - 01.11.2017 в 10:21
Fisher Дата: Четверг, 02.11.2017, 10:54 | Сообщение № 6
Группа: Пользователи
Ранг: Новичок
Сообщений: 10
Репутация: 0 ±
Замечаний: 20% ±

Excel 2003
Спасибо большое! ;)
 
Ответить
СообщениеСпасибо большое! ;)
Автор - Fisher
Дата добавления - 02.11.2017 в 10:54
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Артикул по сокращению (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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