Вычисление разрывов в интервале

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

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

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Вычисление разрывов в интервале (Макросы/Sub)

LexusBb

Дата: Вторник, 23.02.2016, 10:56 | Сообщение № 1

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

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

Сообщений: 8

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

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

Excel 2013

В работе по факту даны интервалы выполненые в определенное время. в колонке разрыв должны отображаться разрывы. в формуле это действие я прописал, только вот время исчислений длительное сильно. Подскажите как можно вычислить через VBA.

К сообщению приложен файл: 2_3.part1.rar (100.0 Kb) · 2_3.part2.rar (53.0 Kb)

Ответить

nilem

Дата: Вторник, 23.02.2016, 11:20 | Сообщение № 2

Группа: Авторы

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

Сообщений: 1613

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

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

Excel 2013, 2016

может формулу попроще?
для D9:

Код

=ЕСЛИ(C9<B10;C9;"")

Яндекс.Деньги 4100159601573

Ответить

SLAVICK

Дата: Вторник, 23.02.2016, 11:25 | Сообщение № 3

Группа: Модераторы

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

Сообщений: 2290

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

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

2019

Можно так например:
[vba]

Код

z1 = Range("a6:e" & lastrow).Value
    For i = 1 To UBound(z1) - 1
    If Not z1(i + 1, 2) = z1(i, 3) Then z1(i, 4) = z1(i, 3): z1(i, 5) = z1(i + 1, 2)
    Next
Range("a6:e" & lastrow).Value = z1

[/vba]
Или формулу полегче Ваша формула мало того что массивная так еще и в ссылке столбцы целиком.