Hücreye Check İşareti Koyma

Bu dosya, belirli hücrelere çift tıklayarak onay (check) işareti koymayı ve kaldırmayı gösteren makrolu bir örnektir. Yapılacaklar listesi, yoklama ya da kontrol listesi gibi tablolarda klavyeden yazı girmeden işaretleme yapmak için kullanılabilir.

Dosyanın içeriği​

• Sayfa1: A1:S20 aralığını kapsayan tek sayfadır. Check işareti A1:A10 hücrelerinde çalışır. 20. satırda "VBA Hücreye Check İşareti Koyma" başlık notu ve "a" karakterlerinden oluşan örnek hücreler bulunur.

Dosyada formül bulunmaz; işlem tamamen makro ile yapılır.

Makrolar​

Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir. Makro Sayfa1 kod modülünde yer alır ve ayrıca çalıştırılması gerekmez; sayfadaki çift tıklama olayıyla otomatik devreye girer.

• Worksheet_BeforeDoubleClick: Çift tıklanan alan birden fazla hücre ise işlem yapmadan çıkar. Tıklanan hücre A1:A10 aralığındaysa hücrenin yazı tipini Marlett olarak ayarlar. Hücre boşsa içine "a" karakterini yazar; Marlett yazı tipinde bu karakter check işareti olarak görünür. Hücre doluysa içeriği siler ve işareti kaldırır.

Makroda dosya silme ya da dışarıya bağlantı gibi işlem yoktur; yalnızca tıklanan hücrenin yazı tipi ve içeriği değişir.

Nasıl kullanılır​

1. Dosyayı açın ve makroları etkinleştirin.
2. Sayfa1 üzerinde A1:A10 aralığından bir hücreye çift tıklayın; hücrede check işareti belirir.
3. İşareti kaldırmak için aynı hücreye yeniden çift tıklayın.
4. Farklı bir aralıkta kullanmak için Visual Basic düzenleyicisinde Sayfa1 modülündeki Range ifadesinde yer alan "A1:A10" adresini değiştirin.
5. Makroyu kendi dosyanızda kullanmak için kodu ilgili sayfanın modülüne kopyalayın ve dosyayı .xlsm biçiminde kaydedin.