Форматирование диапазона ячеек

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

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

07.02.2025 08:19:24

Добрый день.
Подскажите, пожалуйста, как в диапазоне ячеек убрать выделение жирным шрифтом? Ну т.е. в диапазоне ячеек некоторые рандомно отформатированы, так, что шрифт жирный и перед началом работы требуется этот жирный шрифт убрать.

Делаю так:

Код
ThisWorkbook.Sheets("гр_тех_обслуж_срс").Range("A1:A3000").Style = "Normal"

Выдает ошибку: Subscript out of range.
Спасибо.

Изменено: john22255 - 07.02.2025 08:20:53

Sanja Модератор Сообщений: 19133 Регистрация: 10.01.2013	#2 07.02.2025 08:24:39 Запишите макрорекордером нужные действия и будет Вам образец кода для изучения Согласие есть продукт при полном непротивлении сторон

john22255

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

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

07.02.2025 08:29:59

Сделал так:

Код
Range("A1:A3000").Select Selection.Font.Bold = False

Sanja

Модератор

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

07.02.2025 08:34:36

Вот видите. Избавиться от Select'ов, добавить родительские объекты и будет Вам готовый код
Изучайте инструменты отладки кода.
По каждой ерунде на форум строчить - моветон

Код
ThisWorkbook.Worksheets("гр_тех_обслуж_срс").Range("A1:A3000").Font.Bold = False

Согласие есть продукт при полном непротивлении сторон