Вычесть дату - Мир MS Excel

Вход

Регистрация

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

= Мир MS Excel/Вычесть дату - Мир MS Excel

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

Вычесть дату (Макросы/Sub)

Вычесть дату

ant6729

Дата: Среда, 28.03.2018, 16:56 | Сообщение № 1

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

Ранг: Ветеран

Сообщений: 533

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

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

Excel 2010

Добрый вечер, всем!

[vba]

Код

Sub ddd()

lr = Cells(Rows.Count, 1).End(xlUp).Row

For i = 2 To lr
m = Cells(i, 6).Value - Cells(i, 11).Value

If Cells(i, 5).Value = Cells(i, 10).Value Then Cells(i, 13).Value = m
Next i

End Sub

[/vba]

Не могу вычесть дату.
Подскажите, пожалуйста, что я делаю не так?

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

Ответить

Nic70y

Дата: Среда, 28.03.2018, 17:46 | Сообщение № 2

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

Ранг: Экселист

Сообщений: 9223

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

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

Excel 2010

у Вас не даты, а текст

ЮMoney 41001841029809

Ответить

sboy

Дата: Среда, 28.03.2018, 17:57 | Сообщение № 3

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

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

Сообщений: 2566

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

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

Excel 2010

Цитата Nic70y, 28.03.2018 в 17:46, в сообщении № 2 ()

у Вас не даты, а текст

Попробуйте использовать Cdate перед каждым Value
[vba]

Код

CDate(Cells(i, 5).Value)

[/vba]
только обработчик ошибок нужен, если не сможет в дату превратить

Яндекс: 410016850021169

Ответить

ant6729

Дата: Среда, 28.03.2018, 21:00 | Сообщение № 4

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

Ранг: Ветеран

Сообщений: 533

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

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

Excel 2010

Спасибо sboy

Ответить

Вычесть дату (Макросы/Sub)

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