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

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

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

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

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

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 22.04.2008, 19:26   #1
yourself
Пользователь
 
Аватар для yourself
 
Регистрация: 10.11.2007
Сообщений: 38
По умолчанию Какой объект и событие использовать?

Пытаюсь сделать автоматическое заполнение ячеек (это неважно, там скрипт уже написал). Хочу сделать так, чтобы при движении курсора (или при заполнении определенной ячейки, или просто при щелчке на любой ячейке) происходило заполнение и перерасчет. Читал литературу, но нигде не нашел таких событий, которые бы мне подошли. Подскажите, к каким событиям привязать макрос? Пока привязан только на открытие книги, но этого явно не хватает.
yourself вне форума
Старый 23.04.2008, 00:28   #2
Pavel55
Форумчанин
 
Регистрация: 21.08.2007
Сообщений: 292
По умолчанию

'если внесли изменения в ячейке А1
Код:
Private Sub Worksheet_Change(ByVal Target As Range)
    If Selection.Cells.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("A1")) Is Nothing Then
        MsgBox "Вы изменили значение в ячейке А1", 64, ""
    End If
End Sub
'если выделели ячейка А3
Код:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Selection.Cells.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("A3")) Is Nothing Then
        MsgBox "Вы выделели ячейку А3", 64, ""
    End If
End Sub
Pavel55 вне форума
Закрытая тема


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Какой компонент использовать? XPAiN БД в Delphi 3 05.05.2008 08:45
Вредоносный HTTP-объект Gauss О форуме и сайтах клуба 4 16.04.2008 14:33
Как передать объект по наследству Legat Win Api 6 03.11.2007 11:19