Повернуть текст в горизонтальное положение

Stepan190 Пользователь Сообщений: 2 Регистрация: 15.04.2020	#1 04.05.2020 13:05:39 Вы не подскажите как на всех ячейках листа макросом повернуть текст в нормальное положение (горизонтально) и эту измененную ячейку залить красной заливкой?

Пользователь

Сообщений: 6473 Регистрация: 05.02.2014

04.05.2020 13:14:57

Код
Sub ПовернутьИпокрасить() Dim c As Range For Each c In ActiveSheet.UsedRange.Cells If c.Orientation <> -4128 Then c.Orientation = -4128 c.Interior.Color = 255 End If Next End Sub

Stepan190 Пользователь Сообщений: 2 Регистрация: 15.04.2020	#3 04.05.2020 15:57:58 Спасибо