Работа с датами с выводом информации в массив

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

Работа с датами с выводом информации в массив (Формулы/Formulas)

RastaVape

Дата: Среда, 10.10.2018, 19:35 | Сообщение № 1

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

Ранг: Новичок

Сообщений: 22

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

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

Excel 2016

Здравствуйте.

Помогите разобраться. Каким образом сделать так чтобы при в воде в столбце даты в соседних столбцах соответственно этой дате появлялся определенное значение.
Пример прилагается.

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

Ответить

_Boroda_

Дата: Среда, 10.10.2018, 19:42 | Сообщение № 2

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

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

Сообщений: 16888

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

Замечаний: ±

2003; 2007; 2010; 2013 RUS

Так нужно?

Код

=ЕСЛИ(ТЕКСТ($A3;"ГГГМ")=МАКС($A$1:B$1)&B$2;"К";"")

Или условным форматированием (файл _2)

К сообщению приложен файл: 3208611.xlsx (12.2 Kb) · 0632727.xlsx (11.4 Kb)

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

Ответить

Nic70y

Дата: Среда, 10.10.2018, 20:15 | Сообщение № 3

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

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

Сообщений: 9131

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

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

Excel 2010

такой вариант
[vba]

Код

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("A1:A65536")) Is Nothing Then
        u = --Format(Target, "MM") + (--Format(Target, "YY") - 18) * 12 - 5
        Target.Offset(0, u) = "К"
    End If
End Sub

[/vba]
ну там немного напильником подпилить