Макрос для форматирования

[waleryth]

Всем доброго времени суток!
Помогите пожалуйста, я раньше с макросами ни когда не работал!
Задача такова!
Имеется таблица с заполненными данными, например(фрагмент одного стобца):

130
197,4651168
130
130
130
130
178,9819139
и т.д.

Необходимо найти разность последующий - с предыдущем, т.е. 197,4651168 - 130 = 67,46511678 это разность, затем если разность > 50% от предыдущего значения (50% от 130 = 65) то ячейку выделить цветом. т.е. 67,46511678>65.
УФФ! Надеюсь понятно изложил?

[Watcher_1]

Sub TextBox1_Click()
    i = 1
    Do
        i = i + 1
        If Range("A" & i) = "" Then Exit Do
        If Range("A" & i) - Range("A" & i - 1) > Range("A" & i - 1) / 2 Then Range("A" & i).Font.Color = vbGreen
    Loop
End Sub

[Казанский]

Тут макрос не нужен. Условное форматирование, формула (при активной ячейке А2)

=A2-A1>A1/2

[DiemonStar]

Что-то такое?

[Watcher_1]

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

это нормально.
мало того, Вы практически нашли решение - УФ (условное форматирование) это то, что справиться с Вашей задачей.
в колонке А подсвечиватются те, что больше предыдущего на 50%, в колонке В - те, что отличаются от предыдущего более чем на 50%.

Чот ничего не светит просто циферки стоят
Мож я что-то не вижу?

[waleryth]

Всем спосибо за оперативный ответ!
Подходит вариант

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

Sub TextBox1_Click()
    i = 1
    Do
        i = i + 1
        If Range("A" & i) = "" Then Exit Do
        If Range("A" & i) - Range("A" & i - 1) > Range("A" & i - 1) / 2 Then Range("A" & i).Font.Color = vbGreen
    Loop
End Sub

Но почемуто ругается на

If Range("A" & i) - Range("A" & i - 1) > Range("A" & i - 1) / 2 Then

Пишет мол не соответствие типов

Run-time error '13'
Type mismatch



Aaaa.
Разобрался!
Просто первая строчка это название столбца и из за этого 'Run-time error '13'
Type mismatch'.
Вот мой код
Sub Pik()
Dim i As Integer
i = 2
Do
i = i + 1
If Range("J" & i) = "" Then Exit Do
If (Range("J" & i) - Range("J" & i - 1)) > (Range("J" & i - 1) / 100 * 50) Then Range("J" & i).Interior.Color = vbGreen
Loop
End Sub

[IgorGO]

допустим А1=-100, а А2=-99
по Вашему алгоритму А2 позеленеет, хотя значение увеличилось всего на 1%, а не 50.

[waleryth]

допустим А1=-100, а А2=-99
по Вашему алгоритму А2 позеленеет, хотя значение увеличилось всего на 1%, а не 50.

Ведь так и надо!

Вы не верно поняли Т.З!
Необходимо найти разность последующий - с предыдущем, затем если разность > 50% от предыдущего значения то ячейку выделить цветом. т.е.

-99-(-100)=1
50% от -100 это -50
соответственно 1 больше -50, значит -99 покрасим в зеленый цвет

У меня возник еще вопросик! Как поступить с тем что в столбцах имеются пустые ячейки и соответственно данное условие для завершения цикла завершается не достигнув конца документа?

If Range("A" & i) = "" Then Exit Do

Какой оператор можно использовать? Например в Делфи есть оператор EOF а как в VBA я не знаю?!

[IgorGO]

в VBA тоже есть EOF.
только это настолько же далеко от поиска последней заполненной ячейки, как рессора трактора "Беларусь" от автомобиля "Феррари".

используйте:

LR = cells(rows.count,1).end(xlup).row

чтобы определить строку с последней заполненой ячейкой в 1-й колонке*

[Watcher_1]

Попробуйте так

Sub Pik()
Dim i As Integer
For i=2 to ActiveSheet.UsedRange.Rows.Count
If Range("J" & i) = "" Then Exit Do
If (Range("J" & i) - Range("J" & i - 1)) > (Range("J" & i - 1) / 100 * 50) Then Range("J" & i).Interior.Color = vbGreen
next
End Sub