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

• #12912 Fire/SOUL/CD félisten föccer #12909

  Új Válasz 2012-02-17 11:51:03 #12912

  Ú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

  

  Fire/SOUL/CD

  félisten

  válasz föccer #12909 üzenetére

  Ez meg egy makrós megoldás.

  Function CountOfDistinctValues(MyTypeSrcRange As Range) As Long
  
  Dim MyCollection As New Collection
  Dim MyCell As Range
  Dim MyTypeSrcRange As Range
  
  Application.Volatile
  For Each MyCell In MyTypeSrcRange
  On Error Resume Next
  MyCollection.Add MyCell.Value, CStr(MyCell.Value)
  Next MyCell
  On Error GoTo 0
  CountOfDistinctValues = MyCollection.Values.Count
  
  End Function

  Sajnos most nem tudom tesztelni(nincs Office a gépen), csak megírtam, remélhetőleg így is működik...

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