Excel sayfasında hücrelere chek koyun - Makro-VBA

Eqzelci

Çok ilginç geldi bana. Excel sayfasında A1:A10 hücre aralığında çift tıklayınca hücreye Check koyuyor, Check konulmuş hücrelere yine çift tıklayınca kaldırıyor. Arkadaşlar da görsün istedim.

Kod: Tümünü seç: Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Target.Cells.Count > 1 Then Exit Sub If Not Intersect(Target, Range("A1:A10")) Is Nothing Then Target.Font.Name = "Marlett" If Target = vbNullString Then Target = "a" Else Target = vbNullString End If End If End Sub

Check.xls indir

ExcelTürk

Bak bu gerçekten güzel olmuş. Sağolasın eqzelci. Mesela ben olsam bu kodları şöyle kullanırdım. Sayfaya iki buton koyup, birine Tümünü Göster. Diğerine Seçileni Göster ismini verip, bordro, puantaj gibi çalışmalarda bordro düzenlenecekleri tümünü göster deyip Check ettikten sonra gereksiz alanların yazdırılmasını önlemek için seçileni göster butonuna atayacağım makroda check konulmayan satırları gizlerdim. Tekrar teşekkürler.

Kimler çevrimiçi