Необходима формула для проставления даты. - Microsoft Office Excel

Сергей Ш. · 24.05.2013, 12:22

Добрый день.
Не могу подобрать формулу для проставления даты.
Хотелось бы, чтоб при вводе даты в ячейку №1 автоматически отображалась дата в ячейке №2, только на год вперед.
(Файл во вложении).

Serge 007 · 24.05.2013, 12:42

Код:

=ДАТА(ГОД(C3)+1;МЕСЯЦ(C3);ДЕНЬ(C3))

Сергей Ш. · 24.05.2013, 13:15

А можно это сделать макросом?

Сергей Ш. · 12.08.2013, 09:26

Необходим именно макрос, может кто поможет?

IgorGO · 12.08.2013, 10:19

Код:

Sub Add1Year2C3()
  MsgBox DateSerial(Year([c3]) + 1, Month([c3]), Day([c3]))
End Sub

Сергей Ш. · 12.08.2013, 10:45

Хотелось бы, чтоб при вводе даты в колонку "J" автоматически отображалась дата в соседней колонке "K", только на год вперед.
(Файл во вложении).

Сергей Ш. · 12.08.2013, 12:09

Помогите плиз!

Watcher_1 · 12.08.2013, 15:27

Ловите

Код:

Private Sub Worksheet_Change(ByVal Target As Range)
    If IsDate(Target.Value) = True And Target.Column = 10 Then
        Target.Next = Format(DateAdd("yyyy", 1, Target.Value), "dd.mm.yyyy")
    End If
End Sub

Сергей Ш. · 13.08.2013, 08:42

Спасибо, то что нужно. Очень помогли

24.05.2013, 12:42	#2
Serge 007 Участник клуба Регистрация: 15.12.2009 Сообщений: 1,448	Код: `=ДАТА(ГОД(C3)+1;МЕСЯЦ(C3);ДЕНЬ(C3))` Бесплатная помощь: www.excelworld.ru Платная помощь: serge_007.planetaexcel@mail.ru https://yoomoney.ru: 41001419691823

12.08.2013, 10:19	#5
IgorGO Новичок СтарожилДжуниор Регистрация: 05.02.2008 Сообщений: 9,487	Код: `Sub Add1Year2C3() MsgBox DateSerial(Year([c3]) + 1, Month([c3]), Day([c3])) End Sub` Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете

12.08.2013, 15:27	#8
Watcher_1 Форумчанин Регистрация: 22.06.2011 Сообщений: 325	Ловите Код: `Private Sub Worksheet_Change(ByVal Target As Range) If IsDate(Target.Value) = True And Target.Column = 10 Then Target.Next = Format(DateAdd("yyyy", 1, Target.Value), "dd.mm.yyyy") End If End Sub` Заказать макрос можно на сайте http://excel4you.ru/

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Необходима программа для визуализации медицинских алгоритмов лечения!!	bomiva	Фриланс	4	19.06.2012 18:44
Необходима формула нахождения среднего значения	rimmlyanka	Microsoft Office Excel	15	11.06.2011 09:54
Формула подстановки даты	sergantikus	Microsoft Office Excel	2	29.06.2010 13:16
необходима математическая формула для построения сферы	Rin	Мультимедиа в Delphi	9	22.04.2010 21:16
Необходима программа для Forex...	Chuwak_Zol	Фриланс	3	16.03.2008 22:20

24.05.2013, 13:15	#3
Сергей Ш. Пользователь Регистрация: 02.04.2013 Сообщений: 79	А можно это сделать макросом?

12.08.2013, 09:26	#4
Сергей Ш. Пользователь Регистрация: 02.04.2013 Сообщений: 79	Необходим именно макрос, может кто поможет?

12.08.2013, 12:09	#7
Сергей Ш. Пользователь Регистрация: 02.04.2013 Сообщений: 79	Помогите плиз!

13.08.2013, 08:42	#9
Сергей Ш. Пользователь Регистрация: 02.04.2013 Сообщений: 79	Спасибо, то что нужно. Очень помогли