указать в ячейке начальную и конечную даты

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

указать в ячейке начальную и конечную даты (Формулы/Formulas)

Gold_Barsik

Дата: Понедельник, 21.05.2018, 19:22 | Сообщение № 1

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

Ранг: Обитатель

Сообщений: 459

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

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

2003

1) Как указать в ячейке начальную и конечную даты при выделении диапазона? можно назвать её ПЕРИОД ДАТ. Т.е. ставим в ячейке знак =, выделяем нужный диапазон и в результате получаем начальную дату-конечную дату.
2) Что бы после из этой ячейки вычислялось количество дней, можно назвать их ДЛИНА ПЕРИОДА. т.е. ставим в ячейке знак =, выделяем нужную ячейку с диапазоном дат (ПЕРИОД ДАТ) и результате получаем число дней этого диапазона (ПЕРИОД ДАТ) и точное число (десятичное) месяцев этого (ПЕРИОД ДАТ) в другой ячейке.

К сообщению приложен файл: _Microsoft_Exce.xls (18.5 Kb)

Сообщение отредактировал Gold_Barsik - Понедельник, 21.05.2018, 20:02

Ответить

_Boroda_ Дата: Понедельник, 21.05.2018, 21:40 | Сообщение № 2

Группа: Админы

Ранг: Местный житель

Сообщений: 16910

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

Замечаний: ±

2003; 2007; 2010; 2013 RUS

Засунул все это в один макрос
Это

Цитата Gold_Barsik, 21.05.2018 в 19:22, в сообщении № 1 ( писал(а)):

ставим в ячейке знак =, выделяем нужный диапазон

делайте в столбце D

Private Sub Worksheet_Change(ByVal Target As Range) Dim d_ As Range With Target If .Count > 1 Then Exit Sub If Left(.Formula, 1) <> "=" Then Exit Sub ar = Split(Mid(.Formula, 2), ":") If UBound(ar) <> 1 Then Exit Sub Set d_ = Range(Range(ar(0)), Range(ar(1))) Application.EnableEvents = 0 If .Column = 4 Then .Value = CDate(WorksheetFunction.Min(d_)) & "-" & CDate(WorksheetFunction.Max(d_)) .Offset(, 2).Value = "дней: " & Round(WorksheetFunction.Max(d_) - WorksheetFunction.Min(d_) + 1, 0) .Offset(, 3).Value = "месяцев: " & Round((WorksheetFunction.Max(d_) - WorksheetFunction.Min(d_) + 1) / 30, 2) End If Application.EnableEvents = 1 End With End Sub

К сообщению приложен файл: 6948752.xls (42.5 Kb)

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

Ответить

Gold_Barsik

Дата: Понедельник, 21.05.2018, 21:51 | Сообщение № 3

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

Ранг: Обитатель

Сообщений: 459

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

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

2003

Большое СПАСИБО! А формулой никак?

Ответить

_Boroda_

Дата: Понедельник, 21.05.2018, 21:57 | Сообщение № 4

Группа: Админы

Ранг: Местный житель

Сообщений: 16910

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

Замечаний: ±

2003; 2007; 2010; 2013 RUS

Не, к сожалению никак. Формула сама себя в ячейке менять не может

Ответить

Nic70y Дата: Понедельник, 21.05.2018, 21:59 | Сообщение № 5

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

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

Сообщений: 9136

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

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

Excel 2010

=ТЕКСТ(МИН(A16:A18);"ДД.ММ.ГГГГ")&"-"&ТЕКСТ(МАКС(A16:A18);"ДД.ММ.ГГГГ")

Function ПериодДат(S As Range) u_01 = WorksheetFunction.Min(S) u_02 = WorksheetFunction.Max(S) u_03 = Format(u_01, "dd.mm.yyyy") u_04 = Format(u_02, "dd.mm.yyyy") ПериодДат = u_03 & "-" & u_04 End Function