|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
05.11.2012, 19:19 | #1 |
Пользователь
Регистрация: 05.11.2012
Сообщений: 22
|
дата в соеднюю ячейку
Здравствуйте! подскажите как подправить макрос.
дата ставится даже без ввода цифр(т.е. если нажать просто на ячейку допустим А3 два раза-то рядом в соседней ячейке В3 появляется дата,то есть без ввода каких нибудь данных в А3) как это устранить? Private Sub Worksheet_Change(ByVal Target As Range) If Target.Count > 1 Then Exit Sub If Not Intersect(Target, Range("A:A")) Is Nothing Then With Target.Offset(0, 1) .Value = IIf(IsDate(.Value), .Value, Now) End With End If End Sub |
05.11.2012, 19:32 | #2 |
Старожил
Регистрация: 11.05.2010
Сообщений: 5,166
|
Потестите такой вариант - как-то ничего проще не придумалось:
Код:
webmoney: E265281470651 Z422237915069 R418926282008
Последний раз редактировалось Hugo121; 05.11.2012 в 21:20. |
05.11.2012, 19:40 | #3 |
Пользователь
Регистрация: 05.11.2012
Сообщений: 22
|
Вполне приемлимо . Спасибо
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Дата | mental | БД в Delphi | 7 | 02.08.2011 17:43 |
Дата введённая "ручками" и дата полученная по ссылке | kzld | Microsoft Office Excel | 0 | 06.05.2011 14:45 |
Вычитание дат(дата-дата=кол.дней) | zallza | Общие вопросы Delphi | 1 | 31.05.2010 22:50 |
дата | Артэс | Общие вопросы C/C++ | 2 | 02.07.2009 16:56 |
Дата Конечная (ДД.ММ.ГГГГ) - Дата Начальная (ДД.ММ.ГГГГ) = Количество Месяцев | stanislav24 | Microsoft Office Excel | 5 | 20.12.2008 10:36 |