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

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

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

указать в ячейке начальную и конечную даты (Формулы/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

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

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

Сообщений: 16675

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

Замечаний: ±

2003; 2007; 2010; 2013 RUS

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

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

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

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

Код

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

[/vba]

К сообщению приложен файл: 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

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

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

Сообщений: 16675

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

Замечаний: ±

2003; 2007; 2010; 2013 RUS

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

Ответить

Nic70y

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

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

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

Сообщений: 8959

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

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

Excel 2010

Код

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

[vba]

Код

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

[/vba]
Вдруг правильно