- Katılım
- 21 Haziran 2021
- Mesajlar
- 64
- Excel Vers. ve Dili
- türkçe
- Altın Üyelik Bitiş Tarihi
- 20-07-2023
excel sutunumda örnek olarak 1 den 4 tane 3 den 5 tane 2 den 10 tane var. Ben bunu bilmek için hangi förmülü kullanmalıyım
DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Function Kritersay(işlemhucresi As String, kriter As String) As Integer
' *** Kriter adedi say
Dim ayır As Integer
Dim say As Integer
ayır = InStr(işlemhucresi, kriter)
say = 0
Do While ayır > 0
say = say + 1
ayır = InStr(ayır + 1, işlemhucresi, kriter)
Loop
Kritersay = say
End Function
FONKSİYON GELMEDİ AMA YAZINCAKTF ile
Örnek Kritersay(A10;9)
Deneyiniz
Kod:Function Kritersay(işlemhucresi As String, kriter As String) As Integer ' *** Kriter adedi say Dim ayır As Integer Dim say As Integer ayır = InStr(işlemhucresi, kriter) say = 0 Do While ayır > 0 say = say + 1 ayır = InStr(ayır + 1, işlemhucresi, kriter) Loop Kritersay = say End Function
Büyük harf kullanmanızın özel bir nedeni var mı?FONKSİYON GELMEDİ AMA YAZINCA
Altın üyesiniz bir örnek paylaşır mısınız?Büyük Harf Kısıtlaması:
- Mesaj yazarken büyük harf kullanmak bağırmak anlamına geleceği için yazılarınızı kesinlikle büyük harf kullanarak yazmayınız.
AYNEN TEŞEKKÜRLER PİVOT TABLE ÇÖZDÜMerhaba,
Alternatif olarak Pivot Table'ı da kullanabilirsiniz.
AYNEN TEŞEKKÜRLER PİVOT TABLE ÇÖZDÜ
Büyük harf kullanmanızın özel bir nedeni var mı?
Altın üyesiniz bir örnek paylaşır mısınız?
Ever teşekkürler . İlk başta bu förmüle güvenemedim o yuzdenMahir Bey'in bahsettiği formül
Kod:=EĞERSAY(A:A;Q2)
KTF kullanıcı tanımlı fonksiyon olduğu için otomatik gelmeyecektir.FONKSİYON GELMEDİ AMA YAZINCA
Function Birlestirsay(Ayrac As Variant, kriter As String, ParamArray SecilenHucreAraligi() As Variant) As String
Dim ayır As Integer
Dim say As Integer
Dim Cell As Range, Area As Variant
If IsMissing(Ayrac) Then Ayrac = ","
For Each Area In SecilenHucreAraligi
If TypeName(Area) = "Range" Then
For Each Cell In Area
If Len(Cell.Value) Then Birlestirsay = Birlestirsay & Ayrac & Cell.Value
Next
Else
Birlestirsay = Birlestirsay & Ayrac & Area
End If
Next
Birlestirsay = Mid(Birlestirsay, Len(Ayrac) + 1)
ayır = InStr(Birlestirsay, kriter)
say = 0
Do While ayır > 0
say = say + 1
ayır = InStr(ayır + 1, Birlestirsay, kriter)
Loop
Birlestirsay = say
End Function