DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
=BAĞ_DEĞ_SAY(1/SIKLIK(KAÇINCI(PARÇAAL(A1;SATIR(DOLAYLI("1:"&UZUNLUK(A1)));1)
;PARÇAAL(A1;SATIR(DOLAYLI("1:"&UZUNLUK(A1)));1);0);SATIR(DOLAYLI("1:"&UZUNLUK(A1)))))
Public Function UniqueChars(ByVal OrigString As String) _
As String
'INPUT: ANY STRING
'OUTPUT: The Unique Characters of the string, in the order
' They First appear
'Example: Debug.Print(UniqueChars("FreeVBCode")):
' Outputs: FreVBCod
Dim oCol As New Collection
Dim sAns As String
Dim lCtr As Long, lCount As Long
Dim sChar As String
lCount = Len(OrigString)
For lCtr = 1 To lCount
sChar = Mid(OrigString, lCtr, 1)
On Error Resume Next
oCol.Add sChar, sChar
If Err.Number = 0 Then sAns = sAns & sChar
Err.Clear
Next
UniqueChars = sAns
End Function
Public Function UniqueCharCount(ByVal TheString As String) _
As Long
UniqueCharCount = Len(UniqueChars(TheString))
End Function
Ömer üstadım, emeğinize sağlık, çok teşekkür ediyorum. Sağlıcakla kalınMerhaba,
Dizi formülüdür.
Kod:=BAĞ_DEĞ_SAY(1/SIKLIK(KAÇINCI(PARÇAAL(A1;SATIR(DOLAYLI("1:"&UZUNLUK(A1)));1) ;PARÇAAL(A1;SATIR(DOLAYLI("1:"&UZUNLUK(A1)));1);0);SATIR(DOLAYLI("1:"&UZUNLUK(A1)))))
excelokyanus500 üstadım, emeğinize sağlık, çok teşekkür ediyorum. Sağlıcakla kalınBulunduğu link
Kod:Public Function UniqueChars(ByVal OrigString As String) _ As String 'INPUT: ANY STRING 'OUTPUT: The Unique Characters of the string, in the order ' They First appear 'Example: Debug.Print(UniqueChars("FreeVBCode")): ' Outputs: FreVBCod Dim oCol As New Collection Dim sAns As String Dim lCtr As Long, lCount As Long Dim sChar As String lCount = Len(OrigString) For lCtr = 1 To lCount sChar = Mid(OrigString, lCtr, 1) On Error Resume Next oCol.Add sChar, sChar If Err.Number = 0 Then sAns = sAns & sChar Err.Clear Next UniqueChars = sAns End Function Public Function UniqueCharCount(ByVal TheString As String) _ As Long UniqueCharCount = Len(UniqueChars(TheString)) End Function
Option Explicit
Function BENZERSİZ_HARF_SAY(Alan As Range)
Dim X As Long
Application.Volatile True
With CreateObject("Scripting.Dictionary")
For X = 1 To Len(Alan.Value)
If Not .Exists(Mid(Alan.Value, X, 1)) Then
.Add Mid(Alan.Value, X, 1), 1
End If
Next
BENZERSİZ_HARF_SAY = .Count
End With
End Function
Korhan Ayhan üstadım harika bir alternatif oldu. Emeğinize sağlık, çok teşekkür ederim. Sağlıcakla kalınAlternatif;
KTF;
C++:Option Explicit Function BENZERSİZ_HARF_SAY(Alan As Range) Dim X As Long Application.Volatile True With CreateObject("Scripting.Dictionary") For X = 1 To Len(Alan.Value) If Not .Exists(Mid(Alan.Value, X, 1)) Then .Add Mid(Alan.Value, X, 1), 1 End If Next BENZERSİZ_HARF_SAY = .Count End With End Function