автоформатирование

[ogololobov2009]

ДОбрые день.

Где-то читал, но нигде не могу найти..

Вообщем надо чтоб при вводе определенного значения в ячейку, она автоформатировалась в нужный мне формат.

Например пишем в ячейку "555", нажимаем энтер, а оно форматируется в "кв. 555"

Как это реализовать?

[Hugo121]

Пользовательский формат.
формат ячеек
последний пункт "все форматы"
в поле "Тип:" впишите
"кв. "#

[ogololobov2009]

Отлично!

Большое спасибо!

А как-то можно сделать логическое форматирование? Ну например, если вводишь число, начинающееся на "5" то форматируется как "Кв - 5**", а если начинается, допустим, с "7" - то "акт №7**"

[Hugo121]

Сомневаюсь, что пользовательский форматом или вообще форматом можно сделать.
Макросом можно - по событию изменения диапазона анализируем изменённое значение и соответственно дописываем впереди префикс или может быть можно поменять этой ячеейке пользовательский формат, чтоб само значение не менялось.

[ogololobov2009]

Да уж, к сожалению в макросах я ноль.

Вот нашел похожий макрос. http://www.planetaexcel.ru/forum.php?thread_id=26561

Может подскажите как его переделать под мой пример?

Заранее благодарен!!

[Hugo121]

Нет, это не то.
Скорее такой код можно переделать:

Вот с проставлением формата и заодно выключением отслеживания событий
(чтобы не вдруг зацикливания не было, если еще какие-то макросы на события подвешены,
да и побыстрее будет)

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Intersect(Target, Range("A2:A100")) Is Nothing Then Exit Sub
Application.EnableEvents = False
With Target.Offset(, 1)
.NumberFormat = "m/d/yyyy"
.Value = Date
.EntireColumn.AutoFit
End With
Application.EnableEvents = True
End Sub

[ogololobov2009]

Так, во что-то въезжаю, но все же необходима помощь.

Цель такая, вводятся два формата чисел. Необходимо, чтоб все, которые начинаются на "26" оставались без изменения, остальные - перед числом ставились символы "ПЗ - ".

Заранее простите за КАПС. Цветом не выделяется.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub ЧТО ДЕЛАЕТ ЭТА СТРОКА?
If Intersect(Target, Range("E5:E100")) КАК Я ПОНЯЛ, ЭТО ДИАПАЗОН, В КОТОРОМ ОТСЛЕЖИВАЮТСЯ ЗНАЧЕНИЯ Is Nothing Then Exit Sub ЕСЛИ НЕТ ДАННЫХ, ЗНАЧИТ ЗАКОНЧИТЬ МАКРОС?
Application.EnableEvents = False ЧТО ДЕЛАЕТ ЭТА СТРОКА?
With Target.Offset(, 1) ЧТО ДЕЛАЕТ ЭТА СТРОКА?
.NumberFormat = "m/d/yyyy" КАК Я ПОНЯЛ, ЭТО ЗАДАЕТСЯ ФОРМАТ ЯЧЕЙКИ. В МОЕМ СЛУЧАЕ БУДЕТ "ПЗ - "#
.Value = Date ЭТО ЗНАЧЕНИЕ ФОРМАТА? КАКОЕ В МОЕМ СЛУЧАЕ?
.EntireColumn.AutoFit ЭТО НАВЕРНО ЧТО-ТО ВЫРАВНИВАЕТ..
End With
Application.EnableEvents = True ЧТО ДЕЛАЕТ ЭТА СТРОКА?
End Sub

[Hugo121]

Application.EnableEvents = False - отключение обработки событий - оставить!
With Target.Offset(, 1) - сдвиг вправо - не нужно!
.Value = Date - заносит значение - можно использовать
NumberFormat - нужно заменить на customFormat что-ли, запишите синтаксис рекордером и посмотрите.
Нет - записал, получилось

Selection.NumberFormat = """ПЗ - ""#"

Остальное поняли.
Извините, убегаю..