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

Вход

Регистрация

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

 

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

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир 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
Группа: Друзья
Ранг: Экселист
Сообщений: 7725
Репутация: 1853 ±
Замечаний: 0% ±

Excel 2010
всех ячейках
лень что-то,
для выделенных
[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]


ЮMoney 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
Поиск:

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