Excel VBA içinde KeyPress tarzı bir olay olmadığı için kullanıcının bastığı tuşu yakalaycak bir kod yazamıyoruz. Daha doğrusu dolaylı olarak yazıyoruz.

Application nesnesinin OnKey metodu işimizi görecek.

Diyelim ki bir hücrede Enter tuşuna basıldığında diğer hücreye günün tarih ve saatini yazsın istiyoruz.

Yeni bir modül açıyoruz ve bu kodu yapıştırıyoruz.

‘Excel açılırken Enter tuşu işlemlerini bir makroya atıyoruz
Private Sub Auto_Open()
Application.OnKey ~, PutDates
Application.OnKey {ENTER}, PutDates
End Sub

‘Excel kapanırken atamayı kaldırıyoruz
Private Sub Auto_Close()
Application.OnKey ~
Application.OnKey {ENTER}
End Sub

‘Enter tuşuna basıldığında çalışacak prosedür
Sub PutDates()
‘Eğer kısıtlamanın sadece bir sayfada olmasını istiyorsak
If ActiveSheet.Name <> bloke Then
ActiveCell.Offset(1, 0).Activate
Exit Sub
End If
If ActiveCell.Value = Then Exit Sub
Select Case ActiveCell.Column
Case 1, 2

‘numaralar duruma göre değiştirilebilir. Burada 1. ve 2. sütunlara bakıp 8., 9. ve 10 sütunlara bilgi yazıyoruz
If Cells(ActiveCell.Row, 8).Value = Then
Cells(ActiveCell.Row, 8).Value = Date
End If
If Cells(ActiveCell.Row, ActiveCell.Column + 8).Value = Then
Cells(ActiveCell.Row, ActiveCell.Column + 8).Value = Time
End If
End Select
End Sub

—–

Bilim-kurgu öyküleri
zeka testi
Güneydoğu’da savaşmış askerler anlatıyor: Mehmedin Kitabı
Google Dosya Sistemi GFS
Mail ekleri gelmiyor, yerine winmail.dat dosyası geliyor. Bu ne iş?
Windows’un yeni çıkacak sürümünün arayüzleri
Seviyor, sevmiyor, seviyor… Papatya Falı
Linux için muhasebe programı
Makro (yakından) fotoğraf çekim rehberi
Java mı döver, C&#035; mı? Teke tek kalsalar…
Bilgisayar kullanmayı kısıtlayıcı programlar
Kıdem tazminatı hesabı
Java temelli 3 boyutlu kullanıcı arayüzü
Centrino ne demek?
Bu domain adresi kimin?
Yan tarafa ateş eden İsrail üretimi silah
Kelebeğin bir kanat çırpması, okyanusta fırtına çıkarır mı? Kelebek Etkisi
Google crack arama motoru
—–