Центрирование текста в ячейке по условию

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

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

Мир MS Excel » Вопросы и решения » Вопросы по Excel » Центрирование текста в ячейке по условию (Формулы/Formulas)

mkotik

Дата: Среда, 20.02.2019, 01:01 | Сообщение № 1

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 181

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

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

Excel 2013

Доброй ночи, Уважаемые знатоки!
Есть список имен с разной длиной.
Возможно ли изменить формат ячейки по условию (например, если длина имени>6, то применить центрирование слева)?
Файл приложил
Заранее спасибо!

К сообщению приложен файл: 7501683.xlsx (9.1 Kb)

Сообщение отредактировал mkotik - Среда, 20.02.2019, 01:02

Ответить

vikttur

Дата: Среда, 20.02.2019, 01:25 | Сообщение № 2

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

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

Сообщений: 2941

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

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

В модуле листа
[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

[/vba]

К сообщению приложен файл: 5222112.xlsm (15.7 Kb)

Ответить

mkotik

Дата: Среда, 20.02.2019, 01:28 | Сообщение № 3

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 181

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

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

Excel 2013

vikttur, спасибо за оперативный ответ!
А без макроса это невозможно? Безопасность не пропустит

Ответить

vikttur

Дата: Среда, 20.02.2019, 01:30 | Сообщение № 4

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

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

Сообщений: 2941

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

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

Можно. Вручную

Ответить

_Boroda_

Дата: Среда, 20.02.2019, 11:01 | Сообщение № 5

Группа: Модераторы

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

Сообщений: 16675

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

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

2003; 2007; 2010; 2013 RUS

Цитата mkotik, 20.02.2019 в 01:28, в сообщении № 3 ()

А без макроса это невозможно?

Можно Условным форматированием. Но тоже немного нестандартным
Вот здесь посмотрите
http://www.excelworld.ru/forum/7-38667-1

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995