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

Вход

Регистрация

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

 

= Мир MS Excel/Поворот текста я ячейках - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Поворот текста я ячейках (Макросы/Sub)
Поворот текста я ячейках
stepan190 Дата: Понедельник, 04.05.2020, 13:17 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 9
Репутация: 0 ±
Замечаний: 0% ±

Excel 2019
как на всех ячейках листа макросом повернуть текст в нормальное положение (горизонтально) и эту измененную ячейку залить красной заливкой?


Stepan
 
Ответить
Сообщениекак на всех ячейках листа макросом повернуть текст в нормальное положение (горизонтально) и эту измененную ячейку залить красной заливкой?

Автор - stepan190
Дата добавления - 04.05.2020 в 13:17
Nic70y Дата: Понедельник, 04.05.2020, 18:38 | Сообщение № 2
Группа: Друзья
Ранг: Экселист
Сообщений: 6571
Репутация: 1448 ±
Замечаний: 0% ±

ru13;10;03
всех ячейках
лень что-то,
для выделенных
[vba]
Код
Sub u_751()
    Application.ScreenUpdating = False
    For Each c In Selection
        If c.Orientation <> -4128 Then
            c.Interior.Color = 255
            c.Orientation = 0
        End If
    Next
    Application.ScreenUpdating = True
End Sub
[/vba]


Яндекс Деньги 41001841029809
 
Ответить
Сообщение
всех ячейках
лень что-то,
для выделенных
[vba]
Код
Sub u_751()
    Application.ScreenUpdating = False
    For Each c In Selection
        If c.Orientation <> -4128 Then
            c.Interior.Color = 255
            c.Orientation = 0
        End If
    Next
    Application.ScreenUpdating = True
End Sub
[/vba]

Автор - Nic70y
Дата добавления - 04.05.2020 в 18:38
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Поворот текста я ячейках (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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