Sayfadaki Kelime ve Sayı Adetlerini Bulma

Sayfadaki Kelime ve Sayı Adetlerini Bulma kodunu kullanarak, aktif olan sayfa üzerinde yazılı olan kelime ya da sayıların kaç tane olduğunu bulabilirsiniz.

XD Destek İste
Sub Word_Count_Worksheet()
Dim WordCnt As Long
Dim rng As Range
Dim S As String
Dim N As Long
For Each rng In ActiveSheet.UsedRange.Cells
    S = Application.WorksheetFunction.Trim(rng.Text)
    N = 0
    If S <> vbNullString Then
        N = Len(S) - Len(Replace(S, " ", "")) + 1
    End If
    WordCnt = WordCnt + N
Next rng
MsgBox "Aktif sayfanın kullanılan alanından toplam " & Format(WordCnt, "#,##0") & " içerik bulunmaktadır."
End Sub

Gerekli Adımlar

Kodu çalıştırmanız için aşağıdaki adımları yerine getirmeniz gerekir.

  1. Microsoft Visual Basic for Applications penceresini (Alt + F11) açın.
  2. Project - VBAProject alanının, ekranın sol tarafında görüldüğünden emin olun. Görünmüyorsa, Ctrl + R kısayolu ile hızlıca açın.
  3. Microsoft Excel Objects yazısının solundaki + simgesini tıklayın ve BuÇalışmaKitabı kısmına çift tıklayın.
  4. Üstteki kodu yapıştırın.

Kod Açıklaması

Excel sayfanızda yazılı olan içeriklerin kaç tane olduğuna dair bir ihtiyacınız varsa, üstteki kod işinize yarayacaktır. Kod, işlevi gereğince yazılı olan alanları kendisi tespit etmektedir. Yani kodu kullanmak için bir alan seçmenize gerek olmaz.

Etiketler

50 Farklı Hazır Makro (VBA) Kodu
Sayılara Yeni Bir Sayı Ekleme
İki Sütundaki Değerleri Karşılaştırıp Ayrıştırma
Dolar Okutma Makrosu
Makro Etkinletirilmezse Sayfalar Gizlenir
Checkbox ile Exceli Kapatıp Açmak
Çalışma Sayfaları için Yakınlaştırma Yüzdesini Ayarlama
Makrolar İşlem Yaparken Ekranın Kilitlenmesi
Tekrar Eden Verileri Farklı Sütunda Yazma
Çalışma Kitabındaki Tüm Pivot Tabloları Yenileme
Makro Etkinleştirilmeden Sayfalar Görüntülenmesin
Aktif Hücrenin Üstüne Satır Ekleme
A Sütunundaki Verileri C Sütununda Sıralama
Tüm Çalışma Sayfalarını Tek Adımda Koruma
Alarmlı Saat Ekleme Kodu
Seçili Hücrenin Sütun Harfini Bulma
Tek Satırı Kes Kopyala ve Yapıştır
Çalışma Kitabının Kaç Kez Açıldığını Öğrenme
Tekrarlayan Verileri Vurgulama
Sayfadaki Ad Tanımlamaları Silme
İçindekiler Tablosu Oluşturma
Tüm Boş Çalışma Sayfalarını Silme
Özet Tablo Aralığını Otomatik Güncelleştirme
Bir Aralıktaki Maksimum Değeri Renklendirme
UserForm Üzerinde Dört İşlem
Hücre Aralığını Kes Kopyala ve Yapıştır
Yanıp Sönme Efekti Verme Kodu
Sayfadaki Grafikleri Yeniden Boyutlandırma
TextBox Nesnelerinin Arasında Boşluk Bırakma
Hücrenin Arka Plan Rengini Değiştirme
Birden Çok Çalışma Sayfası Ekleme
Açılışta UserForm Nesnesinin Otomatik Gösterilmesi
Hatalı Hücreleri Renklendirme
Açık Olan Tüm Excel Sayfalarını Kayıt Ederek Kapatma
Seri Numaralarını Ekleme
Tüm Satırda İşlem Yapan Döngü
Metnin İçinden TC Kimlik Numarasını Ayırma
Excel Satır Seçme Kodu
Program Başlangıcı Kodları
Makro Çalışırken İmlecin Hareket Etmemesini Sağlama
R1C1 Referans Stilini Etkinleştirme
Excel Alarm Kurma
Satırları Otomatik Sığdır
Kopyala ve Özel Yapıştır
Belirli Bir Metne Sahip Hücreleri Vurgulama
Excel ile Demo Yapma Makrosu
Excel Açılırken Otomatik İşlem Yaptırma
MsgBox ile Uyarı Çıkarma Kodu
Makro ile Biçimleri Temizleme
Her Bir Sütundaki Maksimum Değeri Bulma
Grafik Türünü Değiştirme
Üstteki alanda, Google Reklamları yerine sizin reklamınızın yayınlanmasını ister misiniz?
Reklam vermek istiyorum

Daha önce yorum yapılmamış!

Excel sayfanızda yer alan 0 değerlerini gizlemek için, 0 değerlerinizin olduğu alanı seçip, sağ tıkladıktan sonra; Hücre Biçimlendir -> Sayı sekmesi -> İsteğe Uyarlanmış kısmına tıklayıp, Tür kısmına: 0;-0;;@ yazmanız yeterli olacaktır.
Yükleniyor...