Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Как отследить click по ячейке в Excel / 13 сообщений из 13, страница 1 из 1
10.12.2011, 21:19
    #37569162
Lavrenty
Lavrenty
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как отследить click по ячейке в Excel
Здравия! Подскажите пож. как отследить нажатие мыши на конкретной ячейке, чтобы прицепить макрос на это событие?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
10.12.2011, 21:34
    #37569171
Thermik
Thermik
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как отследить click по ячейке в Excel
Lavrenty,

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

End Sub


а вот дальше проверяй Target твоя ли это ячейка
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
10.12.2011, 22:13
    #37569213
Lavrenty
Lavrenty
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как отследить click по ячейке в Excel
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  
  If ActiveCell.Address = "A1" Then
    Cells(2, 2).Value = 1
  End If
  
End Sub



Чо т ноль эмоций. И ошибок не выдаёт
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
10.12.2011, 23:04
    #37569267
Lavrenty
Lavrenty
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как отследить click по ячейке в Excel
Оказалось, что конструкция
Код: vbnet
1.
If ActiveCell.Address = "A1" Then


не работает.

А так сработало
Код: vbnet
1.
If ActiveCell.Row = 1 And ActiveCell.Column = 1 Then
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.12.2011, 04:04
    #37569450
kuklp
kuklp
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как отследить click по ячейке в Excel
Lavrenty,
Это кривые руки не работают:-) Почитайте справку по address и попробуйте так:
Код: vbnet
1.
2.
3.
4.
5.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Address = "$A$1" Then
        Cells(2, 2).Value = 1
    End If
End Sub


или так:
Код: vbnet
1.
If Target.Address(0, 0) = "A1" Then
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.12.2011, 08:28
    #37569481
Ципихович Эндрю
Ципихович Эндрю
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как отследить click по ячейке в Excel
kuklp, 1000 извинений, не пойму как Вы используете:
пробую
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    'If Target.Address = "$A$1" Then
    If ActiveCell.Row = 1 And ActiveCell.Column = 1 Then
        Cells(2, 2).Value = 1
        MsgBox$ "kk"
    End If
End Sub


в двух вариантах, по А1 щёлкаю, получаю отлуп
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.12.2011, 10:04
    #37569498
kuklp
kuklp
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как отследить click по ячейке в Excel
Ципихович Эндрю, ничего не понял. Вы бы как нить по русски, что ли. Что есть "отлуп"? Что, не работает? Тогда может Вы не в модуль листа это вставляли?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.12.2011, 10:37
    #37569510
Astrologer
Astrologer
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как отследить click по ячейке в Excel
Отлуп - от ворот поворот. Идиоматическое выражение отказа.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.12.2011, 10:52
    #37569521
kuklp
kuklp
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как отследить click по ячейке в Excel
Еще одно замечание - если ячейка А1 уже активна, то щелчок по ней не вызовет события SelectionChange. Это событие возникает при изменении выделения.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.12.2011, 11:41
    #37569536
Ципихович Эндрю
Ципихович Эндрю
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как отследить click по ячейке в Excel
kuklp,
>модуль листа это вставляли?
ОКЕЙНО, вставил в него и заработало, спасибо!!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.12.2011, 18:57
    #37569825
Lavrenty
Lavrenty
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как отследить click по ячейке в Excel
kuklp,

за совет спасибо, сработало. А на счёт кривых рук, ты бы полегче! Я не обиделся, просто это форумное хамство достало. Знаешь чего-то - флаг тебе в руки и почёт до гроба или забыл как когда-то начинал и всё было непонятно? Я этот Васик начал изучать только вчера, дальше говорить не буду.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.12.2011, 19:25
    #37569844
Ципихович Эндрю
Ципихович Эндрю
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как отследить click по ячейке в Excel
была не была, спрос не бъёт в нос
Change и Click в таблице Ворда подъемно организовать???
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.12.2011, 19:44
    #37569857
Lavrenty
Lavrenty
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как отследить click по ячейке в Excel
Ципихович Эндрю,

судя по вашим комментам у вас неплохое воспитание. Это прекрасно. Но лучше будет, если вы, набрав побольше воздуха в лёгкие и сказав себе ещё раз

была не была, спрос не бъёт в нос

создадите новую тему с интересующим вопросом. Здесь врят ли ответят, а в новой теме однозначно. Удачи :)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Как отследить click по ячейке в Excel / 13 сообщений из 13, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 614ms
Закрыть
start [/forum/topic.php?fid=61&mobile=1&tid=2176198]:
 0ms
get settings:
 10ms
get forum list:
 14ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 293ms
get topic data:
 8ms
get forum data:
 2ms
get page messages:
 34ms
get tp. blocked users:
 1ms
others: 246ms
total:  614ms
x
x
Закрыть


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