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

• #20032 Mutt senior tag Wollie #19998

  Új Válasz 2014-01-10 21:00:55 #20032

  Ú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 Wollie #19998 üzenetére

  Hello,

  Olyan feladatom van, hogy egy oszlopban szereplő szövegek "féleségét" kell megszámolnom...

  Egyedi rekordok számolására több megoldás is van.
  1. Képlet
  Delila1 által megadott szorzatösszeges képlet jó. Ugyanez CSE képlettel:
  {=SZUM(1/DARABTELI(tartomany;tartomany))}

  Ha a tartományban van üres cella, akkor az ezt kezelő képlet a következő:
  =SZUM(HAHIBA(1/DARABTELI(tartomany;tartomany);1/DARABÜRES(tartomany)))

  2. Pivot (Kimutatás) használata
  3. Addin használata
  Számos kiegészítő van, amelyben készen van erre megoldás. pl. Az ingyenes ASAP utilitiesben megtalálható.
  4. Saját makró használata
  Function Egyedi(Adatsor As Range, Optional UresCellaIsKell As Boolean = True)
  Dim vLista As New Collection
  Dim cella As Range
  
  On Error Resume Next
  For Each cella In Adatsor
  If UresCellaIsKell Then
  vLista.Add cella, CStr(cella)
  Else
  If Len(cella) > 0 Then vLista.Add cella, CStr(cella)
  End If
  Next cella
  On Error GoTo 0
  
  Egyedi = vLista.Count
  
  End Function

  üdv

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