Выбрать дату в календареВыбрать дату в календаре

Страницы: 1
узнать цвет в ячейке и изменить значение
 
Цитата
ber$erk пишет:
Sub www()
   Dim colNum&, iRow&
   
   colNum = 3 ' Номер колонки
   With ActiveSheet
       iRow = .UsedRange.Row + .UsedRange.Rows.Count
       
       For Each iCell In .Cells(1, colNum).Resize(iRow, 1)
           If iCell.Font.Color = vbRed Then
               iCell.Value = 1
           End If
       Next
   End With
End Sub


спасибо огромное, не думала что так быстро помогут)

а можно как то этот макрос сохранить... чтобы постоянно не держать книгу открытой в которой этот макрос
узнать цвет в ячейке и изменить значение
 
Ребята всем привет!
Прошу помощи, на работе задали отчет срочный, а его вручную не реально до завтра сделать  :(  
у меня есть столбец, в каждой его строке цифра 0, есть цифра с цветом шрифта обычный - черный, а есть цифра, у который красный шрифт, не заливка ячейки, а именно цвет шрифта красный....
так вот мне нужно всем значениям, данной колонки, которые имеют обычный (черный) цвет шрифта, присвоить вместо текущего значения 0, любое другое, например 1

поискала по форуму, поняла что только с помощью макроса, вот даже пример есть - http://www.planetaexcel.ru/forum/index.php?PAGE_NAME=read&FID=8&TID=29113
но там совсем тяжело.... если в экселе в формулах хоть что то понимаю, то в макросах сложно....
причем файлов очень много.... то-есть буду вручную открывать файл.... обрабатывать макросом столбец чтобы изменить ячейки с черным текстом, следующий файл и т д.

помогите пж
Изменено: lifeact - 17.07.2013 01:27:56
Страницы: 1
Наверх