Excel TEMİZ (CLEAN), UZUNLUK (LEN) Komutları veya Fonksiyonları

=TEMİZ(E15) Hücre içinde “ALT + ENTER” tuşuyla alt satıra geçme işlemi yapılmış ise bunları temizleyen fonksiyondur.

=UZUNLUK(E17) Bir hücredeki metnin karakter sayısını veren fonksiyondur.

Checkedlistbox Kullanımı 2

Merhaba dostlar.

Bugün sizlerle checkedlistbox nesnesi ile ilgili bazı kodları paylaşacağım.

 Dim veriler() As String = {"A", "B", "C", "D", "E"}

CheckedListBox1.Items.AddRange(veriler)

Bu kod satırında veriler adında bir dizi ve elemanlarını tanımlıyoruz ve checkedlistbox nesnemize bu diziyi yazdırıyoruz. Bu işlem veri eklemenin değişik bir yolu.

CheckedListBox1.Items.Insert(3, "Merhaba") 

Bu kod satırı da checkedlistbox nesnesinin 4. sırasına "Merhaba" ifadesini yazdıran satırdır.

CheckedListBox1.Items.RemoveAt(2)

Bu satır da nesnenin 3. sırasındaki veriyi siler.

CheckedListBox1.SetSelected(3, True)

Bu  satır nesnenin 4. sırasındaki veriyi seçili duruma getirir.

MessageBox.Show((CheckedListBox1.SelectedIndex + 1))

Bu satır eğer seçilmiş bir veri varsa onun kaçıncı sırada olduğunu messagebox ile gösterir.

Dim mn As Integer = CheckedListBox1.FindString("G")

CheckedListBox1.SetItemChecked(mn, True)

Bu satırlar da mn değişkenini nesnedeki "G" harfi ile başlayan veriye eşitler ve onu seçili duruma getirir.

Hepinize kolay gelsin.

Checkedlistbox Kullanımı 1 ve Split (Parçalama) Komutu

Merhaba dostlar.

Bugün sizlerle checkedlistbox nesnesine veri ekleme, seçtiğimiz veriyi silme veya elde etme ve string ifadeyi parçalama işlemlerini anlatmaya çalışacağım.
Örnek program üzerinden anlatıma başlıyorum. 

Üst kısımda bulunan kutulardaki verileri aralarına "/" işareti koyarak checkedlistbox nesnesine ekliyoruz. İstediğimiz veriyi seçip parçala deyip aşağıdaki kutulara parçalanmış şekilde yazdırıyoruz, istediğimiz verileri seçip silebiliyoruz. Gelelim kodlara.

 CheckedListBox1.Items.Add("Merhaba","Dostum") bu kod satırı iki string ifadeyi yan yana ve bitişik olarak yazdırır.


CheckedListBox1.Items.Add(TextBox1.Text & "/" & TextBox2.Text & "/" & TextBox3.Text & "/" & TextBox4.Text & "/" & TextBox5.Text) bu kod satırı da örnek programda kutulardaki verileri aralarına "/" işareti koyarak yazdırır.

Parçalama için Split komutu kullanılır programda split komutu şu şekilde kullanılmıştır ;

Dim veri() As String
veri = Split(CheckedListBox1.CheckedItems(0), "/")

Bu kod seçtiğimiz checkedlistbox verisini parçalıyor ve "veri" adında bir diziye atıyor. Parçalama komutunda önce parçalanacak string ifade yazılır, ardından virgülle ayrılıp parçalama kriteri yazılır. Bizim parçalama kriterimiz de "/" işaretidir. Parçalama işleminden sonra dizi elemanları elde edilmiş olur veri(0), veri(1)... artık kaç tane parça varsa o kadar dizi elemanı elde edilmiş olur.


Checkedlistbox nesnesindeki seçtiğimiz verileri silmek için şöyle bir kod kullanırız.


For x As Integer = CheckedListBox1.Items.Count - 1 To 0 Step -1
            If CheckedListBox1.GetItemCheckState(x) = CheckState.Checked Then
                CheckedListBox1.Items.RemoveAt(x)
            End If
Next


Bu kodlar checkedlistbox nesnesindeki tüm seçenekleri tarar ve seçili olanları siler.

Checkedlistbox nesnesi seçim yaparken ilk tıklamada seçili duruma gelmez bunu değiştirip ilk tıklamada seçme işlemi yapabilmek için nesnenin üzerine tıklayıp "Properties" penceresinden "CheckOnClick" özelliğini "True" olarak ayarlamanız gerekir.

Örneği indirmek için tıklayın.

Hepinize kolay gelsin.