Excel'de seçimde bir karakterin oluşumlarını saymak için Visual Basic for Applications kullanma

Özet

Microsoft Excel'de, bir hücredeki veya hücre aralığındaki belirli bir karakterin oluşumlarını saymak için makro kullanabilirsiniz. Bu makale, bir hücredeki veya hücre aralığındaki belirli bir karakterin oluşumlarını saymak için örnek bir makro içerir.

Görevi gerçekleştirmek için bir formül de kullanabilirsiniz. Makro kullanmamak isterseniz, Microsoft Bilgi Bankası'ndaki makaleleri görüntülemek üzere aşağıdaki makale numaralarına tıklayın:

187667 Mac için Excel metin, karakter veya sözcük oluşumlarını saymak için formüller

Daha Fazla Bilgi

Microsoft, programlama örneklerini yalnızca gösterim amacıyla sağlar; örtülü veya açık garanti vermez. Buna zımni garantiler, satılabilirlik veya belirli bir amaca uygunluk da dahildir, ancak bunlarla sınırlı değildir. Bu makale, gösterilen programlama dilini ve yordamları oluşturmak ve hata ayıklamak amacıyla kullanılan araçları kullanmayı bildiğinizi varsayar. Microsoft destek mühendisleri, belirli bir yordamın işlevselliğinin açıklanmasına yardımcı olabilir, ancak gereksinimlerinizi karşılamaya yönelik olarak ek işlevsellik sağlamak veya yordamlar geliştirmek amacıyla bu örnekleri değiştirmezler.

Örnek Visual Basic yordamı

Aşağıdaki Visual Basic yordamı sizden bir karakter (veya karakter) ister, ardından seçili durumdaki hücrede veya hücre aralığında arama yapar ve bu karakter veya karakter dizesinin toplam oluşum sayısını gösteren bir ileti kutusu görüntüler. Bu, tüm alfasayısal karakterler için çalışır.

Dim Count As Integer
Dim Target As String
Dim Cell As Object
Dim N As Integer

Sub Target_Count()
   Count = 0
   Target = InputBox("character(s) to find?")
   If Target = "" Then GoTo Done
      For Each Cell In Selection
         N = InStr(1, cell.Value, target)
         While N <> 0
            Count = count + 1
            N = InStr(n + 1, cell.Value, target)
         Wend
      Next Cell
   MsgBox count & " Occurrences of " & target
Done:
End Sub