Всем доброго дня и с праздниками! Столкнулся с проблемой, сломал уже не одну голову и ни чего не получается. Имеется номер декларации в формате RS.АЮ97.А.04050, то есть 4 разряда из текста и цифр. Объём информации 300 с небольшим номеров забивать пальцы сломаешь и глаза и голову. Наклёвывается вопрос, как прописать формат в ячейке, чтобы мне осталось только набивать на клавиатуре символы?
Всем доброго дня и с праздниками! Столкнулся с проблемой, сломал уже не одну голову и ни чего не получается. Имеется номер декларации в формате RS.АЮ97.А.04050, то есть 4 разряда из текста и цифр. Объём информации 300 с небольшим номеров забивать пальцы сломаешь и глаза и голову. Наклёвывается вопрос, как прописать формат в ячейке, чтобы мне осталось только набивать на клавиатуре символы?Norbis
А пример в файле слабо? Думаю что текстовый формат должен помочь. Не сразу понял что хотите, счас попробую. Наверно все же текст по количеству символов форматом не разбить. Нужно наверно макрос писать, чтобы после ввода запустить макрос и он расставил точки в нужном столбце.
А пример в файле слабо? Думаю что текстовый формат должен помочь. Не сразу понял что хотите, счас попробую. Наверно все же текст по количеству символов форматом не разбить. Нужно наверно макрос писать, чтобы после ввода запустить макрос и он расставил точки в нужном столбце.gling
ЯД-41001506838083
Сообщение отредактировал gling - Четверг, 08.01.2015, 14:10
Norbis, Как вариант можно вот такую процедуру в модуль листа. [vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range) Application.ScreenUpdating = False Application.EnableEvents = False If Not Intersect(Target, Range("A1:A10")) Is Nothing Then Target.Value = Left(Target.Value, 2) & "." & Mid(Target.Value, 3, 4) & "." & Mid(Target.Value, 7, 1) & "." & Right(Target.Value, 5) End If Application.EnableEvents = True Application.ScreenUpdating = True End Sub
[/vba] Тут для диапазона А1:А10 Файл в приложении.
Norbis, Как вариант можно вот такую процедуру в модуль листа. [vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range) Application.ScreenUpdating = False Application.EnableEvents = False If Not Intersect(Target, Range("A1:A10")) Is Nothing Then Target.Value = Left(Target.Value, 2) & "." & Mid(Target.Value, 3, 4) & "." & Mid(Target.Value, 7, 1) & "." & Right(Target.Value, 5) End If Application.EnableEvents = True Application.ScreenUpdating = True End Sub
[/vba] Тут для диапазона А1:А10 Файл в приложении.DJ_Marker_MC
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
