Пробвай :

В отговор на:

---

Private Sub Workbook_Open()
Application.OnKey "{ENTER}", "EnterOffset"
End Sub

Sub EnterOffset()
'при натискане на Enter на NumLock селектира в зададена последователност клетки
If ActiveCell.Cells.Column = 1 Then ' при Колона 1
ActiveCell.Offset(0, 1).Select
Exit Sub
End If
If ActiveCell.Cells.Column = 2 Then ' при Колона 2
ActiveCell.Offset(1, -1).Select
Exit Sub
End If
End Sub

---

Редактирано от Minavasht_new-208743 на 23.07.12 15:06.