Очень нужна Ваша помощь!!! - Microsoft Office Excel

innadans · 17.05.2009, 20:12

Необходимо написать код: если в строке есть значение "1" или "100", то выделить всю строку цветом.Заранее спасибо.

EducatedFool · 17.05.2009, 20:55

Код:

Sub test()
    Dim ro As Range: On Error Resume Next: Application.ScreenUpdating = False
    ActiveSheet.UsedRange.EntireRow.Interior.ColorIndex = 0
    For Each ro In ActiveSheet.UsedRange.Rows
        ro.Find(1, , , xlWhole).EntireRow.Interior.Color = vbGreen
        ro.Find(100, , , xlWhole).EntireRow.Interior.Color = vbGreen
    Next ro
End Sub

innadans · 17.05.2009, 21:07

Спасибо за оперативность)

17.05.2009, 20:12	#1
innadans Новичок Джуниор Регистрация: 17.05.2009 Сообщений: 2	Очень нужна Ваша помощь!!! Необходимо написать код: если в строке есть значение "1" или "100", то выделить всю строку цветом.Заранее спасибо.

17.05.2009, 20:55	#2
EducatedFool Программист VBA СуперМодератор Регистрация: 13.07.2008 Сообщений: 6,856	Код: `Sub test() Dim ro As Range: On Error Resume Next: Application.ScreenUpdating = False ActiveSheet.UsedRange.EntireRow.Interior.ColorIndex = 0 For Each ro In ActiveSheet.UsedRange.Rows ro.Find(1, , , xlWhole).EntireRow.Interior.Color = vbGreen ro.Find(100, , , xlWhole).EntireRow.Interior.Color = vbGreen Next ro End Sub` __Полезные надстройки для Excel. Парсинг сайтов и файлов. Макросы любой сложности на заказ. Мониторинг цен конкурентов

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
мне еще ваша помощь нужна очень	umiko	Помощь студентам	9	22.05.2009 09:57
Очень нужна ваша помощь с прогой	Pingvinenok	Фриланс	3	05.06.2008 23:32

17.05.2009, 21:07	#3
innadans Новичок Джуниор Регистрация: 17.05.2009 Сообщений: 2	Спасибо за оперативность)