|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
25.06.2010, 16:24 | #1 |
Регистрация: 23.06.2010
Сообщений: 6
|
Установление даты последнего изменения в поле примечание
Ребят еще есть к вам просьбо такая штука - я уже обращался к вам на что получил ответ Вроде это уже было.
PHP код: Private Sub Worksheet_Change(ByVal Target As Range) If Target.Count > 1 Then Exit Sub If Not Intersect(Target, Range("H4:H9")) Is Nothing Then If MsgBox("Сохранить изменение " & Target.Value & "?", _ vbInformation + vbYesNo, "Изменения в ячейках") = vbYes Then Exit Sub With Application .EnableEvents = False: .Undo: .EnableEvents = True End With End If End Sub в этом коде выходит сообщение диалоговое окно хочу ли я сохранить значение в ячейке ,но теперь нужно еще одну ячейку сделать чтобы в ней отражалась дата изменение этой ячейки - напримерв в ячейке Н4 : Н9 были изменнения чтобы в соседней ячейке была дата последнего изменения КАК ПРАВИЛЬНО СОВМЕСТИТЬ ДВА КОДА ЧТОБЫ ТО И ТО РАБОТАЛО НА ОДНОМ ЛИСТЕ Private Sub Worksheet_Change(ByVal Target As Range) If Target.Count > 1 Then Exit Sub If Not Intersect(Target, Range("H4:H9")) Is Nothing Then If MsgBox("Сохранить изменение " & Target.Value & "?", _ vbInformation + vbYesNo, "Изменения в ячейках") = vbYes Then Exit Sub With Application .EnableEvents = False: .Undo: .EnableEvents = True End With End If End Sub Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells.Count > 1 Then Exit Sub If Not Intersect(Target, Range("A1:A1000")) Is Nothing Then With Target(1, 2) .Value = Now .EntireColumn.AutoFit End With End If End Sub Последний раз редактировалось vasyater; 25.06.2010 в 17:21. Причина: я кое что нашел но как правильно это совместить |
25.06.2010, 18:29 | #2 |
Старожил
Регистрация: 02.05.2009
Сообщений: 3,907
|
Возможно так
Код:
Анализ,обработка данных Недорого
|
27.06.2010, 10:53 | #3 | |
Форумчанин
Регистрация: 06.10.2009
Сообщений: 193
|
Цитата:
Код:
С Уважением, Костик
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Атрибуты файла - дата последнего изменения | iskurt | Общие вопросы C/C++ | 1 | 19.06.2010 13:21 |
Просмотр последнего добавленного элемента, установление на него камеры | PVD | Общие вопросы Delphi | 5 | 03.05.2010 14:32 |
Величина изменения данных текущей даты от предыдущей в сводных таблицах. | Strelec79 | Microsoft Office Excel | 0 | 05.08.2009 19:20 |
Дата последнего изменения файла | GrindeX | Паскаль, Turbo Pascal, PascalABC.NET | 2 | 26.05.2009 17:22 |
Запрет изменения даты | Viteef | Общие вопросы Delphi | 0 | 20.02.2008 05:09 |