contact@exceltr.com

ExcelTR - Microsoft Excel Eğitim Sitesi

Görsel Video Microsoft Excel Eğitim Sitesi
7 Mar 2012

Excelde Cift Tiklama Ile Veri Girisi

//
Yorumlar0
/

Excelde Cift Tiklama Ile Veri Girisi Yapma

Aslinda cift tiklama ile veri girisi yapan bir cok ornek cozduk, bundan onceki konularimizda fakat gelen bir istek uzerine ufak bir anlatima da yer vermek istedik.

Calismamizda bundan sonra “Giris_Alani” olarak anacagim bir ad tanimizinin ve araliginizin oldugunu dusununuz ve bu araliga cift tiklandigimizda buraya tarihi ve saati yazdiralim. Ve hemen yanindaki sutunu secmesini saglayalim.

Yazarken uymamiz gereken kurallar;

  • Oncelikle istegimiz cift tiklama ile ilgili oldugundan sayfanin cift tiklama olayina kodlarimizi yazmamiz gerekir. (Worksheet_BeforeDoubleClick)
  • Aralik atamasi yapacagimiz icin koda hata halinde devam etmesi icin bir satir eklemeliyiz. (On Error Resume Next)
  • Hedef hucre aralik disinda ise kodu bitirmesi icin yahut icinde ise islemleri yapmasi icin bir yapi kullanmaliyiz.(If Not Intersect(Target, aralik) Is Nothing Then)
  • Hucrenin bos oldugunu kontrol ederek hucreye zamani yazdirmali ve yan hucreyi secmesini saglamaliyiz.

Aklimizdaki sorulari ve cevaplari bulduktan sonra kodumuzu yazalim;

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
On Error Resume Next
Dim aralik As Range
Set aralik = Range("Giris_Alani")
If Not Intersect(Target, aralik) Is Nothing Then
    Application.EnableEvents = False
    Cancel = True 'duzenleme modunu durdurur
    With Target
        If .Value = "" Then
            .Value = Time
            .Offset(0, 1).Activate
        End If
    End With
End If
Application.EnableEvents = True
End Sub

 

Cevap bırakın


3 + 6 =