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

Вход

Регистрация

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

 

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

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир 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(12Kb)


Сообщение отредактировал 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
Репутация: 7 ±
Замечаний: 0% ±

Excel 2010
 
Ответить
Сообщениекросс

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

Excel 2010, 2016 & Mac Excel
первая и последняя буква марки авто
Почему у Acura RDX артикул LEM-TIL-AI0001? Откуда брать TIL и TIG?


"Черт возьми, Холмс! Но как??!!"
ЯД 41001765434816
 
Ответить
Сообщение
первая и последняя буква марки авто
Почему у 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
Группа: Модераторы
Ранг: Местный житель
Сообщений: 11755
Репутация: 2596 ±
Замечаний: 0% ±

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


"Черт возьми, Холмс! Но как??!!"
ЯД 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 из 11
Поиск:

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