Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Центрирование текста в ячейке по условию - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Центрирование текста в ячейке по условию (Формулы/Formulas)
Центрирование текста в ячейке по условию
mkotik Дата: Среда, 20.02.2019, 01:01 | Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 143
Репутация: 0 ±
Замечаний: 0% ±

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


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

Автор - mkotik
Дата добавления - 20.02.2019 в 01:01
vikttur Дата: Среда, 20.02.2019, 01:25 | Сообщение № 2
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2921
Репутация: 525 ±
Замечаний: 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)
 
Ответить
СообщениеВ модуле листа
[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]

Автор - vikttur
Дата добавления - 20.02.2019 в 01:25
mkotik Дата: Среда, 20.02.2019, 01:28 | Сообщение № 3
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 143
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
vikttur, спасибо за оперативный ответ!
А без макроса это невозможно? Безопасность не пропустит :(
 
Ответить
Сообщениеvikttur, спасибо за оперативный ответ!
А без макроса это невозможно? Безопасность не пропустит :(

Автор - mkotik
Дата добавления - 20.02.2019 в 01:28
vikttur Дата: Среда, 20.02.2019, 01:30 | Сообщение № 4
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2921
Репутация: 525 ±
Замечаний: 0% ±

Можно. Вручную :)
 
Ответить
СообщениеМожно. Вручную :)

Автор - vikttur
Дата добавления - 20.02.2019 в 01:30
_Boroda_ Дата: Среда, 20.02.2019, 11:01 | Сообщение № 5
Группа: Модераторы
Ранг: Местный житель
Сообщений: 15020
Репутация: 5929 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
А без макроса это невозможно?

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


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

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

Автор - _Boroda_
Дата добавления - 20.02.2019 в 11:01
mkotik Дата: Среда, 20.02.2019, 12:31 | Сообщение № 6
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 143
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
_Boroda_, спасибо за подсказку - попробую разобраться. LO - это интересно :)
 
Ответить
Сообщение_Boroda_, спасибо за подсказку - попробую разобраться. LO - это интересно :)

Автор - mkotik
Дата добавления - 20.02.2019 в 12:31
mkotik Дата: Среда, 20.02.2019, 12:44 | Сообщение № 7
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 143
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Все получилось!
Еще раз Спасибо, Александр!
К сообщению приложен файл: 8249491.xlsx(9.2 Kb)


Сообщение отредактировал mkotik - Среда, 20.02.2019, 12:46
 
Ответить
СообщениеВсе получилось!
Еще раз Спасибо, Александр!

Автор - mkotik
Дата добавления - 20.02.2019 в 12:44
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Центрирование текста в ячейке по условию (Формулы/Formulas)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс цитирования
© 2010-2019 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!