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

Вход

Регистрация

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

 

= Мир MS Excel/Вывод текста - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_, DrMini  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Вывод текста
Вывод текста
Rannek Дата: Понедельник, 13.12.2010, 10:25 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 3
Репутация: 0 ±
Замечаний: 0% ±

Добрый день!

Подскажите плиз! Есть таблица с номерами контейнеров в следующем формате MSKU1234567. Как сделать так чтобы при вставке в новую таблицу формат менялся на MSKU 123456-7?

 
Ответить
СообщениеДобрый день!

Подскажите плиз! Есть таблица с номерами контейнеров в следующем формате MSKU1234567. Как сделать так чтобы при вставке в новую таблицу формат менялся на MSKU 123456-7?

Автор - Rannek
Дата добавления - 13.12.2010 в 10:25
Serge_007 Дата: Понедельник, 13.12.2010, 10:49 | Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация: 2750 ±
Замечаний: ±

Excel 2016
Здравствуйте.

Номера всегда в одном формате? 4 буквы и 7 цифр? Всегда слитно? Вставляете формулой? Макросом? Выпадающим списком? Вручную? Пример давайте.


ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
СообщениеЗдравствуйте.

Номера всегда в одном формате? 4 буквы и 7 цифр? Всегда слитно? Вставляете формулой? Макросом? Выпадающим списком? Вручную? Пример давайте.

Автор - Serge_007
Дата добавления - 13.12.2010 в 10:49
Rannek Дата: Понедельник, 13.12.2010, 10:57 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 3
Репутация: 0 ±
Замечаний: 0% ±

Да номера всегда в одном формате. Вставляю вручную. После каждой вставки исправляю вручную а контейнеров бывает по 100 штук.
К сообщению приложен файл: Uniform_forward.xls (93.0 Kb)
 
Ответить
СообщениеДа номера всегда в одном формате. Вставляю вручную. После каждой вставки исправляю вручную а контейнеров бывает по 100 штук.
Автор - Rannek
Дата добавления - 13.12.2010 в 10:57
Serge_007 Дата: Понедельник, 13.12.2010, 10:58 | Сообщение № 4
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация: 2750 ±
Замечаний: ±

Excel 2016
Пока делаете пример посмотрите такое решение:
Code
=ПОДСТАВИТЬ(ЛЕВСИМВ(A2;10);"U";"U ")&"-"&ПРАВСИМВ(A2;1)
К сообщению приложен файл: Rannek.xls (26.5 Kb)

ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
СообщениеПока делаете пример посмотрите такое решение:
Code
=ПОДСТАВИТЬ(ЛЕВСИМВ(A2;10);"U";"U ")&"-"&ПРАВСИМВ(A2;1)
Автор - Serge_007
Дата добавления - 13.12.2010 в 10:58
Serge_007 Дата: Понедельник, 13.12.2010, 11:37 | Сообщение № 5
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация: 2750 ±
Замечаний: ±

Excel 2016
Quote (Rannek)
Да номера всегда в одном формате. Вставляю вручную. После каждой вставки исправляю вручную а контейнеров бывает по 100 штук

В файле жмите на кнопку "Исправить номера контейнеров".

К сообщению приложен файл: Rannek.rar (20.5 Kb)

ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
Сообщение
Quote (Rannek)
Да номера всегда в одном формате. Вставляю вручную. После каждой вставки исправляю вручную а контейнеров бывает по 100 штук

В файле жмите на кнопку "Исправить номера контейнеров".

Автор - Serge_007
Дата добавления - 13.12.2010 в 11:37
Rannek Дата: Понедельник, 13.12.2010, 11:57 | Сообщение № 6
Группа: Пользователи
Ранг: Прохожий
Сообщений: 3
Репутация: 0 ±
Замечаний: 0% ±

Отлично! biggrin Спасибо огромное!!!!!!
 
Ответить
СообщениеОтлично! biggrin Спасибо огромное!!!!!!
Автор - Rannek
Дата добавления - 13.12.2010 в 11:57
Hugo Дата: Вторник, 14.12.2010, 00:11 | Сообщение № 7
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3859
Репутация: 819 ±
Замечаний: 0% ±

365
Code
Sub IsprNomera()
Dim cc As Range
For Each cc In Selection
cc.Value = Left(cc, 4) & " " & Mid(cc, 5, 6) & "-" & Mid(cc, 11, Len(cc) - 10)
Next
End Sub

Этот код поместите в модуль в любой открытый в фоне файл (см. приложение), затем выделяете свои номера (расположение не важно, в любом столбце, можно выделять кусками) набираете на клавиатуре Alt+F8, из списка выбираете файл с этим макросом и макрос:
IsprNomera.xls!IsprNomera

Символом "-" будут отделены все символы номера после десятого.

К сообщению приложен файл: IsprNomera.xls (32.5 Kb)

webmoney: E265281470651 Z422237915069
USDT TRC20: TN8XeEF17o5KPBD9pNwYzNyruycuAc2mVD
 
Ответить
Сообщение
Code
Sub IsprNomera()
Dim cc As Range
For Each cc In Selection
cc.Value = Left(cc, 4) & " " & Mid(cc, 5, 6) & "-" & Mid(cc, 11, Len(cc) - 10)
Next
End Sub

Этот код поместите в модуль в любой открытый в фоне файл (см. приложение), затем выделяете свои номера (расположение не важно, в любом столбце, можно выделять кусками) набираете на клавиатуре Alt+F8, из списка выбираете файл с этим макросом и макрос:
IsprNomera.xls!IsprNomera

Символом "-" будут отделены все символы номера после десятого.

Автор - Hugo
Дата добавления - 14.12.2010 в 00:11
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Вывод текста
  • Страница 1 из 1
  • 1
Поиск:

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