|
Действия ...
|
21.01.2005, 11:30:51
|
|||
|---|---|---|---|
|
|||
Как выполнить макрос по нажатию клавиши мыши??? |
|||
|
|
|
21.01.2005, 14:00:29
|
|||
|---|---|---|---|
|
|||
Как выполнить макрос по нажатию клавиши мыши??? |
|||
|
4Андрей Il этот Event возникнет в том числе и просто при перемещении по листу с помощью стрелок. Так как вопрос был про "клетку над которой ..." то Target.Offset(1,0).Value="SOME VALUE"
4acids При нажатии мыши на что ? на какую-нить свою кнопку или на ячейку в книге ?  |
|||
|
|
|
21.01.2005, 14:17:54
|
|||
|---|---|---|---|
|
|||
Как выполнить макрос по нажатию клавиши мыши??? |
|||
|
тогда как написал Андрей Il
Private Sub Worksheet_SelectionChange(ByVal Target As Range) Target.Offset(1,0) .Value = "Some value" End Sub |
|||
|
|
|
21.01.2005, 15:50:05
|
|||
|---|---|---|---|
|
|||
Как выполнить макрос по нажатию клавиши мыши??? |
|||
|
так, давайте по шагам
1. На ярлыке листа ( которой внизу и на котором обычно написано Лист1) жмем правую педаль и выбираем "Исходный текст" 2. Смотрим в правую часть окна и сверху видим два списка - "General" и "Declaration" 3. Из General выбираем worksheet а из 2 списка Selection_Change, впрочем он т.е. SelectionChange , должен появиться автоматически 4. В появившемся обработчике Selection_Change пишем одну строку Target.Offset(1, 0) = "Hello" Должно получиться следующее Private Sub Worksheet_SelectionChange(ByVal Target As Range) Target.Offset(1, 0) = "Hello" End Sub 5. Жмем alt-f4 6. Начинаем движение по листу. |
|||
|
|
