Tema: Re: EXCEL VBA
Autorius: Laimis
Data: 2012-06-15 12:49:29
Name rašė:
> Sveiki,
> kaip EXCEL VBA parasyti koda, kad jei tam tikrame stulpelyje paspaudus ant
> bet kokios celes ENTER klavisa, butu atliekamas ne standartinis veiksmas, o
> kaip pvz. perejimas i desineje puseje esancia cele (suveiktu ARROW RIGHT
> klaviso komanda).



Private Sub Workbook_Open()
     Application.OnKey "~", "OnKeyEnter"
End Sub



Modulyje:

Public Sub OnKeyEnter()
   If Not Intersect(Range(ActiveCell.Address), Range("A:B")) Is Nothing Then
     SendKeys "{RIGHT}"
   End If

End Sub