Как сделать так чтобы при нажатии F2 на некоторых ячейках выполнялось определённое действие, например вызов UserForm, а при нажатии F2 на остальных ячейках они переходили в режим редактирования, как будто никакого перехвата не было.
Код |
---|
Private Sub Workbook_Open() Application.OnKey "{F2}", "My_F2" End Sub Sub My_F2() If ActiveCell.Row >= 10 And ActiveCell.Row <= 15 And ActiveCell.Column > 2 And ActiveCell.Column < 10 Then F2.Show Else ' открыть ячейку (ActiveCell) на редактирование End If End Sub |
Не стреляйте в тапера - он играет как может.