Bu yazıda, hücreyi kontrol etmek ve işaretini kaldırmak için çalışma sayfasının çift tıklamadan önce olayını kullanacağız.
Ham veriler bazı gıda maddelerinden oluşmaktadır. Satın aldığımız ürünleri işaretlemek istiyoruz.
Bir hücreye çift tıklandığında, ona onay işareti eklenecektir. Aynı şekilde tekrar üzerine çift tıklanarak kaldırılabilir.
Kod açıklaması
Target.Column = 3 ise
Yukarıdaki kod, çift tıklama olayını yalnızca 3. sütundaki hücreye çift tıklandığında yürütülecek şekilde kısıtlamak için kullanılır.
İptal = Doğru
Yukarıdaki kod, bir hücrenin düzenleme moduna girmesini önlemek için kullanılır.
Target.Font.Name = "Marlett"
Yukarıdaki kod, hedef hücreye Marlett yazı tipi atamak için kullanılır.
Hedef = "" ise
Hedef = "a"
Başka
Hedef = ""
Bitir
Yukarıdaki kod, bir onay işareti eklemek ve onu kaldırmak için kullanılır. Marlett yazı tipinde “a”, onay işaretini temsil eder ve onay işaretini kaldırmak için boşluk kullanılır.
Lütfen kod için aşağıdan takip edin
Seçenek Explicit Private Sub Worksheet_BeforeDoubleClick(ByVal Hedef Olarak Aralık, İptal Olarak Boolean) 'Hedef hücrenin üçüncü sütunda olup olmadığını kontrol etme Eğer Target.Column = 3 Sonra 'Hücrenin Düzenleme Moduna girmesini engelle İptal = Doğru' Hücrenin yazı tipini değiştirme Hedef. Font.Name = "Marlett" 'Hedef hücre değerinin boş olup olmadığı kontrol ediliyor ve ardından onay işareti ekleniyor If Target = "" Then Target = "a" Else Target = "" End If End If End Sub
Bu blogu beğendiyseniz, Facebook'ta arkadaşlarınızla paylaşın. Ayrıca bizi Twitter ve Facebook'ta da takip edebilirsiniz.
Sizden haber almayı çok isteriz, işimizi nasıl geliştirebileceğimizi ve sizin için nasıl daha iyi hale getirebileceğimizi bize bildirin. E-posta sitesinde bize yazın