Выделение цветом определённых ячеек

[Bbalt]

Есть маленькая проблемка которую очень надо решить.
Имеется список диспетчерских наименований 1859 штук.
Диспетчерское наименование должно быть не более 40 символов.
Выбирать из 1859 штук, те котоыре не по 40 символов, это муторно да и полюбому пропущу что нить.

Так вот собственно вопрос (проблема):
Можно ли написать макрос что бы все ячейки где количество символов больше 40 пометелись красным чветом(например)?

Помогите всё утро сижу никак не дотумкаю

[Юнлинг]

Сообщение от Bbalt

Есть маленькая проблемка которую очень надо решить.
Имеется список диспетчерских наименований 1859 штук.
Диспетчерское наименование должно быть не более 40 символов.
Выбирать из 1859 штук, те котоыре не по 40 символов, это муторно да и полюбому пропущу что нить.

Так вот собственно вопрос (проблема):
Можно ли написать макрос что бы все ячейки где количество символов больше 40 пометелись красным чветом(например)?

Помогите всё утро сижу никак не дотумкаю

Зачем макрос если можно решить все условным форматированием. См. вложение

[SAS888]

Есть много вариантов.
Если 1859 штук, да еще разбросанных по столбцам, то у условного форматирования "снесет крышу". К сожалению, автор не оговаривает, как и где могут располагаться те значения, которые нужно контролировать.
В общем случае, например, так:

Sub Main()
    Application.ScreenUpdating = False
    For Each Cell In ActiveSheet.UsedRange
        If Len(Cell) > 40 Then Cell.Interior.ColorIndex = 3
    Next
End Sub

Если же, контролируемые значения расположены, например, в одном столбце, то можно сделать процедуру гораздо быстрее.

[Volodshan]

Bbalt! Вы указали "Диспетчерское наименование должно быть не более 40 символов." Если из 2000 1500 будут больше и все "разукрашены", то все придется ВРУЧНУЮ перебирать, чтобы урезать? Может другой выход искать? Взять ПСТРом первые 40 символов. Если есть кодирововный лист, то по нему сделать замену. И т.д., и т.п. Поясните цель.

[Bbalt]

Спасибо Юнлинг!
Спасибо SAS888!

Попробовал оба способа, всё получилось!
СПАСИБО ОГРОМНОЕ!!!!

[Bbalt]

Сообщение от Volodshan

Bbalt! Вы указали "Диспетчерское наименование должно быть не более 40 символов." Если из 2000 1500 будут больше и все "разукрашены", то все придется ВРУЧНУЮ перебирать, чтобы урезать? Может другой выход искать? Взять ПСТРом первые 40 символов. Если есть кодирововный лист, то по нему сделать замену. И т.д., и т.п. Поясните цель.

Понимаю ваш вопрос!
Цель заключается в следующем:
Имеется справочник с диспетчерскими наименованиями (ДН), у каждого наименования огромная куча параметров и характеристик (столбцы) по которым (ДН) должно загружаться в более глобальную систему. Так вот эта система позволяет диспетчерское наименование лишь 40 символов.
Названия приблизительно такие:

"Здания электрических и тепловых сетей - инженерные сооружения для размещения специального оборудования переходного пункта высокой стороны"

Так вот нужно пометить эти наименования что бы показать специалистам по Электроэнергетике дабы они уложили название в 40 символов что бы им было удобно работать в дальнейшем.

P.S. После выборки пометились 469 ДН.
Для людей которые с компьютером работают отнюдь не каждый день, исправить 469 наименований куда легче, чем сначала найти эти 469 из 1859 наименований и ещё попутно их исправлять!