Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 15.11.2010, 04:59   #1
nixelent
Новичок
Джуниор
 
Регистрация: 15.11.2010
Сообщений: 2
По умолчанию Как реализовать заполнение в ячейке датой последнего редактирования строки?

Мое почтение уважаемые форумчане и сенсеи и магистры ).
Задался вопросом контролировать своих коллег по поводу исполнения ими своих обязанностей.

Задача одновременно и очень простая и для меня пока недостижимая:

Входные данные:
таблица n-строк m-столбцов. В строках записи, в столбцах позиции с данными по каждой записи

Задача: вносить в каждую ячейку m1-nX каждой строки дату последнего редактирования данных конкретной строки.

Пример: пользователь редактирует ЛЮБУЮ ячейку строки 155. в Ячейку 155-1 автоматически заносится дата изменения ячеек, к примеру 15.11.2010 или ранее введенная дата меняется. То есть другими словами, задача контролировать меняют ли вручную пользователи данные в строках или гоняют пасьянс )

Я абсолютно уверен, что реализовать это довольно не сложно, вопрос как ? макросом вба или условным форматированием, и если вас не затруднит оставьте пример на одной ячейке. Далее думаю разберусь. Заранее огромное Вам спасибо и успехов!
nixelent вне форума Ответить с цитированием
Старый 15.11.2010, 09:16   #2
VictorM
Старожил
 
Аватар для VictorM
 
Регистрация: 15.05.2008
Сообщений: 2,058
По умолчанию

Наверное все это можно сделать так:
Код:
Sub Worksheet_SelectionChange(ByVal Target As Range)
    iDate = Date
    iRow = ActiveCell.Row
    Cells(iRow, 1) = iDate
End Sub
Отслеживается весь рабочий лист и при любых изменениях в нем, в столбце "А" изменяемой строки меняется дата.
"Дайте людям рыбы, и вы накормите их на весь день; научите их ловить рыбу - и вы накормите их на всю жизнь"
"Большое спасибо" - Z261597841314, R208907249777, U447361470499
VictorM вне форума Ответить с цитированием
Старый 15.11.2010, 10:13   #3
nixelent
Новичок
Джуниор
 
Регистрация: 15.11.2010
Сообщений: 2
По умолчанию

Огромное спасибо! А что мне с этим делать?
nixelent вне форума Ответить с цитированием
Старый 15.11.2010, 10:22   #4
VictorM
Старожил
 
Аватар для VictorM
 
Регистрация: 15.05.2008
Сообщений: 2,058
По умолчанию

Цитата:
А что мне с этим делать?
Копируете код и вставляете в модуль рабочего листа.
п.к.м. на ярлыке листа, в котором Вам необходимо отслеживать события - Исходный код - Вставить.
"Дайте людям рыбы, и вы накормите их на весь день; научите их ловить рыбу - и вы накормите их на всю жизнь"
"Большое спасибо" - Z261597841314, R208907249777, U447361470499
VictorM вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Как реализовать RichMemo c графическими указателями в начале строки? besserebrenik Общие вопросы Delphi 5 23.11.2009 18:04
Дата и время редактирования строки! PapaHedgehog Microsoft Office Excel 2 28.10.2009 20:49
Заполнение ячейки информацией из справочника, который сжимается по мере детализации информации в ячейке Tintin99 Microsoft Office Excel 2 26.09.2009 00:48
Как реализовать многострочность в ячейке NextSheet? Roof Компоненты Delphi 0 11.02.2009 17:27
В FileListBox1 дата последнего редактирования файла lexaltd Компоненты Delphi 2 06.08.2008 20:57