BeforeDoubleClick Event


BeforeDoubleclick Event’ini kullanarak herhangi bir hucre icerisine cift tiklandiginda bir takim islemler yaptirabiliriz.

Bu ornekte cift tikladigim hucrede tik sembolu belirsin. Basit bir yapilacaklar listesi tablosu olusturalim. Tamamanlandi basligi altini cift tikladigimda tik koyacak ve yanindaki yapilacak isin uzerini cizecek.before_double_click_event

  1. VBA editorunu acalim ve ilgili sayfanin uzerini cift tiklayalim.
  2. Sol ustteki listeden Worksheet” object’ini, bir yanindaki hucreden ise “BeforeDoubleClick” event’ini secelim.
  3. Karsimiza otomatik olarak cikan kod blogu arasina kodlarimizi yazacagiz.

before_double_click_event4 before_double_click_event3

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

Dim Rng As Range

Set Rng = Range("C4:C11") 'Burada cift tiklama event inin gecerli olacagi hucre araligini belirttik

If Intersect(Rng, Target) Is Nothing Then 'Target yani cift tiklanan hucrem ile belirttigim alan kesismiyorsa kod calismayacak
GoTo 10
End If

If Len(Target) = 0 Then 'Eger cift tiklanan hucrede bir deger yok iken tikladiysak tik koymak istiyoruz demektir.
Target.Value = 1 '1 degerini yaz
Target.Offset(0, 1).Font.Strikethrough = True 'sag yanindaki hucrenin uzerini ciz

Else 'Eger cift tiklanan hucrede deger var iken tikladiysak tiki kaldirmak istiyoruz demektir
Target.Value = vbNullString  'Hucrenin icini bosalt
Target.Offset(0, 1).Font.Strikethrough = False 'Bu durumda yan hucredeki degerin uzerini cizme
End If

Cancel = True 'Hucreyi cift tikladiktan sonra düzenleme modunu kaldirir yani tikladiginiz hücredeki imlec gorunmez.

10:
Exit Sub
End Sub

Son adimda “tamamlandi” hucre araligina kosullu bicimlendirme ile sembol kosulu getirelim.Dosyamiz tamamlandi.

ICON_SETS

ICON_SETS2

excel dosyasını indirmek için tıklayınız:

Dosyayi indirdikten sonra yukaridaki kodu yapistirmayi unutmayin.

BeforeDoubleClick_Event

Reklamlar

BeforeDoubleClick Event” üzerine bir yorum

Bir Cevap Yazın

Aşağıya bilgilerinizi girin veya oturum açmak için bir simgeye tıklayın:

WordPress.com Logosu

WordPress.com hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap /  Değiştir )

Google+ fotoğrafı

Google+ hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap /  Değiştir )

Twitter resmi

Twitter hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap /  Değiştir )

Facebook fotoğrafı

Facebook hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap /  Değiştir )

Connecting to %s