Автозаполнение ячейки при изменении строки

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

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

Автозаполнение ячейки при изменении строки (Формулы)

squadgazzz

Дата: Четверг, 20.02.2014, 12:35 | Сообщение № 1

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

Ранг: Участник

Сообщений: 63

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

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

Excel 2010

Приветствую!
Какую формулу нужно прописать, чтобы при изменения какого-либо значения в строке в какой-либо ячейке, в другой нужной мне ячейке прописывалась сегодняшняя дата?
спасибо

Ответить

igrtsk

Дата: Четверг, 20.02.2014, 13:38 | Сообщение № 2

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

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

Сообщений: 314

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

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

Excel 2016

Куда прописать? В какой файл?

Инструктор по применению лосей в кавалерийских частях РККА

Ответить

Russel

Дата: Четверг, 20.02.2014, 15:06 | Сообщение № 3

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

Ранг: Старожил

Сообщений: 1394

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

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

Excel 2010

Формулой никак, только макросом.

QIWI 9173973973

Ответить

squadgazzz

Дата: Четверг, 20.02.2014, 15:19 | Сообщение № 4

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

Ранг: Участник

Сообщений: 63

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

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

Excel 2010

[vba]

Код

Private Sub Worksheet_Change(ByVal Target As Range)
     For Each cell In Target   'проходим по всем измененным ячейкам

        If Not Intersect(cell, Range("A1:A9999")) Is Nothing Then
             With cell.Offset(0, 3)
                .Value = Now
                .EntireColumn.AutoFit
             End With
                 End If
     Next cell

End Sub

[/vba]

Вопрос дополняется:

не могу потом удалить строчку. Excel думает, что строка не просто удаляется, а изменяется и дата выскакивает после удаления.
Как мне удалять теперь строки?

Ответить

igrtsk

Дата: Четверг, 20.02.2014, 15:32 | Сообщение № 5

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

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

Сообщений: 314

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

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

Excel 2016

Цитата squadgazzz, 20.02.2014 в 15:19, в сообщении № 4

Range("A1:A9999"))

Так задается диапазон, в котором любое изменение ячейки приводит к тому, что вводится текущая дата.
Если ваши строки в лежат указанном диапазоне, то макрос строго выполняет заданное правило

Инструктор по применению лосей в кавалерийских частях РККА

Ответить

squadgazzz

Дата: Пятница, 21.02.2014, 09:52 | Сообщение № 6

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

Ранг: Участник

Сообщений: 63

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

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

Excel 2010

Вот какой код спас меня:
[vba]

Код

If Target.Cells.Count > 1 Then Exit Sub

[/vba]

Теперь могу удалять легко строки, если выделяю больше 1 ячейки.
Может кому пригодится.

Сообщение отредактировал Serge_007 - Пятница, 21.02.2014, 22:19

Ответить

Автозаполнение ячейки при изменении строки (Формулы)

Страница 1 из 1
1