узнать цвет в ячейке и изменить значение

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

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

16.07.2013 10:47:59

Ребята всем привет!
Прошу помощи, на работе задали отчет срочный, а его вручную не реально до завтра сделать

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

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

помогите пж

Изменено: lifeact - 17.07.2013 01:27:56

ber$erk

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

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

16.07.2013 11:05:28

Код

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

Учимся сами и помогаем другим...

lifeact

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

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

16.07.2013 11:25:39

Цитата
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

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

а можно как то этот макрос сохранить... чтобы постоянно не держать книгу открытой в которой этот макрос

ber$erk Пользователь Сообщений: 2735 Регистрация: 25.12.2012	#4 16.07.2013 11:26:35 ищите "личная книга макросов" Учимся сами и помогаем другим...

Читают тему