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

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

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

Восстановить пароль
Повторная активизация e-mail

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

Ответ
 
Опции темы Поиск в этой теме
Старый 10.04.2009, 16:54   #1
Flangini
Форумчанин
 
Аватар для Flangini
 
Регистрация: 11.02.2008
Сообщений: 119
По умолчанию Что это?

Господа расскажите пожалуйста (по строкам) что выполняет данный код:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("b2:b10000")) Is Nothing Then
With Target(1, 0)
.Value = Date
End With
End If
End Sub
Flangini вне форума Ответить с цитированием
Старый 10.04.2009, 17:18   #2
IgorGO
Новичок
СтарожилДжуниор
 
Аватар для IgorGO
 
Регистрация: 05.02.2008
Сообщений: 9,487
По умолчанию

этот макрос срабатывает каждый раз, когда изменились данные на листе.
If Target.Cells.Count > 1 Then Exit Sub
если одновременоо изменилось больше 1 ячейки - ничего не делаем
If Not Intersect(Target, Range("b2:b10000")) Is Nothing Then
если изменения прошли в колонке В (в одной из ячеек с 2 по 10000)
With Target(1, 0)
то в колонку А (левее изменившейся ячейки) вставляется текущая дата
.Value = Date
End With
End If
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
IgorGO вне форума Ответить с цитированием
Старый 12.04.2009, 11:28   #3
Flangini
Форумчанин
 
Аватар для Flangini
 
Регистрация: 11.02.2008
Сообщений: 119
По умолчанию

Большое спасибо!!! Просветил.
Flangini вне форума Ответить с цитированием
Ответ


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

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Что это за ошибка LuMax Помощь студентам 4 05.03.2013 13:18
что это за ошибка? maladoy БД в Delphi 2 20.01.2009 18:57
Что это было? дмидми О форуме и сайтах клуба 2 19.05.2008 00:24
C# RemoteObject - что это? Kriziun Общие вопросы .NET 2 15.03.2008 08:51