Ú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

• #20006 Delila_1 veterán Wollie #19998

  Új Válasz 2014-01-09 14:13:24 #20006

  Ú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

  

  Delila_1

  veterán

  válasz Wollie #19998 üzenetére

  =SZORZATÖSSZEG((tartomány<>"")/DARABTELI(tartomány;tartomány))

  A tartomány szó helyett a tartományod címét (C2:D1000) add meg.

• #20002 m.zmrzlina senior tag Wollie #19998

  Új Válasz 2014-01-09 13:38:49 #20002

  Ú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

  

  m.zmrzlina

  senior tag

  válasz Wollie #19998 üzenetére

  Próbáld meg a következőt. Az F oszlopban lévő szövegeken megy végig, az E oszlopba kigyűjti az egyedi rekordokat és a D1 cellába kiírja hogy hány különböző rekordot talált. Természetesen a tartományok átírhatók.

  Sub lista()
  Dim intHanyfele As Integer
  
  Do While ActiveCell.Value <> ""
  If Application.WorksheetFunction.CountIf(Range("E:E"), ActiveCell.Value) = 0 Then
  Cells(intHanyfele + 1, 5).Value = ActiveCell.Value
  intHanyfele = intHanyfele + 1
  End If
  ActiveCell.Offset(1, 0).Select
  Loop
  
  Range("D1").Value = intHanyfele
  End Sub

  Kicsit ágyúval verébre módszernek tűnik mert meg lehet oldani irányított szűréssel is. Más helyre másolja és Csak egyedi rekordok megjelenítése opciók bekattintva, majd az egyedi rekordokat darabtelivel megszámolni.

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