подстановка значений в заданных интервалах данных

Вход

Регистрация

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

= Мир MS Excel/подстановка значений в заданных интервалах данных - Мир MS Excel

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

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

Мир MS Excel » Вопросы и решения » Вопросы по Excel » подстановка значений в заданных интервалах данных (Формулы/Formulas)

подстановка значений в заданных интервалах данных

adamm1603

Дата: Воскресенье, 04.12.2016, 17:41 | Сообщение № 1

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 144

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

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

Excel 2013

Доброго времени форумчане! Мучаюсь весь день, но без успехов(((
Имею таблицу с датами отлётов и прилётов, по месяцам, мне нужно определить диапазон, скажем прилёт 12 июня-вылет 20 октября и перенести его в график. В примере более понятно.
Данную тема открыта: http://www.planetaexcel.ru/forum....dannykh

К сообщению приложен файл: 4795521.xlsx (15.6 Kb)

Ответить

Wasilich

Дата: Понедельник, 05.12.2016, 00:55 | Сообщение № 2

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

Ранг: Старожил

Сообщений: 1232

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

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

2003

А так?
[vba]

Код

Sub www()
  Dim s&, x&, k&
  For s = 3 To Range("A" & Rows.Count).End(xlUp).Row
    x = 0
    For k = 3 To 17
      If Val(Cells(s, k)) > 0 And Cells(2, k) Like "*ПРИЛЕТ*" Then x = 1
      If x = 1 Then Cells(s, k).Interior.ColorIndex = 6
      If Val(Cells(s, k)) > 0 And Cells(2, k) Like "*ВЫЛЕТ*" Then x = 0
    Next
  Next
End Sub

[/vba]
[p.s.]Посмотрел на планете, и понял, мое предложение не к месту! Просто закрашиваю ячейки

[/p.s.]

Сообщение отредактировал Wasilich - Понедельник, 05.12.2016, 02:52

Ответить

adamm1603

Дата: Понедельник, 05.12.2016, 04:41 | Сообщение № 3

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 144

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

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

Excel 2013

ДА, но всё равно спасибо!

Ответить

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