Új hozzászólás Aktív témák

• #41002 Mutt senior tag bartucz911 #41001

  Új Válasz 2019-05-06 20:08:01 #41002

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Mutt

  senior tag

  válasz bartucz911 #41001 üzenetére

  Szia,

  Köszi a pontosítást. Beépített függvényekkel nem sikerült értelmes eredményt kihoznom, de ha UDF (makrós függvény) is játszik, akkor ezt próbáld ki. Alt-F11-el VBE szerkesztő megnyilik, majd ott Insert -> Module és a megjelenő üres ablakba másold be a kódot.

  Function NextMatch(adat As Range)
Dim szam As Range
Dim szamok As New Collection

On Error GoTo ismetlodes
For Each szam In adat
If Len(szam.Value) > 0 Then
szamok.Add szam.Value, CStr(szam.Value)
End If
Next szam

Exit Function

ismetlodes:
NextMatch = szamok.Count

End Function

  Ezek után lesz egy NextMatch függvényed, amely egy tartományt vár ahol a vizsgálandó számok vannak (a tartomány elejét ne fixáld!).

  

  üdv

Új hozzászólás Aktív témák