Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Присвоение диапазона заданному условию - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Присвоение диапазона заданному условию (Макросы/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]

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

Заранее спасибо.
 
Ответить
СообщениеДрузья,

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

[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]

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

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

Автор - Sonik2020
Дата добавления - 05.08.2020 в 19:23
gling Дата: Среда, 05.08.2020, 19:53 | Сообщение № 2
Группа: Друзья
Ранг: Старожил
Сообщений: 2200
Репутация: 546 ±
Замечаний: 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
 
Ответить
СообщениеЗдравствуйте.
Можно так до 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]

Автор - gling
Дата добавления - 05.08.2020 в 19:53
Sonik2020 Дата: Среда, 05.08.2020, 20:03 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 2
Репутация: 0 ±
Замечаний: 0% ±

Excel 2019
gling,
Все работает! Спасибо огромное!
 
Ответить
Сообщениеgling,
Все работает! Спасибо огромное!

Автор - Sonik2020
Дата добавления - 05.08.2020 в 20:03
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Присвоение диапазона заданному условию (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

jooble Яндекс цитирования
© 2010-2020 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!