Доброй ночи, Уважаемые знатоки! Есть список имен с разной длиной. Возможно ли изменить формат ячейки по условию (например, если длина имени>6, то применить центрирование слева)? Файл приложил Заранее спасибо!
Доброй ночи, Уважаемые знатоки! Есть список имен с разной длиной. Возможно ли изменить формат ячейки по условию (например, если длина имени>6, то применить центрирование слева)? Файл приложил Заранее спасибо!mkotik
Private Sub Worksheet_Change(ByVal Target As Range) If Not Application.Intersect(Range("B:B"), Target) Is Nothing Then If Len(Target.Value) > 6 Then Cells(Target.Row, 5).HorizontalAlignment = xlLeft Else Cells(Target.Row, 5).HorizontalAlignment = xlCenter End If End If End Sub
[/vba]
В модуле листа [vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range) If Not Application.Intersect(Range("B:B"), Target) Is Nothing Then If Len(Target.Value) > 6 Then Cells(Target.Row, 5).HorizontalAlignment = xlLeft Else Cells(Target.Row, 5).HorizontalAlignment = xlCenter End If End If End Sub
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
