Установка сегодняшней даты в ячейку (для Excel 2007) - Microsoft Office Excel

sergeevaelena · 15.03.2012, 10:53

Здравствуйте!
Не удалось найти работающий в excel 2007 макрос, прошу вашей помощи...
Задача такова:
Ведется экпертиза входящей документации и каждому документу присваиваются некие характеристики. Результатом экспертизы является заключение: В работу, На доработку или Отказ.
Необходимо, в случае заключения " В работу" установить сегодняшнюю дату, как значение. Если заключение изменится на любое другое - дату удалять. При новой установке заключения: В работу - снова установить сегодняшнюю дату, как значение.

P.S. К сожалению с этого компа не могу приложить файл в excel 2007 поэтому прикладываю в 2003, но необходимо чтобы макрос работал в 2007.
Спасибо всем заранее.

IgorGO · 15.03.2012, 11:56

парвой кнопкой мыши по ярлыку листа1 / исходный текст.
вставьте в открывшееся окно этот мощный макрос:

Код:

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Column <> 7 Or Target.Cells.Count > 1 Then Exit Sub
  If Target = "В РАБОТУ" Then Target.Offset(0, 2) = Date
End Sub

(подойдет для обоих версий офиса) удачи!

sergeevaelena · 15.03.2012, 12:59

Спасибо! Попробовала макрос в excel 2007... Действительно мощный макрос. Единственное, что при изменении заключения с "В РАБОТУ" на любое другое дата не удаляется. Но это не критично. Еще раз большое спасибо.

Hugo121 · 15.03.2012, 14:07

А продолжить?

Код:

If Target = "В РАБОТУ" Then Target.Offset(0, 2) = Date Else Target.Offset(0, 2) = ""

IgorGO · 15.03.2012, 14:51

Лена, как скажете...
при замене значения с "В РАБОТУ" на что-то другое, можно хоть диск отформатировать, не то что одну ячейку очистить.

15.03.2012, 11:56	#2
IgorGO Новичок СтарожилДжуниор Регистрация: 05.02.2008 Сообщений: 9,487	парвой кнопкой мыши по ярлыку листа1 / исходный текст. вставьте в открывшееся окно этот мощный макрос: Код: `Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column <> 7 Or Target.Cells.Count > 1 Then Exit Sub If Target = "В РАБОТУ" Then Target.Offset(0, 2) = Date End Sub` (подойдет для обоих версий офиса) удачи! Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете Последний раз редактировалось IgorGO; 15.03.2012 в 14:47.

15.03.2012, 12:59	#3
sergeevaelena Амбидекстр Пользователь Регистрация: 26.10.2010 Сообщений: 11	Спасибо! Попробовала макрос в excel 2007... Действительно мощный макрос. Единственное, что при изменении заключения с "В РАБОТУ" на любое другое дата не удаляется. Но это не критично. Еще раз большое спасибо. Если сегодня вы не узнали ничего нового, значит вы прожили день зря.

15.03.2012, 14:07	#4
Hugo121 Старожил Регистрация: 11.05.2010 Сообщений: 5,170	А продолжить? Код: `If Target = "В РАБОТУ" Then Target.Offset(0, 2) = Date Else Target.Offset(0, 2) = ""` webmoney: E265281470651 Z422237915069 R418926282008

15.03.2012, 14:51	#5
IgorGO Новичок СтарожилДжуниор Регистрация: 05.02.2008 Сообщений: 9,487	Лена, как скажете... при замене значения с "В РАБОТУ" на что-то другое, можно хоть диск отформатировать, не то что одну ячейку очистить. Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
подставление данных относительно сегодняшней даты	johny_03	Microsoft Office Excel	12	21.12.2011 15:38
Даты в excel 2007/2010	alex1910	Microsoft Office Excel	11	11.11.2010 15:52
Получить ячейку из формулы (VBA, Excel 2007)	Makso	Microsoft Office Excel	6	13.04.2010 15:40
Вставка даты в Excel 2007	Loiso	Microsoft Office Excel	3	19.03.2010 17:35
Глюк Excel-2007??? Формулы в ячейку из VBA	Rafik	Microsoft Office Excel	7	24.03.2009 13:59