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

Старая форма входа

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

Вывод текста

Rannek

Дата: Понедельник, 13.12.2010, 10:25 | Сообщение № 1

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

Ранг: Прохожий

Сообщений: 3

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

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

Добрый день!

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

Ответить

Serge_007

Дата: Понедельник, 13.12.2010, 10:49 | Сообщение № 2

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

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

Сообщений: 16475

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

Замечаний: ±

Excel 2016

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

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

ЮMoney:41001419691823 | WMR:126292472390

Ответить

Rannek

Дата: Понедельник, 13.12.2010, 10:57 | Сообщение № 3

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

Ранг: Прохожий

Сообщений: 3

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

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

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

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

Ответить

Serge_007

Дата: Понедельник, 13.12.2010, 10:58 | Сообщение № 4

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

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

Сообщений: 16475

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

Замечаний: ±

Excel 2016

Пока делаете пример посмотрите такое решение:

Code

=ПОДСТАВИТЬ(ЛЕВСИМВ(A2;10);"U";"U ")&"-"&ПРАВСИМВ(A2;1)

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

ЮMoney:41001419691823 | WMR:126292472390

Ответить

Serge_007

Дата: Понедельник, 13.12.2010, 11:37 | Сообщение № 5

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

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

Сообщений: 16475

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

Замечаний: ±

Excel 2016

Quote (Rannek)

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

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

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

ЮMoney:41001419691823 | WMR:126292472390

Ответить

Rannek

Дата: Понедельник, 13.12.2010, 11:57 | Сообщение № 6

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

Ранг: Прохожий

Сообщений: 3

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

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

Отлично!

Спасибо огромное!!!!!!

Ответить

Hugo

Дата: Вторник, 14.12.2010, 00:11 | Сообщение № 7

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

Ранг: Участник клуба

Сообщений: 3690

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

Замечаний: 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

Ответить

Вывод текста

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