Bir karakteri örnet A harfini sayfda kaç adet olduğunu bu

[a_self_lion]

Selam arkadaşlar Hazırlanmış olan bir sayfada örnek olarak
A karakterinin kaç defa geçtiğini olduğunu bize msgbox olarak verebilecek kod nasıl yazılır

teşekkür ederim....

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

[vb:1:6aae908f70]Sub ara()
sor = InputBox("ARANACAK VERİYİ GİRİNİZ")
MsgBox WorksheetFunction.CountIf(Cells, "*" & sor & "*")
End Sub
[/vb:1:6aae908f70]

 

[a_self_lion]

teşekkür leventm çok sağolun...

 

[Levent Menteşoğlu]

Aslında benim verdiğim kod sadece örneğin "a" harfinin geçtiği hücrelerin sayısını veriyor, "a" harflerinin sayısını değil, bir hücrede birden fazla a harfi varsa bunu tek olarak alacaktır. Bu sebeple tam olarak ihtiyacınızı karşılamayabilir.

 

[a_self_lion]

doğru ama ben bunu denememiştim
bana kaç hüçrede değilde sadece a harflerinin sayısı lazımdı
peki bunu yapmak mümkünmü

 

[Levent Menteşoğlu]

Belki daha pratik bir yolu bulunabilir, ama benim aklıma aşağıdaki gibi bir çözüm geldi.

[vb:1:0073e4632b]Sub ara()
sor = InputBox("ARANACAK VERİYİ GİRİNİZ")
adr = Cells.SpecialCells(xlCellTypeConstants, 23).Address
For Each hucre In Range(adr)
For a = 1 To Len(hucre)
If Mid(hucre, a, 1) = sor Then c = c + 1
Next: Next
MsgBox c
End Sub
[/vb:1:0073e4632b]

 

[a_self_lion]

tamam işte gayet mükembel sanırım bu istediğim gibi oldu
ve daha hızlı çalışıyor

teşekkürler sayın leventm

 

[ertuer]

Sn Leventm sırası gelmişken sizden çözüm bulabileceğinize inandığım bir şey yapmanızı rica edeceğim.eğer mümkünse. ben herhangi bir metnin içinde : a dan z ye geçen kelimelerin sıralanıp ,metin içinde kaç kez geçtiğini yine o kelime karşısına yazacak şekilde bir makro arıyorum. emeğinize saygı ile selamlar hoşçakalın

 

[Levent Menteşoğlu]

Bir örnek verebilirmisiniz.

 

[a_self_lion]

Sayın leventm sanırım bir sorun var küçük büyük harf duyarlıymış mesala bir sayfada 10 adet küçük a yazdım 5 adet de Büyük A yazdım ve aranacak inputbox a da a harfini yani küçük olarak yazdım bana sadece küçük olan a ların sayısını getirdi oysa ki bana küçük ve büyük olarak toplamını vermesi lazım

 

[Haluk]

Sn Leventm sırası gelmişken sizden çözüm bulabileceğinize inandığım bir şey yapmanızı rica edeceğim.eğer mümkünse. ben herhangi bir metnin içinde : a dan z ye geçen kelimelerin sıralanıp ,metin içinde kaç kez geçtiğini yine o kelime karşısına yazacak şekilde bir makro arıyorum. emeğinize saygı ile selamlar hoşçakalın

MS Word için de bunu sormuştunuz ve size bir cevap yazmıştım.

http://www.excel.web.tr/viewtopic.php?p=61737#61737

İşinize yaradı mı, yaramadı mı ?

 

[Levent Menteşoğlu]

Kodu aşağıdaki ile değiştirin.

[vb:1:50b97755f8]Sub ara()
sor = InputBox("ARANACAK VERİYİ GİRİNİZ")
adr = Cells.SpecialCells(xlCellTypeConstants, 23).Address
For Each hucre In Range(adr)
For a = 1 To Len(hucre)
If ucase(Mid(hucre, a, 1)) = ucase(sor) Then c = c + 1
Next: Next
MsgBox c
End Sub
[/vb:1:50b97755f8]

 

[a_self_lion]

Sayın leventm teşekkürler

 

[veyselemre]

Sayın Erteur, Haluk Beyin word de kelimeleri sayan kodlarını excel için uyarlamıştım.

 

[ertuer]

Sn Arkadaşlar arzu ettiğim çözümü net anlatabilmek için bir örnek gönderiyorum.
sn Haluk bey daha önce gönderdiğiniz word dosyasında nedenini bilemiyorum ama ben ne yapmam nasıl çalıştırmam gereken birşey bulamadım.Hata benden kaynaklanıyor olabilir. sn veyselemre sizin excel de yaptığınız benim arzu ettiğim
iş için değil , ama başka amaç için çok faydalı olacak. ben net olarak şunu istiyorum: özellikle word de olursa daha iyi olur, word sayfasındaki bir metin de textte bulunan kelimeleri a dan z ye sıralasın ve kaç kez kullanıldığı karşısına yazılsın istiyorum. hepinize ve emeklerinize saygı ile hoşçakalın

 

[Haluk]

......
ben net olarak şunu istiyorum: özellikle word de olursa daha iyi olur, word sayfasındaki bir metin de textte bulunan kelimeleri a dan z ye sıralasın ve kaç kez kullanıldığı karşısına yazılsın istiyorum.
......

http://www.excel.web.tr/viewtopic.php?t=11166