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

• Mutt senior tag

  2019-05-06 20:08:01 #41002

  Új Válasz

  Ú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

  

  Mutt

  senior tag

  válasz bartucz911 üzenetére #41001

  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