Excel de linkler Enter e bastığımda açılsın



Sorun: İşyerinde biglisayarımda office 2000 kuruluydu bu sabah geldiğimde bir baktım BT grubu bilgisayarıma office 2003 kurmuş şimdi şöyle bir fark var link olan bir hücrede office 2000 de entera

tıkladığımda linki açıyordu 2003 de ise link olan bir hücrede entera bastığımda bir alt hücreye geçiyor linki açmak için mouse ile tıklamak durumunda kalıyorum ama ben klavye kullanmalıyım (yaptığım iş icabı arada bu şekilde mouse kullanmak zaman kaybına neden oluyor) Office 2003 için link olan bir hücrede entera bastığımda linki açması için yapmam gereken bişey varmıdır?

Cözüm:
1.Tools > Macro > Visual Basic Editor
yada Alt+F11 e basalim

2. Eger Vba projelerini görmüyorsak Project Explorer i görmek için CTRL + R ye basalim
3. Project Explorer penceresinde ThisWorkbook a cift tiklayalim ki code pane acilsin
4. sonuc modül sayfasina aşağıdakileri yapistiralim
5. ALT + F11 e basip tekrar excel sayfamiza dönelim

Asağidakiler ThisWorkbook code pane ye yapistirilacaktir ,

Private Sub Workbook_Activate()
Application.OnKey "{ENTER}", "Thisworkbook.FollowLinks"
Application.OnKey "~", "ThisWorkbook.FollowLinks"
End Sub

Private Sub Workbook_Deactivate()
Application.OnKey "{ENTER}"
Application.OnKey "~"
End Sub

Sub FollowLinks()
If ActiveCell.Hyperlinks.Count > 0 Then
ActiveCell.Hyperlinks(1).Follow
Else
ActiveCell.Offset(1, 0).Activate
End If
End Sub

Velociraptor


Yorum Ekle

E-posta adresiniz yayınlanmayacak. Gerekli alanlar * ile işaretlenmişlerdir

Captcha