Çift Tıklama İle Değer Artırma

Bu dosya, çalışma sayfasında bir hücreye çift tıklandığında hücredeki sayının 1 artırılmasını sağlayan bir VBA örneğidir. Sayaç, stok adedi veya puanlama gibi değerlerin klavye kullanmadan artırıldığı tablolarda kullanılabilir.

Dosyanın içeriği​

• 1arttır: B2:B6 aralığında artırılacak sayı değerlerinin bulunduğu tek sayfadır. Çift tıklama işlemi bu sayfaya bağlı olay makrosuyla çalışır.

Makrolar​

Dosya makro içerir (.xlsm); açarken makroları etkinleştirmeniz gerekir. Makro, sayfa koduna yazılmış Worksheet_BeforeDoubleClick olay prosedürüdür. Ayrıca çalıştırma düğmesi yoktur; çift tıklamayla kendiliğinden devreye girer.

• Çift tıklamanın hücreyi düzenleme moduna alması Cancel = True ile engellenir.
• Tıklanan hücre 1. satırdaysa veya B sütununda (2. sütun) değilse işlem yapılmaz; yalnızca B sütunundaki 2. ve sonraki satırlar etkilenir.
• Olaylar geçici olarak kapatılır, hücre değerine 1 eklenir ve olaylar yeniden açılır.
• Hücrede sayı olmaması gibi bir nedenle toplama yapılamazsa, hücre adresini belirten bir uyarı mesajı gösterilir. Mesaj metni İngilizcedir.

Kodda dosya silme veya dışarıya bağlantı gibi zararlı bir işlem bulunmaz.

Nasıl kullanılır​

1. Dosyayı açın ve güvenlik uyarısında makroları etkinleştirin.
2. 1arttır sayfasında B2:B6 aralığındaki bir hücreye çift tıklayın; değer her tıklamada 1 artar.
3. Farklı bir sütunda kullanmak için VBA düzenleyicisinde Sayfa1 kodundaki sütun numarası kontrolü değiştirilir.
4. Başka bir dosyada kullanmak için aynı prosedür ilgili sayfanın kod bölümüne kopyalanır.