fare tıklama ile hücre içeriğini değiştirmek

[simyaci27]

Merhaba arkadaşlar..

diyelimki 30 öğrencim var. sınavda 25 soru sordum..hücre içeriği her doğru soru için "1" değeri verdim yanlış için "0" değeri vereceğim.

ok tuşları ile her yanlış hücreye gidip "0" vereceğime fare ile tıklamak daha kolay olacak ve işimi %80 kolaylaştıracak..Öncelikle tüm hücrelerin değerini "1" yaptım şimdi fare ile sadece yanlış olanlara "0" değeri vermek istiyorum. bunun çözümü nasıl olmalı.. böyle bir makro yaza bilir miyiz ? Yani Ahmet isimli öğrenci 8,14,23 ve 25.soruarı yanlış yapmış sadece onları tıklamakla hücre içeriğini "0" yapmak istiyorum.
teşekkürler.

 

[leumruk]

Kodların hangi aralıkta çalışmasını istiyorsunuz. Örnek bir dosya ekleyebilir misiniz?

 

[simyaci27]

25 sütün 30 satır..olacak.. Ayrıca.. şimdi aklıma geldi..denemedim ama pratik olur mu bilmem.. "0" ı bir kez kopyalıyoruz ve yanlış hücreye tapıştırıyoruz..bu ise sağ tıkla/yapıştır..bu da uzun.. ben sadece sol tıklamak ve hücre o yazsın istiyorum..

 

[simyaci27]

f

25 sütün 30 satır..olacak.. Ayrıca.. şimdi aklıma geldi..denemedim ama pratik olur mu bilmem.. "0" ı bir kez kopyalıyoruz ve yanlış hücreye tapıştırıyoruz..bu ise sağ tıkla/yapıştır..bu da uzun.. ben sadece sol tıklamak ve hücre o yazsın istiyorum..

 

[leumruk]

Merhaba,
Sarı alandaki hücrelerden birine çift tıkladığınızda 1 değerini alır; tekrar çift tıkladığınızda 0 değeri gelir.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, [c2:aa30]) Is Nothing Then Exit Sub
Cancel = True
If Target = 0 Then
Target = 1
Else:
Target = 0
End If
End Sub

 

[simyaci27]

ben ofis 2007 kullaniyorum..dediğiniz gibi çift tıkliyorum.. ne sıfır nede 1 yaziyor..verdiğiniz kodu.. bir yere yapıştırmam mı gerekiyor. ?

teşekkürler.

 

[Mustafa MUTLU]

Formülü Yazacaksın Tabi ki

excel 2003 kullanıcıları
Görünüm - Araç Çubukları - Visual Basic Tıkla
Visual Basic menüsü gelecek yukarıya oradan Visual Basic Düzenleyici tıkla
açılan sayfada soş üst kısım Worksheed sağ taraf BeforeDoubleClick olacak
Sayfaya kodu kopyala yapıştır tamam....



Kolay Gelsin

 

[leumruk]

ben ofis 2007 kullaniyorum..dediğiniz gibi çift tıkliyorum.. ne sıfır nede 1 yaziyor..verdiğiniz kodu.. bir yere yapıştırmam mı gerekiyor. ?

teşekkürler.

İlgili sayfa sekmesinin üzerinde sağ tıklayın. En altta Kod Görüntüle seçeneğine tıklayın. Karşınıza beyaz bir ekran çıkacak. Kodları oraya kopyalayın.