Присвоение диапазона заданному условию

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Присвоение диапазона заданному условию (Макросы/Sub)

Sonik2020

Дата: Среда, 05.08.2020, 19:23 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 2

Репутация: 0 ±

Замечаний: 0% ±

Excel 2019

Друзья,

Есть вот такое условие:

[vba]

Код

If Range("I2") = Empty Then Range("N2") = "Просрочено"
If Range("H2") > Now Then Range("N2") = "Срок не наступил"
If Range("I2") > 0 Then Range("N2") = "Выполнено"
If Range("G2") = 0 Then Range("N2") = Empty
If Range("H2") - Now <= 60 Then Range("N2") = "Срок выполнения 60 дней или меньше"
If Range("N2") = "Просрочено" Then Range("N2").Interior.Color = vbRed
If Range("N2") = "Срок не наступил" Then Range("N2").Interior.Color = vbYellow
If Range("N2") = "Срок выполнения 60 дней или меньше" Then Range("N2").Interior.Color = RGB(255, 192, 0)

[/vba]

Помогите пожалуйста продолжить данное условие дальше по строкам вниз в этих столбцах.

Заранее спасибо.

Ответить

gling

Дата: Среда, 05.08.2020, 19:53 | Сообщение № 2

Группа: Друзья

Ранг: Участник клуба

Сообщений: 2563

Репутация: 706 ±

Замечаний: 0% ±

2010

Здравствуйте.
Можно так до 1000
строки[vba]

Код

Dim i As Long
For i = 2 To 1000
    If Range("I" & i) = Empty Then Range("N" & i) = "Просрочено"
    '........
    If Range("N" & i) = "Срок выполнения 60 дней или меньше" Then Range("N" & i).Interior.Color = RGB(255, 192, 0)
Next

[/vba]

ЯД-41001506838083

Сообщение отредактировал gling - Среда, 05.08.2020, 19:53

Ответить

Sonik2020

Дата: Среда, 05.08.2020, 20:03 | Сообщение № 3

Группа: Пользователи

Ранг: Прохожий

Сообщений: 2

Репутация: 0 ±

Замечаний: 0% ±

Excel 2019

gling,
Все работает! Спасибо огромное!

Ответить

Присвоение диапазона заданному условию (Макросы/Sub)

Страница 1 из 1
1