код по нажатию мышки - Microsoft Office Excel

Евгений_12 · 08.06.2010, 10:11

Может кто подскажет как написать код:

IF (на ячейке A1) нажата любая клавиша на клавиатуре или мыши то
ни чего не делать.

nilem · 08.06.2010, 11:01

А вот так если:

Код:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, [A1]) Is Nothing Then ActiveCell.Next.Select
End Sub

Евгений_12 · 08.06.2010, 12:39

Огромное спасибо ! То что нужно!

08.06.2010, 10:11	#1
Евгений_12 Пользователь Регистрация: 24.05.2010 Сообщений: 18	код по нажатию мышки Может кто подскажет как написать код: IF (на ячейке A1) нажата любая клавиша на клавиатуре или мыши то ни чего не делать.

08.06.2010, 11:01	#2
nilem Форумчанин Регистрация: 25.04.2010 Сообщений: 616	А вот так если: Код: `Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect(Target, [A1]) Is Nothing Then ActiveCell.Next.Select End Sub`

08.06.2010, 12:39	#3
Евгений_12 Пользователь Регистрация: 24.05.2010 Сообщений: 18	ячейки Огромное спасибо ! То что нужно!