Фиксация даты измения значения в ячейке - Microsoft Office Excel

Python · 13.12.2006, 18:12

Есть ячейка А1, в которой периодически меняется значение.
Как сделать так чтобы, внося данные в А1 01.01.2007 - эта дата отображалась в А2. Потом, допустим, 03.01.2007 я меняю данные в ячейке А1 и хочу чтобы уже эта дата отображалась в А3 и т.д...
Тобишь я менял значение ячейки А1 пять раз, даты изменений должны отображаться в ячейках А2,А3,А4,А6,А6...
Задача актуальна хотя бы для 20 изменений...

Кто знает? Подскажите...
Спасибо.

infinitiv · 13.12.2006, 19:07

Как вариант:
добавить на лист с целевой ячейкой макрос вида:

Код:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then Cells(Target.CurrentRegion.Rows.Count + 1, 1) = Now
End Sub

Макрос проверяет, является ли изменившаяся ячейка ячейкой A1, и если этот так, то очередная ячейка столбца А:А заполняется текущей датой.

Python · 13.12.2006, 19:32

Супер, но задача более широка. Таких ячеек как а1 много (250), они расположены в одном столбце. И даты изменений должны отображаться напротив каждой.
Может это и легко, но не умею редактировать в Visual Basic. Help

infinitiv · 13.12.2006, 19:40

Код:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then Cells(Target.Row, Application.WorksheetFunction.CountA(Rows(Target.Row)) + 1) = Now
End Sub

Python · 13.12.2006, 19:59

Спасибо большое, очень помогли!

Не могу справиться вот еще с какой задачей. Есть ячейка в которой должно подсчитываться к-во дат, которые отвечали бы критериям двух других ячеек (одна параметр "с", вторая параметр "по"). Тобишь чтобы в функции СЧЕТЕСЛИ, критерием выступали параметры ячеек.

infinitiv · 13.12.2006, 20:23

=СЧЁТЕСЛИ(5:5;"<=" & B2)-СЧЁТЕСЛИ(5:5;"<" & B1)
то есть определяестя количество дат меньших, чем дата "по", включая дату "по", и вычитается количество дат меньших чем дата "с", без даты "с".

Python · 13.12.2006, 20:33

файл..........

infinitiv · 13.12.2006, 20:47

Опишите суть задачи целиком и как можно подробнее, тогда дам готовое решение (правда уже видимо завтра).

13.12.2006, 18:12	#1
Python Пользователь Регистрация: 25.11.2006 Сообщений: 46	Фиксация даты измения значения в ячейке Есть ячейка А1, в которой периодически меняется значение. Как сделать так чтобы, внося данные в А1 01.01.2007 - эта дата отображалась в А2. Потом, допустим, 03.01.2007 я меняю данные в ячейке А1 и хочу чтобы уже эта дата отображалась в А3 и т.д... Тобишь я менял значение ячейки А1 пять раз, даты изменений должны отображаться в ячейках А2,А3,А4,А6,А6... Задача актуальна хотя бы для 20 изменений... Кто знает? Подскажите... Спасибо.

13.12.2006, 19:07	#2
infinitiv Пользователь Регистрация: 05.12.2006 Сообщений: 23	Как вариант: добавить на лист с целевой ячейкой макрос вида: Код: `Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$A$1" Then Cells(Target.CurrentRegion.Rows.Count + 1, 1) = Now End Sub` Макрос проверяет, является ли изменившаяся ячейка ячейкой A1, и если этот так, то очередная ячейка столбца А:А заполняется текущей датой.

13.12.2006, 19:40	#4
infinitiv Пользователь Регистрация: 05.12.2006 Сообщений: 23	Код: `Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 1 Then Cells(Target.Row, Application.WorksheetFunction.CountA(Rows(Target.Row)) + 1) = Now End Sub`

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Рисуем в ячейке DBGrig	_SERGEYX_	Компоненты Delphi	10	02.06.2008 13:39
Удаление символа в ячейке	Flangini	Microsoft Office Excel	2	05.05.2008 14:02
Фиксация значения	`Dmitry	Microsoft Office Excel	4	08.04.2008 13:04
Фиксация размера ячейки	Умелец	Microsoft Office Excel	7	12.09.2007 16:29
Доступ к конкретной ячейке	Gorin	БД в Delphi	14	27.06.2007 16:24

13.12.2006, 19:32	#3
Python Пользователь Регистрация: 25.11.2006 Сообщений: 46	Супер, но задача более широка. Таких ячеек как а1 много (250), они расположены в одном столбце. И даты изменений должны отображаться напротив каждой. Может это и легко, но не умею редактировать в Visual Basic. Help

13.12.2006, 20:23	#6
infinitiv Пользователь Регистрация: 05.12.2006 Сообщений: 23	=СЧЁТЕСЛИ(5:5;"<=" & B2)-СЧЁТЕСЛИ(5:5;"<" & B1) то есть определяестя количество дат меньших, чем дата "по", включая дату "по", и вычитается количество дат меньших чем дата "с", без даты "с".

13.12.2006, 20:47	#8
infinitiv Пользователь Регистрация: 05.12.2006 Сообщений: 23	Опишите суть задачи целиком и как можно подробнее, тогда дам готовое решение (правда уже видимо завтра).