Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Событие для конкретной ячейки / 16 сообщений из 16, страница 1 из 1
20.07.2005, 14:13:33
    #33175911
talgat
talgat
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Событие для конкретной ячейки
Возможно ли организовать вызов макроса по событию "активизация ячейки"
для конкретной ячейки, а не для всех ячеек листа?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.07.2005, 14:40:54
    #33176048
Пользователь2
Пользователь2
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Событие для конкретной ячейки
Попробуй так.

Код: plaintext
1.
2.
3.
4.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target = Range("A1") Then
        MsgBox "Событие"
    End If
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.07.2005, 15:05:39
    #33176147
talgat
talgat
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Событие для конкретной ячейки
Пользователь2Попробуй так.

Код: plaintext
1.
2.
3.
4.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target = Range("A1") Then
        MsgBox "Событие"
    End If
End Sub


Выдает событие при переходе на ЛЮБУЮ ЯЧЕЙКУ
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.07.2005, 15:16:23
    #33176200
Пользователь2
Пользователь2
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Событие для конкретной ячейки
У меня выдет событие если я перейду на ячейку "A1".
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.07.2005, 15:50:53
    #33176348
KiLLun
KiLLun
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Событие для конкретной ячейки
подскажите йа нажал в екселе Alt+F11. добавил к книге Module(модуль). туда скопировал код
Код: plaintext
1.
2.
3.
4.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target = Range("A1") Then
        MsgBox "Событие"
    End If
End Sub

Что теперь делать чтобы запустить эту процедуру. Нажимаю выполнить - спрашивает имя макроса. Как увидеть результат выполнения процедуры.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.07.2005, 15:51:52
    #33176352
talgat
talgat
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Событие для конкретной ячейки
Пользователь2У меня выдет событие если я перейду на ячейку "A1".

Я текст не набирал, а скопировал твой. Ошибка исключается. Но выдает событие на кождой ячейке. Версия EXCEL 2000 SR-1
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.07.2005, 15:51:52
    #33176353
big-duke
big-duke
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Событие для конкретной ячейки
дык это нада не в модуль а в worksheet положить
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.07.2005, 15:53:11
    #33176359
talgat
talgat
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Событие для конкретной ячейки
KiLLunподскажите йа нажал в екселе Alt+F11. добавил к книге Module(модуль). туда скопировал код
Код: plaintext
1.
2.
3.
4.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target = Range("A1") Then
        MsgBox "Событие"
    End If
End Sub

Что теперь делать чтобы запустить эту процедуру. Нажимаю выполнить - спрашивает имя макроса. Как увидеть результат выполнения процедуры.

Например в ЛИСТ1
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.07.2005, 15:54:41
    #33176364
Toking
Toking
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Событие для конкретной ячейки
Этот код должен "лежать" не в отдельном модуле, а в модуле листа, на котором нужна такая функциональность.

Просто вставьте код в модуль листа и он будет работать при смене ячейки
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.07.2005, 15:55:19
    #33176367
KiLLun
KiLLun
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Событие для конкретной ячейки
огромное спасибо. все ок.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.07.2005, 15:56:59
    #33176374
talgat
talgat
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Событие для конкретной ячейки
TokingЭтот код должен "лежать" не в отдельном модуле, а в модуле листа, на котором нужна такая функциональность.

Просто вставьте код в модуль листа и он будет работать при смене ячейки

А как сделать чтоб код срабатывал ТОЛЬКО на конкретной ячейке?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.07.2005, 15:58:16
    #33176384
Пользователь2
Пользователь2
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Событие для конкретной ячейки
talgat, у самого-то получилось? :)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.07.2005, 15:58:58
    #33176387
talgat
talgat
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Событие для конкретной ячейки
Пользователь2talgat, у самого-то получилось? :)

НЕТ и не знаю как
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.07.2005, 16:01:16
    #33176394
Пользователь2
Пользователь2
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Событие для конкретной ячейки
talgat TokingЭтот код должен "лежать" не в отдельном модуле, а в модуле листа, на котором нужна такая функциональность.

Просто вставьте код в модуль листа и он будет работать при смене ячейки

А как сделать чтоб код срабатывал ТОЛЬКО на конкретной ячейке?

Так на нее нужно сначала перейти, чтоб он сработал. Или я чего не понимаю?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.07.2005, 16:05:23
    #33176406
talgat
talgat
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Событие для конкретной ячейки
Получилось

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If ActiveCell.Row = 1 Then
If ActiveCell.Column = 1 Then
MsgBox "Событие"
End If
End If
End Sub

Спасибо за помощь. Особенно Пользователь2
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.07.2005, 16:14:09
    #33176435
talgat
talgat
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Событие для конкретной ячейки
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If ActiveCell.Row = 1 Then
If ActiveCell.Column = 1 Then
MsgBox "Событие"
End If
End If
End Sub[/quot]

Мысли вслух. Получается при этом коде любая ячейка выступает как КНОПКА
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Событие для конкретной ячейки / 16 сообщений из 16, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 274ms
Закрыть
start [/forum/topic.php?fid=61&mobile=1&tid=2185905]:
 0ms
get settings:
 5ms
get forum list:
 9ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 32ms
get topic data:
 6ms
get forum data:
 1ms
get page messages:
 27ms
get tp. blocked users:
 1ms
others: 189ms
total:  274ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]