Excel Hücreye Çift Tıklayınca Onay (Check) İşareti Koyma
Merhaba Excel Dostları.
Excel Hücrelerine çift tıklayınca onay (check) işareti nasıl yazdırabiliriz?...
İleri seviye excel kullanıcıları bu tarz kısa yollara ihtiyaç duyar ve tablolarının etkileşim içerisinde daha dinamik olmasını isterler... :]
Bu cümle içerisinde bir nümayiş var sanırım...
Ben de bu tarz işlevsel kısa yollara ihtiyaç duyduğuma göre, ileri seviye excel kullanıcısı oluduğumu söyledim...
Evet...
İnsan bazen olduğundan ziyade olmak istediği konumlardan lakırdılar sarfedebiliyor... Ne diyelim? İnsanlık! :]
Konuya dağıtmadan, belirli bir alıkta bulunan excel hücrelerine çift tıklayınca hücreye onay işareti yazdıracağız...
Yapmamız Gerekenler;
1- Kutuların içindeki yazı tipi
Marlett (alttaki kod otomatik seçim yaptırıyoruz... )
2- Klavye tuşu
a
3- ilgili sayfanın kod bölümüne alttaki kodu yazıyoruz ve hücre aralıklarını kendi uygulamamıza göre yeniden yazıyoruz... Hepsi Bu kadar sevgili excel dostlarım... Sağlıcakla kalınız...
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Cells.Count > 1 Then Exit Sub 'Count kelimesinin Türkçe karşılığı saymak demektir
Application.EditDirectlyInCell = True 'Hücreye çift tıklayınca veri girmeyi serbest bırak
' Target hedef demektir. Sayfa olaylarında kullanılan bir değişkendir. Yerine istediğiniz kelimeyi yazabilirsiniz
If Not Intersect(Target, Range("K19:P119")) Is Nothing Then 'Intersect(Aktif_Hücre, Hedef_Aralık)
' Intersect komutu kesişme anlamına gelmektedir.
Application.EditDirectlyInCell = False 'Hücreye çift tıklayınca veri girmeyi iptal et
Target.Font.Name = "Marlett"
If Target = vbNullString Then 'Bir değişken veri içermiyorsa bu değişken Null değere sahiptir diyebiliriz.
Target = "a" 'çift tıklayınca hücreye a harfinin marlett yazı tipi olarak karşılığı onay işaretidir
Else
Target = vbNullString 'Stringler (metinler)
End If
End If
End Sub
Dikkat!
Birden fazla sütuna başvuru yaparak onay işareti yazdırmak istiyorsanız üstteki kodlarda ilgili bölümde, alttaki gibi yeniden düzenleme yapabilirsiniz...
If Not Intersect(Target, Range("f6:f297, j6:j297, N6:N297")) Is Nothing Then 'Intersect(Aktif_Hücre, Hedef_Aralık)
Örnek Excel dosyasını indirmek için tıklayınız...
2 yorum
Write yorumİşe yaradı teşekkür ederim.
Replyİşinize yaramasına sevindim... Kolay gelsin...
Reply