arattığın string ifadenin sayısını buldurma

[fthorn]

arkadaşlar ben kendi çapımda bir proje geliştiriyorumda.Proje böyle bir şeyinde olmasını istiyorum.kullanıcı bir hücreyi seçecek sonra kullanıcıya inputboxdan hangi ifadeyi arıyosun diye sorucak.Ve o karakterden kaç tane varsa onun sayısını veren bir msj gelcek.

Örneğin: kullanıcının seçtiği hücrede "araba" yazıyor.kullanıcıda "a" karakterini arattırdı.en son "3" diye msj alıcak.

bunu nasıl yapabilirim....

 

[Levent Menteşoğlu]

Aşağıdaki kodu sayfanın kod sayfasına kopyalayın. Hücreyi seçtiğinizde kendiliğinden çalışacaktır.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target = "" Then Exit Sub
sor = InputBox("Aranan karakteri yazınız.", "ARAMA")
MsgBox Len(Target) - Len(Replace(Target, sor, "")) & " adet mevcuttur"
End Sub

 

[fthorn]

ya abi çok teşekkür ederim de kodu aynen kod sayfasına yazdım hücreyi seçince hiç bir msj alamadım!!!
yardımcı olurmusunuz?

 

[Levent Menteşoğlu]

Sayfanın kod sayfası olacak. Yani sayfa sekmesi üzerinde sağ-klik yapın ve açılan pencereden "kod görüntüle" yi tıklayın. Boş bir sayfa açılacaktır. Kodu bu sayfaya kopyalayın. Sonrada sayfa üzerinde bir hücre seçin.

 

[fthorn]

tamam tamam oldu ya siz cvp yazarken oldu tekrar çok teşekkürler